MASKEDIT求救

[baw]

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;

[weitao999]

还有这种错？
a := StrToFloat(replacestring(MaskEdit1.Text,' ','0',[rfreplaceall]));

[weitao999]

函数错了
a := StrToFloat(stringreplace(MaskEdit1.Text,' ','0',[rfreplaceall]));