《Delphi编写简单算式计算器》由会员分享，可在线阅读，更多相关《Delphi编写简单算式计算器（4页珍藏版）》请在金锄头文库上搜索。
1、Delphi编写简单算式计算器/edit1中产生算式，edit2中输入数字并产生结果/按键：1 2 3 4 6 7 8 9 0 + - * / = 。 清空C 撤消 正负号+/-unit jisuanqiUnit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3:
2、 TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; Button0: TButton; Button16: TButton; Button17: TButton; Edit2: TEdit
3、; Button18: 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: TO
4、bject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button0Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); p
5、rocedure Button13Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button16Click(Sender: TObject); procedure Button17Click(Sender: TObject); procedure Button18Click(Sender: TObject); private Private declarations public Public declarati
6、ons end;var Form1: TForm1; num1: real; /只参与加和减的数值 num2: real; /直接参与乘和除的数值 nownum: real; /在已经输入的最后一个运算符号之前的那个数 ysf1: string; /算式中还未计算的运算符号中的第一个 ysf2: string; /算式中还未计算的运算符中的第二个 restart: boolean; /boolean=true:可以输入数字，boolean=false:运算终止implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject)
7、;begin if(restart=true) then begin if(edit1.text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+1 else edit1.Text:=1; /在输入输出框中输入1 end;end;procedure TForm1.Button2Click(Sender: TObject);begin if(restart=true) then begin if(edit1.text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+2 else edit1.Text:=2; /在
8、输入输出框中输入2 end;end;procedure TForm1.Button3Click(Sender: TObject);begin if(restart=true) then begin if(edit1.text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+3 else edit1.Text:=3; /在输入输出框中输入3 end;end;procedure TForm1.Button4Click(Sender: TObject);begin if(restart=true) then begin if(edit1.text0) /0不
9、能作为整数的第一个数字 then edit1.text:=edit1.text+4 else edit1.Text:=4; /在输入输出框中输入4 end;end;procedure TForm1.Button5Click(Sender: TObject);begin if(restart=true) then begin if(edit1.text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+5 else edit1.Text:=5; /在输入输出框中输入5 end;end;procedure TForm1.Button6Click(Sender
10、: TObject);begin if(restart=true) then begin if(edit1.text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+6 else edit1.Text:=6; /在输入输出框中输入6 end;end;procedure TForm1.Button7Click(Sender: TObject);begin if(restart=true) then begin if(edit1.text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+7 else edit1.T
11、ext:=7; /在输入输出框中输入7 end;end;procedure TForm1.Button8Click(Sender: TObject);begin if(restart=true) then begin if(edit1.text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+8 else edit1.Text:=8; /在输入输出框中输入8 end;end;procedure TForm1.Button9Click(Sender: TObject);begin if(restart=true) then begin if(edit1.
12、text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+9 else edit1.Text:=9; /在输入输出框中输入9 end;end;procedure TForm1.Button0Click(Sender: TObject);begin if(restart=true) then begin if(edit1.text0) /0不能作为整数的第一个数字 then edit1.text:=edit1.text+0 else edit1.Text:=0; /在输入输出框中输入0 end;end;procedure TForm1.Button15Click(Sender: TObject);begin /清空 edit1.Text:=; edit2.Text:=; num1:=0; num2:=1; ysf1:=; ysf2:=; restart:=true;end;procedure TForm1.Button10Click(Sender: TObject);begin /加法 if (restart=true) then begin nownum:=strtofloat(edit1.Text); if(nownum0)
