用delphi编写的计算器程序var Form1: TForm1; temp1:string; temp2:real; n:integer; implementation {$R *.dfm} procedure TForm1.Button5Click(Sender: TObject); begin edit1.Text:=floattostr(strtofloat(edit1.Text+'7')); end;