怎么把editbox的值转为浮点数

shemin

因为要用到数学运算，请教怎么把editbox的值转为浮点数，delphi上的strtofloat在这里行不通，还有运算符号，如*（乘）等等也不识别，好多和delphi都不一样，郁闷。

lcjclj

Edit1: TEdit;
    Edit2: TEdit;


procedure TForm1.Button2Click(Sender: TObject);
var
  ANum: double;
begin
  ANum := StrToFloatDef(Edit1.Text, 0);
  Edit2.Text := FloatToStr(ANum * ANum);
end;     

运行结果正确呀！

zeus-chu

@shemin:
StrToInt() 和 StrToFloat() 一类的函数本来就不会识别乘号。如果你要求符号表达式 (symbolic expression) 的值的话，得自己写 parser + evaluator。