Percabangan, combobox, optionbuton Dalam Delphi
Percabangan dalam delphi terdiri dari :If tunggal, If majemuk, dan If bercabang, dalam contoh berikut kita akan membahas If majemuk dan beberapa object yang ada didelphi.
Bentuk tampilan Hasil :

Listing Program (catatan Edit dalam delphi bertipe data string jadi setiap ingin melakukan perubahan nilai tipe data maka harus dirumah ketipe data yang diinginkan).
procedure TForm2.FormCreate(Sender: TObject);
begin
combobox1.Items.Add (‘ads’);
combobox1.Items.Add (‘rbk’);
combobox1.Items.Add (‘spt’);
end;
procedure TForm2.ComboBox1Click(Sender: TObject);
begin
if combobox1.Text=’ads’ then
begin
enama.Text :=’Adidas’;
eharga.Text:=’250000′;
end
else
if combobox1.Text=’rbk’ then
begin
enama.Text :=’Reebok’;
eharga.Text:=’200000′;
end
else
begin
enama.Text :=’Spotec’;
eharga.Text:=’150000′;
end;
end;
procedure TForm2.rb1Click(Sender: TObject);
var c,a,d:real;
begin
if rb1.Checked =true then
c:=strtofloat(eharga.Text);——->Tipe data String dirubah menjadi tipe data real/float
a:=c*5/100;
d:=a+c;
etotbay.Text:=floattostr(d);
ebayar.SetFocus
end;
procedure TForm2.rb2Click(Sender: TObject);
var c,a,d:real;
begin
if rb2.Checked =true then
c:=strtofloat(eharga.Text);
a:=c*10/100;
d:=a+c;
etotbay.Text:=floattostr(d);
ebayar.SetFocus
end;
procedure TForm2.ebayarChange(Sender: TObject);
var a:real;
begin
a:=strtofloat(ebayar.Text)- strtofloat(etotbay.Text);
ekembali.Text:=floattostr(a);
end;
procedure TForm2.bbersihClick(Sender: TObject);
begin
combobox1.Text:=’Pilih Kode’;
enama.Text:=”;
eharga.Text:=’0′;
etotbay.Text:=’0′;
ebayar.Text:=’0′;
ekembali.Text :=’0′;
end;
Untuk Pesan Kita bisa buat tampilan seperti ini :
procedure TForm2.bkeluarClick(Sender: TObject);
begin
if messagedlg(‘Anda ingin keluar ?’,mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;
Selamat Mencoba….