Percabangan If, Else if pada Delphi

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


Contoh Program

1. If dan Else if

*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 apa saja komponen yang di pakai silahkan simak tabel berikut

Komponen	Properti	Nilai
Form1	Caption	Program Penilaian
Label1	Caption	Masukan Nilai (0-100)
Label2	Caption	Hasil Nilai (Huruf)
Edit1	Text	Kosongkan
Edit2	Text	Kosongkan
Button1	Caption	Proses
Button2	Caption	Ulang
Button1	Caption	Keluar

*Setelah mendesain selesai sekarang saatnya kita memasukan kodingnya
*Pertama dobel klik di button1 'Proses' lalu masukan syntax dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
var nilai:integer;
begin
nilai:=StrToInt(Edit1.Text);
if Nilai>100 then
begin
ShowMessage('Nilaina Leuwih Teuing Bray');
end
else if Nilai>80 then
begin
Edit2.Text:='A';
end
else if (Nilai>=70) and (Nilai<=79) then
begin
Edit2.Text:='B';
end
else if (Nilai>=60) and (Nilai<=69) then
begin
Edit2.Text:='C';
end
else if (Nilai>=40) and (Nilai<=59) then
begin
Edit2.Text:='D';
end
else if Nilai<39 then
begin
Edit2.Text:='E';
end;
end;

*Kedua dobel klik di button2 'ulang' lalu masukan/ketikan syntax dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;

*Terakhir dobel klik di button3 'Keluar' lalu masukan/ketikan syntax dibawah ini

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

Setelah semua syntax dimasukan/diketikan setelah itu jalankan programnya dengan menekan tombol Shift+CTRL+F9 .... enjoyy

Selanjutnya: Contoh Program Case