Delphi編輯簡單計算器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    btn8: TButton;
    btn9: TButton;
    btn10: TButton;
    btn11: TButton;
    btn12: TButton;
    btn13: TButton;
    btn14: TButton;
    btn15: TButton;
    btn16: TButton;
    btn17: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn13Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn16Click(Sender: TObject);
    procedure btn15Click(Sender: TObject);
    procedure btn17Click(Sender: TObject);
    procedure btn14Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sum:Extended;
  flag:Integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'1';

end;
procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'2';
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'3';
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'4';
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'5';
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'6';
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'7';
end;

procedure TForm1.btn10Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'8';
end;

procedure TForm1.btn11Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'9';
end;

procedure TForm1.btn13Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'.';
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
sum:=StrToFloat(edt1.Text);
edt1.Text:='';
flag:=1;
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
sum:=StrToFloat(edt1.Text);
edt1.Text:='';
flag:=2;
end;

procedure TForm1.btn12Click(Sender: TObject);
begin
sum:=StrToFloat(edt1.Text);
edt1.Text:='';
flag:=3;
end;

procedure TForm1.btn16Click(Sender: TObject);
begin
sum:=StrToFloat(edt1.Text);
edt1.Text:='';
flag:=4;
end;

procedure TForm1.btn15Click(Sender: TObject);
begin
case flag of
1:edt1.Text:=FloatToStr(sum+StrToFloat(edt1.Text));
2:edt1.Text:=FloatToStr(sum-StrToFloat(edt1.Text));
3:edt1.Text:=FloatToStr(sum*StrToFloat(edt1.Text));
4:if edt1.Text='0' then
ShowMessage('除數不能爲0')
else
edt1.Text:=FloatToStr(sum/strtofloat(edt1.Text));
end;
end;
procedure TForm1.btn17Click(Sender: TObject);
begin
edt1.Text:='';
end;

procedure TForm1.btn14Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'0';
end;

end.