Mega Code Archive

 

Categories / Delphi / VCL

 

[] Sinirsiz temizlik

//MURAT TURAN //EDİTTE NEKADAR EDİT VARSA HEPSİNİ SIFIRLAMA. // Kontrolün TAG değişkeni kullanılarak şarta bağlanabilirler. var i:integer; begin for i:=0 to ComponentCount -1 do BEgin if Components[i] is TEdit then with TEdit(Components[i]) do Clear; end;