DELPHI [ TUTORIAL V ] Procedure Bersih dan Message Box

Saya akan menjelaskan tentang procedure bersih ( karna kelebihan memakai procedure ialah dapat dipanggil atau dipakai berulang ulang ) J

Step 1 membuat procedure bersih

Step 2 membuat codingan procedure bersih

Step 3 Pemanggilan Procedure Bersih Pada Button1

Step 4 Membuat message Box pada Button 2 ( KELUAR )

Jika yes bearti prosedure bersih dipanggil, dan Jika no maka close

procedure TForm1.Button2Click(Sender: TObject);

begin

  if (application.messagebox('Anda Ingin Menginput Lagi?','Information',MB_YESNO)=IDYES) then

    begin

      bersih;

    end

  else

    begin

      close;

    end

end;