companent kontrolü

[gulon]

formda arattım ama bulamadım;

Arkadaşlar çalışma zamanında form üzerindeki bilienleri kontrol etmek istiyorum şöyleki;

form üzerinde 10 adet label var diyelim bulabelların captionlarını okumak istiyorum fakat label1.caption olarak değil label numarasını ben vermek istiyorum

bu konuda acil yardımınıza ihtiyacım var
iyi çalışmalar

[mege]

label tag

[vkamadan]

merhaba ,
İlgili label adından okutacaksanız;
Örneğin istediğiniz numaralı labelin captionun edit1 nesnesinin Text özelliğine yazdırmak için

Kod: Tümünü seç

var
No:Integer;
begin
No:=3;
 Edit1.Text:=TLabel(FindComponent('Label'+IntToStr(No))).caption;
end;
// label3 ün captionun alır.

Eğer tag numarasından almak istiyorsanız.

Kod: Tümünü seç

var
i,no:integer;
begin
No:=3;
 for i:=0 to componentcount-1 do
 if components[i] is TLabel then if TLabel(Components[i]).tag:=No then edit1.text:=TLabel(Components[i]).Caption;
end;
//Tag özelliği 3 olan label in captionun edit1 text e yazar.

başarılar.

[salvation]

anladığım kadarıyla, labelların captionlarını okumak istiyosun, ama labelları tek tek yazmak istemiyosun.. doğru anladıysam şu şekilde yapabilirsin:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to form1.ControlCount - 1 do
  begin
    if Controls[i] is TLabel then
    begin
      showmessage(TLabel(controls[i]).Caption);
      // diğer işlemler..
    end;
  end;
end;