birden çok edit clear

[zaxacm]

edit1 den edit50 ye kadar tüm editlerin içini tek bir kodla nasıl temizlerim acaba

[serkan]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to componentcount-1 do
if components[i] is TEdit then TEdit(components[i]).text:='';

end;

[zaxacm]

çok teşekkürler..

[ulu coder]

@serkan +

Kod: Tümünü seç

 for i := 1 to 50 do
    TEdit(FindComponent('Edit'+inttostr(i))).Clear;
//1'den 60'a kadar editiniz var, ve 50'ya kadarki kısmını temizlemek isterseniz...

Kolay gele

[gimil]

var
i,Toplam:Integer;
begin
Toplam:=0;
for i := 1 to 59 do
begin
toplam:=toplam+strtoint(TdbrichEdit(FindComponent('dbrichEdit'+inttostr(i))).Text);
end;
dbrichedit61.Text:=inttostr(toplam);



bu kod is not a valid integer value hatası veriyor

[ulu coder]

Edit'in içinde karakter olması ya da boş olması bu hataya neden olabilir.