birden fazla button ile çalışmak

[burakb44]

arkadaşlar merhaba içinde en az 50 tane buttonu olan formlarda çalışma yapacağım her button bi kategori olacak bu kategoruler vt de kayıtlı olan tablodan geliyor buttonların captionuna bu bilgileri yazdıracağım fakat tek tek okuyup yazdırmam lazım bu captionları bi döngü ile doldurabilirmiyiz varmıdır bi yolu yordamı ?

[SimaWB]

Kod: Tümünü seç

var i:integer;
begin
  for i:=0 to ComponentCount-1 do
    if (Components[i] is TButton) then 
    begin
      (Components[i] as TButton).Caption := IntToStr(i);
    end;
end;

[burakb44]

Kod: Tümünü seç

var i:integer;
begin
  for i:=0 to ComponentCount-1 do
    if (Components[i] is TButton) then 
    begin
      (Components[i] as TButton).Caption := IntToStr(i);
    end;
end;

kardeş verdiğin kodu denedim fakat şöyle bi sorun var tüm komponentlerin içinden buttonların captionuna bilgiyi yazdırıyor , ben misal 70 tane buttondan 1,-50 ye kadar olanların captionuna yazdırmak istiyorum tüm komponentler döngüye girince karışık atıyor komponentlerin indexslerini aldım o sıradan atayım diye bu seferde değişkenden geldiği için nesne ismini kabul etmiyor

bakalım biraz daha uğraşacağım oldu oldu olmazsa başka bi çare düşünmeye başlayacağım artık.

verdiğin bilgiler için teşekkürler.

[sirdragonblack]

Buttonların 1'den 50'ye kadar ard arda olduğunu varsayarsak, yani arada başka amaçla kullandığın buttonlar olmadan ve SimaWB arkadaşımızın kodlarını da kullanırsak şöyle işlem yapabilirsin.

Kod: Tümünü seç

var i:integer;
begin
  for i:=1 to 50 do
 
(form1.FindComponent('Cxbutton'+inttostr(i)) as TCXbutton).Caption :=inttostr(i);

end;

Umarım yardımcı olmuşumdur. İyi çalışmalar.

[burakb44]

Buttonların 1'den 50'ye kadar ard arda olduğunu varsayarsak, yani arada başka amaçla kullandığın buttonlar olmadan ve SimaWB arkadaşımızın kodlarını da kullanırsak şöyle işlem yapabilirsin.

Kod: Tümünü seç

var i:integer;
begin
  for i:=1 to 50 do
 
(form1.FindComponent('Cxbutton'+inttostr(i)) as TCXbutton).Caption :=inttostr(i);

end;

Umarım yardımcı olmuşumdur. İyi çalışmalar.

teşekkür ederim. kolay gelsin