RadioGroup delphi

 Syntax diskon dengan radiogroup :


procedure TForm1.RadioGroup1Click(Sender: TObject);
var juml,harga:integer;
total,disk,hasil:real;
begin
case RadioGroup1.ItemIndex of
0: begin
  juml:=StrToInt(Edit3.Text);
  harga:=StrToInt(Edit2.Text);
  hasil:=harga*juml;
  disk:=hasil*0.1;
  total:=hasil-disk;
  Pesan.Clear;
  Pesan.Lines.Add('INFORMASI :');
  Pesan.Lines.Add('Nama barang : '+ Edit1.Text);
  Pesan.Lines.Add('Harga satuan: '+ Edit2.Text);
  Pesan.Lines.Add('Harga sebelum diskon : '+FloatToStr(hasil));
  Pesan.Lines.Add('Harga setelah diskon : '+FloatToStr(total));
  end;



1: begin
  juml:=StrToInt(Edit3.Text);
  harga:=StrToInt(Edit2.Text);
  hasil:=harga*juml;
  disk:=hasil*0.15;
  total:=hasil-disk;
  Pesan.Clear;
  Pesan.Lines.Add('INFORMASI :');
  Pesan.Lines.Add('Nama barang : '+ Edit1.Text);
  Pesan.Lines.Add('Harga satuan: '+ Edit2.Text);
  Pesan.Lines.Add('Harga sebelum diskon : '+FloatToStr(hasil));
  Pesan.Lines.Add('Harga setelah diskon : '+FloatToStr(total));
  end;
end;

end;