Formun Üzerindeki Bütün TEdit Kontrollerin İçeriğini Temizle

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
RamazanG
Üye
Mesajlar: 73
Kayıt: 16 Tem 2010 03:38

Formun Üzerindeki Bütün TEdit Kontrollerin İçeriğini Temizle

Mesaj gönderen RamazanG »

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.

Bu uygulama formun üzerindeki bütün Edit kontrollerinin içeriğini temizler.

Kod: Tümünü seç

procedure ClearEdits;
  var j : Integer;
begin
for j := 0 to ComponentCount-1 do
   if (Components[j] is TEdit) then
     (Components[j] as TEdit).Text := '';
end;
Cevapla