Form üzerindeki bileşenlere topluca işlemler

Dephi form üzerindeki bileşenlerde topluca işlem yapabilirsiniz.Aşağıdaki kod buna örnektir.

for I := 0 to ComponentCount -1 do
begin
if (Components[i] is TEdit) then TEdit(Components[i]).Text:= '';
if (Components[i] is TMemo) then TMemo(Components[i]).Clear;
if (Components[i] is TMaskEdit) then
begin
if (TMemo(Components[i]).Name <> 'MskEdit_CekimTarih') and
(TMemo(Components[i]).Name <> 'MskEdit_SistemTarih') then
TMaskEdit(Components[i]).Text:= '';
end;
end;

Bu kodlamaya ek yapmak sizin isteğinize bağlı olarak arttırılabilir.
Örneğin:
ComboBox ekleyebilirsiniz
if (Components[i] is TTable) and (TTable(Components[i]).Modified
if (Components[i] is TButton) then TButton(Components[i]).Enabled