Percabangan Case Of program Delphi

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 sama dengan (=).
Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan

aksi yang lain juga, demikian seterusnya.
Bentuk 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.