Blog G21

Pada sebelumnya kita telah mengetahui tentang penerapan kondisi pada delphi. pada kali ini kita akan mencobanya dalam program.

- Buka program aplikasi delphi dan form baru lalu simpan pada folder yang telah disediakan.
- Desain Form dengan bagus seperti tampilan gambar berikut
- Klik Tombol Proses lalu  tuliskan sintak berikut :

     procedure TForm1.Button1Click(Sender: TObject);
     var
         A:integer;
         b:integer; 
     begin
     A:=strtoint(edit1.Text);
     B:=strtoint(edit2.Text);
     IF A > B THEN 
         Label4.Caption:='Anda Benar';
  end;

- Klik Tombol Proses lalu tuliskan sintak berikut  :
           application.Terminate;

Setelah selesai save dan jalankan...
Isi Nilai pertama dengan 80 lalau nilai kedua dengan 50, lalu klik tombol proses. Maka Label4 berubah menjadi "Anda Benar". tetapi apabila sebaliknya nilai pertama 50 nilai kedua 80, maka tidak terjadi apa.