2.1. Percabangan 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. Pemeriksaan kondisi di sini lebih tepat disebutkan dalam hubungan relasi samadengan (=). Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikian seterusnya.
Benttk umum penggunaan Case . . . Of :
Contoh Program menggunakan percabangan Case . . . Of


Nama komponen yang digunakan dan pengaturan nilai propertiesnya :


Isikan perintah-perintah berikut sesuai dengan nama komponen dan event-nya :


Program tersebut akan menampilkan berupa kalimat pada form saat kita mengklik salah satu pilihan bahasa yang ada di ListBox, dan kalimatnya akan berganti jika kita mengklik bahasa yang lain.
Berikut program keseluruhannya :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
LsBahasa: TListBox;
Label1: TLabel;
LBahasa: TLabel;
LUcap: TLabel;
Button1: TButton;
procedure LsBahasaClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.LsBahasaClick(Sender: TObject);
begin
LBahasa.Caption := LsBahasa.Items[LsBahasa.ItemIndex];
case LsBahasa.ItemIndex of
0 : LUcap.Caption := 'Aku Cinta Padamu';
1 : LUcap.Caption := 'Holong Rohangku Tuho';
2 : LUcap.Caption := 'Oma Sidokhou';
3 : LUcap.Caption := 'Wo Ai Ni';
4 : LUcap.Caption := 'I Love You';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
end.