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.

1.1. Membuat Program Sederhana

Untuk lebih memahami struktur pemrograman dengan Delphi buatlah program seperti pada tampilan dibawah ini. Langkah-langkah pembuatan :


1. Klik pada Form1 lalu ubahlah properti Caption-nya pada jendela Object Inspector menjadi ‘Program Sederhana’.
2. Pada Komponen Palette pilih tab Standard cari nama komponennya Button, kemudian klik ganda, Objek Button yang dihasilkan akan langsung terpilih yang ditandai dengan titik-titik kecil mengelilingi komponen tersebut. Kemudian atur posisinya seperti pada gambar. Perhatikan jika suatu objek terpilih, maka jendela Objek Inspector akan menyesuaikan dengan objek tersebut.
3. Ubahlah properti Caption-nya pada jendela Object Inspector menjadi ‘&Pesan’.
4. Lakukan cara yang sama untuk membuat tombol yang kedua dengan Caption-nya menjadi ‘&Tutup’.
5. Klik ganda pada tombol yang pertama anda buat tadi, maka anda akan masuk kebagian Code Editor. Kemudian ketikkan perintah berikut :
showmessage ('This is my first Program');
untuk kembali ke Form tekan F12 pada keyboard anda.
6. Lakukan hal yang sama pada tombol yang kedua, kemudian isikan perintah berikut :
Application.terminate;
7. Untuk menjalankannya tekan F9 pada keyboard anda, atau pilih menu Run > Run pada menu bar.
Jika anda melakukannya dengan benar maka program anda dapat dicompile dan di run. Hasil dari program tersebut adalah : akan menampilkan kotak pesan yang berisi ‘This is my first Program’ saat mengklik tombol Pesan dan program akan ditutup saat tombol Tutup diklik.
Program lengkapnya adalah :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Perintah yang secara otomatis dibuat oleh delphi saat kita membuka Delphi atau saat menambah komponen.

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('This is my first Program');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Perintah untuk mematikan program (Keluar dari program)
Perintah untuk menampilkan pesan