Mega Code Archive

 

Categories / Delphi / VCL

 

[] Birden fazla editleri silmek için

// Birden fazla Editleri içeriğini temizlemek // Sedat Ermiş seydi73@hotmail.com // 7 tane Editiniz var diyelim.... var i: byte; begin for i:=1 to 7 do (FindComponent('Edit'+IntToStr(i)) as Tedit).Text := ''; end;