Penggunaan Pernyataan Case Of Lazarus Free Pascal

Pernyataan Case ... Of fungsinya sama dengan Nested If, Case ... Of mempunyai kelebihan format penulisannya lebih ringkas sehingga mempermudah programmer. Perbedaan yaang lain Case ... Of dengan Statement / Pernyataan If adalah dalam hal tipe data yang digunakan. Case ... Of menggunakan tipe data bukan Real dalam Syarat percabangan dan hanya boleh satu saja. Sementara Statement If boleh menggunakan tipe data real dan syarat percabangan boleh lebih dari satu. Pemeriksaan Syarat pada pernyataan Case ... Of lebih tepat disebutkan dalam hubungan relasi samadengan ( = ). Dengan demikian bila Syarat bernilai tertentu maka akan dilakukan perintah terkait, bila bernilai lain maka dilakukan perintah yang lain juga, demikian seterusnya.

Syntax 1:
case (syarat) of
  (nilai_1): (perintah_1);
  (nilai_2): (perintah_2);
  ...
  (nilai_n): (perintah_n);
  else
    (perintah_x);
end;


Contoh kasus 1:

• Jika nilai siswa kurang dari atau sama dengan 50 maka Keterangan Nilai Huruf pada caption label1 menjadi KURANG.
• Jika lebih dari 50 dan kurang dari atau sama dengan 80 maka Keterangan Nilai Huruf pada caption label1 menjadi CUKUP.
• Jika lebih dari 80 maka Keterangan Nilai Huruf pada caption label1 menjadi BAIK.

Maka pernyataannya menjadi:
case Nilai of
  0 .. 50: Label1.Caption:='KURANG';
  51 .. 80: Label1.Caption:='CUKUP';
  else
    Label1.Caption:='BAIK';
end;

Syntax 2 ( dengan begin ... end ):
case (syarat) of
  (nilai_1):
  begin
    (perintah_1a);
    (perintah_1b)'
    dst...;
  end;
  (nilai_2):
  begin
    (perintah_2a);
    (perintah_2b);
    dst...;
  end;
  (nilai_n):
  begin
    (perintah_n);
    dst...;
  end;
  else
  begin
    (perintah_x);
    dst...;
  end;
end;

Contoh kasus 2:

• Jika nilai siswa kurang dari atau sama dengan 50 maka Keterangan Nilai Huruf pada caption label1 menjadi KURANG dan Nilai Huruf pada caption label2 menjadi C.
• Jika lebih dari 50 dan kurang dari dari atau sama dengan 80 maka Keterangan Nilai Huruf pada caption label1 menjadi CUKUP dan Nilai Huruf pada caption label2 menjadi B.
• Jika lebih dari 80 maka Keterangan Nilai Huruf pada caption label1 menjadi BAIK dan Nilai Huruf pada caption label2 menjadi A.

Maka pernyataannya menjadi:
case Nilai of
  0 .. 50:
  begin
    Label1.Caption:='KURANG';
    Label2.Caption:='C';
  end;
  51 .. 80:
  begin
    Label1.Caption:='CUKUP';
    Label2.Caption:='B';
  end;
  else
  begin
    Label1.Caption:='BAIK';
    Label2.Caption:='A';
  end;
end;

Sekarang coba bandingkan dengan Penggunaan pada Pernyataan IF, lebih sederhana dengan Case ... Of bukan? Ingat gunakan pernyataan Case ... Of jika tipe data bukan real dan syaratnya hanya satu. Cukup sekian tutorial Penggunaan Pernyataan Case ... Of pada Lazarus Free Pascal ini semoga bermanfaat. Terima kasih.