2. Case ... Of

Perintah bersyarat Case umumnya digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan Real. Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikian seterusnya.

 

Case <Parameter> Of
<nilai_1> : <aksi_1> ;
<nilai_2> : <aksi_2> ;
…
<nilai_n> : <aksi_n> ;
Else <aksi_n+1> ;
End;

 

Untuk contoh programnya buwat desain form seperti dibawah ini :

 

 

 

Atur propertisnya seperti ini :

 

nama	propertis	keterangan
Label1	Caption	Nama
Label2	Caption	Kelas
Label3	Caption	Nilai
Label4	Caption	Keterangan
Edit1	Text	M. NURFAIZIN
Edit2	Text	2-C
Edit3	Text	Di kosongkan
Edit4	Text	Di kosongkan
Button1	Caption	Proses

 

Klik dua kali Button1(Proses) isikan seperti dibawah ini :

 

procedure TForm1.Button1Click(Sender: TObject);

var ket:string;

   nilai:integer;

begin

nilai:=StrToInt(edit3.Text);

ket:=edit4.Text;

case nilai of

86..100:ket:='Grade (A)';

70..85:ket:='Grade (B)';

51..69:ket:='Grade (C)';

36..50:ket:='Grade (D)';

1..35:ket:='Grade (E)';

else

   messageDlg('Pengisian tidak Lengkap',mtWarning,[mbOK],0);

   edit3.SetFocus;

end;

edit4.Text:=ket;

edit4.Enabled:=false;

end;

 

Jika di Run(f9) Hasilnya seperti ini :