unit1.pas

一个简单的计算器,模仿微软的计算器来做的,可能存在些设计上的缺陷,请大家多多指教,qq:649001535

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    ButtonOK: TButton;
    Buttonjia: TButton;
    Buttonjian: TButton;
    Buttoncheng: TButton;
    Buttonchu: TButton;
    Buttonqingkong: TButton;
    Edit1: TEdit;
    Buttonquxiao: TButton;
    ButtonPF: TButton;
    ButtonLF: TButton;
    ButtonKF: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure ButtonqingkongClick(Sender: TObject);
    procedure ButtonjiaClick(Sender: TObject);
    procedure ButtonjianClick(Sender: TObject);
    procedure ButtonchengClick(Sender: TObject);
    procedure ButtonchuClick(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
    procedure ButtonquxiaoClick(Sender: TObject);
    procedure ButtonPFClick(Sender: TObject);
    procedure ButtonLFClick(Sender: TObject);
    procedure ButtonKFClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  temp1: string;
  temp3: string;
  temp2: real;
  n:  integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'9';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  self.Edit1.Text:=Edit1.Text+'0';
end;

procedure TForm1.ButtonqingkongClick(Sender: TObject);
begin
  self.Edit1.Clear;
  self.Edit1.Text:='0';
end;

procedure TForm1.ButtonjiaClick(Sender: TObject);
begin
  n:=1;
  temp1:=self.Edit1.Text;
  self.Edit1.Clear;
end;

procedure TForm1.ButtonjianClick(Sender: TObject);
begin
  n:=2;
  temp1:=self.Edit1.Text;
  self.Edit1.Clear;
end;

procedure TForm1.ButtonchengClick(Sender: TObject);
begin
  n:=3;
  temp1:=self.Edit1.Text;
  self.Edit1.Clear;
end;

procedure TForm1.ButtonchuClick(Sender: TObject);
begin
  n:=4;
  temp1:=self.Edit1.Text;
  self.Edit1.Clear;
end;

procedure TForm1.ButtonOKClick(Sender: TObject);
begin
   case n of
      0:temp3:=self.Edit1.Text;
      1:temp2:=strtofloat(temp1)+strtofloat(self.Edit1.Text);
      2:temp2:=strtofloat(temp1)-strtofloat(self.Edit1.Text);
      3:temp2:=strtofloat(temp1)*strtofloat(self.Edit1.Text);
      5:if  (self.Edit1.Text='') then
        begin
           showmessage('大笨蛋，要输入数据啊！！');
        end;
      //6:temp2:=strtofloat(temp1)*strtofloat(temp1);//求平方
      //7:temp2:=strtofloat(temp1)*strtofloat(temp1)*strtofloat(temp1);   //求立方
      //8:temp2:=  //求开方
      4:if strtofloat(self.Edit1.Text)=0 then
            begin
               showmessage('被除数不能为零,请重新输入');
               exit;
            end;
           else
              temp2:=strtofloat(temp1)/strtofloat(self.Edit1.Text);
       end;
    self.Edit1.Text:=floattostr(temp2);
    temp2:=0;
    temp1:='0';
end;

procedure TForm1.ButtonquxiaoClick(Sender: TObject);
begin
  self.Edit1.Text:='0';
end;

procedure TForm1.ButtonPFClick(Sender: TObject);
begin
if self.Edit1.Text='' then
  begin
    showmessage('输入的数据为空');
    exit;
  end
  else n:=6;
  //temp3:=self.Edit1.Text;
  self.Edit1.Text:=floattostr(strtofloat(temp3)*strtofloat(temp3));
end;

procedure TForm1.ButtonLFClick(Sender: TObject);
begin
if self.Edit1.Text='' then
  begin
    showmessage('输入的数据为空');
    exit;
  end;
  n:=7;
  temp3:=self.Edit1.Text;
  self.Edit1.Text:=floattostr(strtofloat(temp3)*strtofloat(temp3)*strtofloat(temp3));
end;

procedure TForm1.ButtonKFClick(Sender: TObject);
begin
if self.Edit1.Text='' then
  begin
    showmessage('输入的数据为空');
    exit;
  end;
   n:=8;
   temp3:=self.Edit1.Text;
   self.Edit1.Clear;
end;

end.