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;
解决方案 »
- AdvColumnGrid 如何设置可以让行高自适应文字内容
- 各位老大,请教关于delphi编程 “生成服务端” exe文件的方法
- DELPHI编写一个能处理表达式的计算器!
- 如何快速提取txt文件中2万条记录??
- 请教三层应用的简单连接问题!再追加50分!
- 在Delphi程序中如何修改注册表?
- 真好,学了一年的DELPHI还是第一次遇到,可是请问怎么实现呢?在线等!!!
- 第一个解决的50分:有没有不用循环将某一字段值全部变为一指定值的语句或SQL语句
- 如何给数据库添加密码而又不影响软件使用?
- 如何对出错EDBEngineError进行处理,显示出错误信息!
- TABcontrol控件怎样使用?
- 急!TADOTable过滤如何实现?
a := StrToFloat(replacestring(MaskEdit1.Text,' ','0',[rfreplaceall]));
a := StrToFloat(stringreplace(MaskEdit1.Text,' ','0',[rfreplaceall]));