Lanjutan Posting Kemarin

Lagsung saja melanjutkan postinagan yg sebelumnya untuk pembuatan procedure. Saya akan mencontohkan 2 cara membuatm procedure. Untuk cara yang pertama tulis kode dibawah ini di bawah kode {$R *.dfm} dan jangan lupa untuk menambah kan kode “procedure kondisiawal;” tanpa petik pada type agar procedure yg anda buat bias dibaca program.

procedure Tform1.kondisiawal;
begin
    edit1.Clear;
    edit2.clear;
    edit3.clear;
    edit4.clear;
end;

dan untuk penggunaanya anda tinggal menuliskan “kondisiawal”

ex.
procedure TForm1.Button1Click(Sender: TObject);
begin
kondisiawal;
end;

maka secara otomatis jika tombol button1 anda klik maka komponen edit yang tadinya berisi tulisan menjadi kosong. 

Tahap yang kedua untuk membuat procedure adalah sbb.

procedure kondisiAwal;
begin
  with form1 do
    begin
          edit1.Clear;
          edit2.clear;
          edit3.clear;
          edit4.clear;
    end;
end;

untuk tahap yang kedua ini kita tidak perlu memnambahkan Procedure kondisi awal di type, untuk menuliskan procedure jangan kopas ya alias tulis manual, dan cara penggunaannya sama dengan cara yang pertama. Ok semoga bermanfaat.