Contoh Program Delphi

unit 1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    ComboBox1: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    GroupBox1: TGroupBox;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    GroupBox2: TGroupBox;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Edit7: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    procedure ComboBox1Change(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if combobox1.Text = 'A001' then

begin

edit1.Text := 'NoteBook';

edit3.Text := '6350000';

end

else if combobox1.Text = 'A002' then

begin

edit1.Text := 'Komputer';

edit3.Text := '4500000';

end

else if combobox1.Text = 'A003' then

begin

edit1.Text := 'Televisi';

edit3.Text := '1250000';

end

else if combobox1.Text = 'A004' then

begin

edit1.Text := 'Radio';

edit3.Text := '530000';

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TForm1.Button1Click(Sender: TObject);

var hasil : integer;

begin

hasil := strtoint(edit2.Text)*strtoint(edit3.Text);

edit4.Text := inttostr(hasil);

if checkbox1.Checked = true then

edit5.text := floattostr(7*strtoint(edit4.text)/100)

else

edit5.text := '0';

if checkbox2.Checked = true then

edit6.text := floattostr(10*strtoint(edit4.text)/100)

else

edit6.text := '0';

edit7.text := inttostr(strtoint(edit4.Text)-strtoint(edit5.Text)+strtoint(edit6.Text));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text := '';

edit2.Text := '';

edit3.Text := '';

edit4.Text := '';

edit5.Text := '';

edit6.Text := '';

edit7.Text := '';

checkbox1.Checked:=false;

checkbox2.Checked:=false;

combobox1.Text:='';

end;

end.