MaskEdit1.EditMask := !99.99;1;_
var
a: float;
begin
a := StrToFloat(MaskEdit1.Text);
end;
输入0.2会后会现出如下错误提示:
'0 .2'is not a valid floating point value;
var
a: float;
begin
a := StrToFloat(MaskEdit1.Text);
end;
输入0.2会后会现出如下错误提示:
'0 .2'is not a valid floating point value;
a := StrToFloat(replacestring(MaskEdit1.Text,' ','0',[rfreplaceall]));
a := StrToFloat(stringreplace(MaskEdit1.Text,' ','0',[rfreplaceall]));