Contoh Program Delphi

Sebagai contoh kita akan membuat program sederhana untuk menampilkan angka. Jika angka diantara 1-5 maka akan tampil pesan ‘Low’, Jika 6-9 maka akan tampil pesan ‘High’, Jika lebih besar dari kategori atau lebih kecil dari kategori maka akan ditampilkan pesan ‘Out of range’.

1.Buat Aplikasi baru, File | New |Application
2.taruh 1 komponen edit dan 1 komponen button ke dalam form
3.klik double buttonnya, maka anda akan mendapatkan kode editor. Kemudian tulis kodenya seperti berikut:

var

i:integer;

begin

i:=strtoint(edit1.Text);

case i of

1..5:ShowMessage(‘Low’);

6..10:ShowMessage(‘High’);

0,11..99:ShowMessage(‘Out of range’);

end;

end;

1. Jalankan program dengan menu run | run atau F9
2. Untuk mengkompile (menjadikan file exe) dengan menjalankan menu project | Compile all Project
3. lalu jalankan, selamat mencoba.