Contoh Procedure 2

//Procedure 2

{
Kali ini kita akan membuat Procedure yang berguna untuk Membersihkan teedit yang dipilih ..

Seperti dibawah ini .
}


//Procedure

Procedure Bersihkan (Komp  : tEdit) ;
Begin
Komp.text := '' ;
end;


//Button1
Procedure Tform1.button1click(sender:Tobject) ;
Begin
Bersihkan (edit1) ;
end;



{
Isi dari Type data Pada Procedure Pun dapat Berisikan Type Komponen .
}