Cara Membuat Pernyataan CASE Menggunakan Delphi

Posted by Admin

Pernyataan CASE digunakan sebagai pengganti pernyataan IF. Pernyataan CASE akan memberikan alternative yang lebih gampang dibaca untuk menggantikan pernyataan IF. Tetapi tidak semua
pernyataan IF bisa diganti dengan pernyataan CASE.

Bentuk umum dari CASE adalah sebagai berikut:

CASE EkspresiNilai Of
 DaftarKemungkinan1:Pernyataan1;
 DaftarKemungkinan2:Pernyataan2;
 ...
 DaftarKemungkinanN:PernyataanN;
 Else
 PernyataanLainnya;
End;

Jenis data yang boleh ada di bagian Ekspresi Nilai haruslah data bertipe ordinal (Bilangan Bulat, Karakter, Boolean). Tipe data string atau real tidak bisa digunakan dalam EkspresiNilai.

Baca Juga: Cara Membuat Percabangan Menggunakan Perintah IF di Delphi 

Contoh pernyataan CASE :

CASE nilai OF 
 100 : ShowMessage(‘Selamat Anda Lulus dengan Nilai SEMPURNA’); 
 80 .. 99 : ShowMessage(‘Selamat Anda Lulus dengan sangat baik’); 
 50 .. 79 : ShowMessage(‘Selamat Anda Lulus dengan cukup baik’); 
 Else 
 ShowMessage(‘Nilai Kurang, Anda Tidak Lulus’);
end;

CASE huruf OF 
 ‘A’,’I’,’U’,’E’,’O’: ShowMessage(‘Huruf Vokal’); 
 Else 
 ShowMessage(‘Bukan Huruf Vokal’);
end;

Ada beberapa hal yang harus diperhatikan ketika menggunakan CASE yaitu :
1. Pada bagian EkspresiNilai harus berupa data ordinal (Bilangan bulat, Karakter, atau Boolean)
2. Bagian EkspresiNilai boleh berupa range nilai
3. Pada bagian DaftarKemungkinan, tidak boleh terjadi sebuah nilai berada pada 2 atau lebih
DaftarKemungkinan. Tidak boleh sebuah nilai disebut lebih dari 1 kali.
4. Bagian ELSE digunakan jika nilai tidak terpenuhi pada salah satu dari Daftar Kemungkinan di atasnya.
Contoh nya seperti gambar dibawah ini:

procedure TForm1.Tbl_Cari_HargaClick(Sender: TObject); 
begin 
 case RG_Jurusan.ItemIndex of 
 0:E_Harga.Text:='10000'; 
 1:E_Harga.Text:='15000'; 
 2:E_Harga.Text:='20000'; 
 else 
 E_Harga.Text:='0'; 
 end; 
end; 

Sekian dulu artikel Cara Membuat Pernyataan Case di Delphi.
Semoga bermanfaat.

Tutorial Pemrograman Delphi

Share This :