Başlangıç > Kodlar > Delphi’de VB’deki gibi control array yapmak

Delphi’de VB’deki gibi control array yapmak


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;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: