Listing untuk Mengosongkan Text yang Ada di Semua Komponen Edit dalam Satu Form

Untuk menginput data baru dalam aplikasi kita perlu melakukan refresh pada komponen edit agar kita bisa langsung menghapus semua text yang ada maka saya akan berbagi sedikit listing untuk mengosongkan text yang ada dikomponen edit dalam satu form, sebelumnya diatas tulisan private ketiklah listing ini

procedure kosong(sender: Tobject);

kemudian ketiklah listing berikut ini dibawah tulisan {$R *.dfm}



procedure Tfrmbarang.kosong(Sender: Tobject);
var i:byte;
begin
 for i:=0 to componentcount-1 do
 begin
  if components[i] is tedit then
   begin
    with components[i] as tedit do
     begin
      text:='';
     end;
    end;
   end;
  end;

nah seperti itulah kira - kira listingnya semoga post saya ini bermanfaat dan dapat membantu teman - teman yang yang sama2 masih newbie seperti saya... Salam Delphier ya kawann