edit[i].text gibi bir kullanım

[ElectroNick]

s.a.
yaklaşık 20 edite aynı değeri atmak için kullanacağım bir komut var mı?

ya da şöyle sorayım;
tek tek edit1.text, edit2.text, edit3.text yerine bir döngü ile edit(i).text:='xx' şeklinde işimi görebilecek kısa bir metod var mı?

[ElectroNick]

Kod: Tümünü seç

for i:=25 to 30 do
begin
if findcomponent('edit'+inttostr(i)) is Tedit  then
 if tedit(findcomponent('edit'+inttostr(i))).text <>'' then
tedit(findcomponent('edit'+inttostr(i))).text:='xxx';
end;

buldum arkadaşlar kendi mesajımı kendim cevaplayayım.. yukarıdaki kod 25. ile 30. editler arasına xxx değerini atıyor.. döngü aralığı ile oynayarak istediğiniz editlere ortak değer atayabilirsiniz..

kolay gelsin..

[freett]

bak kardeşim ben hep bunu kullanıyorum seninde işin yarar

Kod: Tümünü seç

for W_I := 0 to ComponentCount - 1 do
      begin
          if (Components[W_I] is TEdit) then
          with (Components[W_I] as TEdit) do
            begin
              Text := 'Bir Teşekkür Yeter';
            end;
      end; // for

[ElectroNick]

teşekkür ederim

[ByKahin]

arkadaslar bende bunla ilgili bir çalısma yapcaktım.Size çok tesekküerler