döngü ile aynı tür componentleri seçme

[vampir261]

çok uzun ve manasız bir başlık oldu kusura bakmayın

bu konu muhtemelen burada konuşulmuştur. ancak ben bulamadım malum konu başlığını bile bilmiyorum.

uzatmadan konuya gireyim

elimde 50 tane component olsun ve herbiri için aynı işlemi gerçekleştirecek olayım. yani herbirini sırayla seçmem lazım. ve bunlara aynı yada yakın işlemler yapmam gereksin. şöyleki:

Kod: Tümünü seç

  Edit1.Text:='D';
  Edit2.Text:='D';
  Edit3.Text:='D';
  .
  .
  .
  Edit49.Text:='D';
  Edit50.Text:='D';

bunları bir döngü içinde seçmek mümkünmüdür?bunun yollarından biri bunları bir TEdit dizisine atarak yapılacak işlemi hepsine birden uygulamak.
şöyleki:

Kod: Tümünü seç

  editler:array[1..50]of TEdit;
  .
  .
  .
  .
  .
  editler[1]:=Edit1;
  editler[2]:=Edit2;
  editler[3]:=Edit3;
  .
  .
  .
  editler[49]:=Edit49;
  editler[50]:=Edit50;
  .
  .
  i:=50;
  while(i>1) do
  begin
    editler[i].Text:='DelphiTurkiye.com';
    Dec(i);
  end;

benim kullandığım bu yöntem dışında sizin bildiğiniz başka bir yöntem varmı? son olarak kullandığım bu yöntem sağlıklımı? saygılar

[TRSoft]

ComponentCount

[mege]

Tag

[aslangeri]

Findcomponent

[highmemo]

İstediğin şeye uyuyormu bilmem ama..
Arkadaşlar belirtmiş ama
Örneklemek gerekirse:

Kod: Tümünü seç

 with Form1 do
 For I:=0 to ComponentCount -1 do begin
   If (Components[I] is TEdit)
   then TEdit(Components[I]).Text :='Ok!';
 end;

veya

Kod: Tümünü seç

var I: Integer;
    TempComp: TComponent;
begin

 For I:=0 to 50 do begin
   TempComp := FindComponent('DBEdit'+IntToStr(I));
   If TempComp<>nil
   then TEdit(TempComp).Text :='Ok!';
 end;

end;

[vampir261]

çok teşekkürler arkadaşlar özellikle highmemo kardeşime saygılar.