1+1＝错误

Question

我照着教材上操作，可怎么老是不行
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }  end;var
  Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
 var
sum1:double;
sum2:double;
sum3:double;
begin
sum1:=strtofloat(edit1.text);
sum2:=strtofloat(edit2.text);
sum3:=sum1+sum2;
edit3.text:=floattostr(sum3);
end;end.
我用D7，错误信息如下：
Project project2.exe raised exception class EConverError with message'''is not a  valid floating point value'.Process stopped use step or run to continue.
然后编写代码的窗口出现：
program Project2;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;end.
在END.前面有一个箭头
edit1和edit2都填好数了

Answer 1

edit1和edit2都填好了真的吗？提示信息是你没填哦

Answer 2

copy你的源码，没有问题，通过！再做一遍试试。

Answer 3

edit1和edit2中没有按照你的要求填入浮点数，不然你把代码改成
procedure TForm1.Button1Click(Sender: TObject);
var
  sum1, sum2, sum3 :integer;
begin
sum1:=StrToInt(edit1.text);
sum2:=StrToInt(edit2.text);
sum3:=sum1+sum2;
edit3.text:=IntToStr(sum3);
end;
100%可以编译并且运行通过

Answer 4

这一次sum1:=strtofloat(edit1.text);变成红色，照样不行

Answer 5

在text1和text2里初始text设置为1，你肯定没有弄！

Answer 6

edit1，edit2，的text初始肯定没有改变为你想要的1，你保持了原来的edit1内容，

Answer 7

应该是edit3.text:=floattostr(sum3);有错
你加一行sum3:=0;
在sum3:=sum1+sum2;前看能不能通过