Delphi'de Vb'de Gibi Control Array

Delphi'de Vb'de Gibi Control Array

Formunuzda 20 adet edit kontrolü var bir buton var ve basıldığında bu 20 edit'in içeriğini temizleyecek. Bu iş için normalde şu kodlamayı yapardık.

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
edit4.clear;
edit5.clear;
edit6.clear;
edit7.clear;
edit8.clear;
edit9.clear;
edit10.clear;
edit11.clear;
edit12.clear;
edit13.clear;
edit14.clear;
edit15.clear;
edit16.clear;
edit17.clear;
edit18.clear;
edit19.clear;
edit20.clear;
end;

Bu resmen amelelik. Sadece 20 edit bile bizi program yazmaktan soğutur ki yazdığım bazı programlarda 60'ın üzerinde edit kullandığım oldu.

Şimdi bu işi daha kolay bir şekilde nasıl hallederiz ona bakalım.

procedure TForm1.Button1Click(Sender: TObject);
var
k:integer;
begin
for k:=1 to 20 do
tedit(findcomponent('Edit'+inttostr(k))).Clear;
end;