Percabangan Case of pada Delphi

Percabangan adalah suatu pemilihan yang didasarkan atas kondisi tertentu. Suatu aksi dipilih hanya jika kondisi yang didefinisikan telah terpenuhi.



 Contoh Program

2. Case Of

*Langkah pertama buka aplikasi Delphi (disini saya menggunakan Delphi XE3).
*Lalu buat project baru dengan mengklik file|new|vcl form application - delphi
*Setelah itu desain formnya seperti berikut:

Untuk lebih jelasnya tentang komponen apa saja yang digunakan silahkan simak tabel berikut:

Komponen	Properties	Nilai
Form1	Caption	Case Of
Label2	Caption	Output
Edit1	Text	Kosongkan
Edit2	Text	Kosongkan
Button1	Caption	Proses
Button2	Caption	Ulang
Button3	Caption	Keluar

*Sekarang saatnya kita akan memasukan syntaknya
*Pertama dobel klik button1 'Proses' lalu masukan/ketikan syntax berikut

procedure TForm1.Button1Click(Sender: TObject);
var angka:Integer;
begin
angka:=StrToInt(Edit1.Text);
case angka of
1:Edit2.Text:='satu';
2:Edit2.Text:='dua';
3:Edit2.Text:='tiga';
4:Edit2.Text:='empat';
5:Edit2.Text:='lima';
6:Edit2.Text:='enam';
7:Edit2.Text:='tujuh';
8:Edit2.Text:='delapan';
9:Edit2.Text:='sembilan';
10:Edit2.Text:='sepuluh';
else
ShowMessage('Data Tidak Ada');
end;
end

*Untuk Button2 'Ulang' dan Button3 'Keluar' sama seperti program sebelumnya, jika anda belum tau selahkan baca artikel sebelumya disini
*Langkah terakhir setelah semua codingnya selesai dimasukan/diketikan silahkan coba jalankan dengan menekan tombol Shift+CTRL+F9  ... dan lihat hasilnya ...