求高帮忙将Edi4.Text中的文本8转成实数整数然后赋傎给Ymax

Question

将Edi4.Text中的文本8转换成整数8，实数然后赋傎给Ymax 求高手帮忙了先谢谢

Answer 1

var
  Ymax : Double;
begin
  ......
  Ymax := StrToFloat(Edit4.Text);
  ......
end;

Answer 2

var 
 ymax : double;
begin
 
ymax := strtofloat(edit4.text);
 
end;

Answer 3

var 
ymax : double; 
begin ymax := strtofloat(trim(edit4.text)); end;
我觉得加个trim函数会更好一点。

Answer 4

var 
  Ymax : Double; 
begin 
  ...... 
  Ymax := StrToFloat(Trim(Edit4.Text)); 
  ...... 
end;