Delphi'de Vb'de Gibi Control Array

ALpMontana

КЯaL´da TaNıMaM КuяaL´da
Katılım
28 May 2006
Mesajlar
6,644
Reaction score
0
Puanları
0
Yaş
38
Konum
Eski Açık [ALiSamiYEN]
Vb bir label1(0) label1(1) şeklinde kontrol arraylar oluşturup kullanabiliyorsunuz. Aynı işi Delphi'de yapalım.
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;
 
Geri
Üst