Formdaki tüm editların içini temizleme

[DotCom]

Kod: Tümünü seç

for a := 1 to ComponentCount-1 do
TEdit(FindComponent('Edit'+IntToStr(a))).Text := '';

[vkamadan]

editlerin isimlerinin değiştitilmiş olabilme ihtimaline karşı şu kodu da kullanabilirsiniz,

Kod: Tümünü seç

for i:=0 to componentcount-1 do
if components[i] is TEdit then TEdit(components[i]).text:='';

kolay gelsin.