delphi计算器设计代码

《delphi计算器设计代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、varForm1:TForm1;Temp1:string;//存放数值一和结果Clkd:boolean=false;//等号是否被按下过，默认为为按下过ClkJ:boolean=false;//数字键是否被按下过，默认为未按下过Temp2:string;//存放数值二n:Integer;implementation{$R*.dfm}procedureTForm1.Button13Click(Sender:TObject);beginifClkd=truethenbeginEdit1.Text:='';//如果等号按下过，清空Edit1的内容Clkd:=false;//还原等号

2、状态值ifEdit1.Text=''thenEdit1.Text:='0'//如果Edit1内容为空，显示0elseEdit1.Text:=Edit1.Text+'0';//否则在Edit1内容的后一位显示0endelseifClkJ=truethen//如果等号没有按下过，数字键按下过Edit1.Text:=Edit1.Text+'0'//则在Edit1内容的后一位显示0elseEdit1.Text:='0';//否则Edit1显示0ClkJ:=true;Temp2:=Edit1.Text;end;procedureTForm1.Button9Click(Sender:TO

3、bject);beginifClkd=truethenbeginEdit1.Text:='';//如果等号按下过，清空Edit1的内容Clkd:=false;//还原等号状态值ifEdit1.Text=''then//如果Edit1内容为空，显示1Edit1.Text:='1'elseEdit1.Text:=Edit1.Text+'1';//否则在Edit1内容的后一位显示1endelseifClkJ=truethen//如果等号没有按下过，数字键按下过Edit1.Text:=Edit1.Text+'1'elseEdit1.Text:='1';ClkJ:=true;Temp2

4、:=Edit1.Text;end;procedureTForm1.Button10Click(Sender:TObject);beginifClkd=truethenbeginEdit1.Text:='';Clkd:=false;ifEdit1.Text=''thenEdit1.Text:='2'elseEdit1.Text:=Edit1.Text+'2';endelseifClkJ=truethenEdit1.Text:=Edit1.Text+'2'elseEdit1.Text:='2';ClkJ:=true;Temp2:=Edit1.Text;end;procedureT

5、Form1.Button11Click(Sender:TObject);beginifClkd=truethenbeginEdit1.Text:='';Clkd:=false;ifEdit1.Text=''thenEdit1.Text:='3'elseEdit1.Text:=Edit1.Text+'3';endelseifClkJ=truethenEdit1.Text:=Edit1.Text+'3'elseEdit1.Text:='3';ClkJ:=true;Temp2:=Edit1.Text;end;procedureTForm1.Button5Click(Sender:T

6、Object);beginifClkd=truethenbeginEdit1.Text:='';Clkd:=false;ifEdit1.Text=''thenEdit1.Text:='4'elseEdit1.Text:=Edit1.Text+'4';endelseifClkJ=truethenEdit1.Text:=Edit1.Text+'4'elseEdit1.Text:='4';ClkJ:=true;Temp2:=Edit1.Text;end;procedureTForm1.Button6Click(Sender:TObject);beginifClkd=truethen

7、beginEdit1.Text:='';Clkd:=false;ifEdit1.Text=''thenEdit1.Text:='5'elseEdit1.Text:=Edit1.Text+'5';endelseifClkJ=truethenEdit1.Text:=Edit1.Text+'5'elseEdit1.Text:='5';ClkJ:=true;Temp2:=Edit1.Text;end;procedureTForm1.Button7Click(Sender:TObject);beginifClkd