Question

这段delphi程序为什么无法运行？

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a+b;
c:=floattostr(edit3.text);
end;

end.做了三个EDIT 控件，EDIT1 和EDIT2填 a 和b 的值，edit3为输出结果值，为什么运行不了，麻烦给出正确的代码程序，谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a+b;
edit3.text:=floattostr(c);
end;

Answer 2

就是 c:=floattostr(edit3.text)写反了呀!是要将C赋给EDIT3,不是要将EDIT3赋给C!! 你那样写,edit3.text为文本型,floattostr(edit3.texxt)就会类型不同而出错