Minggu, 04 Januari 2009

Procedure (Prosedur)

Procedure digunakan untuk koding program yang digunakan berulang-ulang, pendeklarasian procedure dituliskan setelah kata Public, berikut contoh penggunaan procedure :



A. Contoh Design Form




B. Penggalan Koding Program

Double klik button1 atau pilih events onclik pada pada objects inspector, berikut potongan programnya :

...
public
{ Public declarations }
procedure kosong_data;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure tform1.kosong_data;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
kosong_data;
end;

end.


Download contoh program



1 komentar: