类型转换strtofloat(edit1.Text)出错了？

Question

lilv:=strtofloat(edit1.Text);
edit4.Text:=FloatToStr(lilv);错误提示：'Incompatible types:'integer' and 'Extended'帮忙看看？

Answer 1

var
  lilv: Double;
begin
  lilv:=strtofloat(edit1.Text);
  edit4.Text:=FloatToStr(lilv);
end;

Answer 2

呵呵
lilv有没有声明为Double呀？

Answer 3

如果你明确定义了类型应该没问题var
  lilv: float;
begin
  lilv:=strtofloat(edit1.Text);
  edit4.Text:=FloatToStr(lilv);
end;

Answer 4

不好意思，写错了：）如果你明确定义了类型应该没问题var
//应该是
  lilv: single或是double  
begin
  lilv:=strtofloat(edit1.Text);
  edit4.Text:=FloatToStr(lilv);
end;

Answer 5

procedure TForm1.Button2Click(Sender: TObject);
var
  lilv: double;
begin
  lilv := StrToFloat(Edit1.text);
  edit4.text := Floattostr(lilv);
end;

Answer 6

var
  lilv: Double;
begin
  lilv:=strtofloat(edit1.Text);
  edit4.Text:=FloatToStr(lilv);
end;大家都说完了，呵呵，揭贴吧：）