Membuat Program Diskon dengan Delphi

• Pertama buka aplikasi Delphi (disini saya menggunakan Delphi XE3)
• Lalu buat projek baru dengan meng-klik File|New|VCL Form Application
• Setelah itu desain formnya sehingga seperti dibawah ini

• Untuk lebih lengkapnya apa saja komponen yang digunakan silahkan simak tabel berikut

Komponen	Properties	Nilai
Form1	Caption	Program Diskon dengan Function
GroupBox1	Caption	Inputkan Data
Label1	Caption	Nama Barang
Label2	Caption	Harga Barang(satuan)
Label3	Caption	Banyak Barang
Label4	Caption	Total Bayar
Edit1	Text	Kosongkan
Edit2	Text	Kosongkan
Edit3	Text	Kosongkan
Edit4	Text	Kosongkan
GroupBox2	Caption	Output Data
ListBox1	-	-
Button1	Caption	Proses
Button2	Caption	Simpan
Button3	Caption	Ulang
Button4	Caption	Hapus

• Setelah mendesain form selesai sekarang kita akan mengetikan codingnya
• Pertama masuk ke mode code lalu masukan syntax berikut dan tempatkan dibawah implementation

Function Diskon(total:real):real; //ini adalah contoh syntax function
begin
  Diskon:=total*0.1;
end;

• Setelah itu dobel klik di button1 'Proses' lalu ketikan syntak berikut

procedure TForm1.Button1Click(Sender: TObject);
var Hargabrg,Banyakbrg,total,Diskonya,bayar:Real;
begin
Hargabrg:=StrToFloat(Edit2.Text);
Banyakbrg:=StrToFloat(Edit3.Text);
if Banyakbrg>=10 then
begin
  Total:=Hargabrg*Banyakbrg;
  Diskonya:=diskon(total); //syntax pemanggilan function
  bayar:=Total-Diskonya;
  Edit4.Text:=FloatToStr(bayar);
end
else
begin
  Total:=Hargabrg*Banyakbrg;
  Edit4.Text:=FloatToStr(Total);
end;

• Untuk tombol ulang dan hapus saya asumsikan anda sudah bisa ... 
• Setelah itu coba jalankan programnya dengan menekan tombol Shift+CTRL+F9, dan lihat hasilnya....