maskedit输入小数的问题(50分)

smartdelphi · 2002-09-08

要输入一个小数
小数点前5位，小数点后3位

把editmask 定义为!99999.999!
但是
在输入后，转化时又可能不是一个有效的浮点数
例如输入123**.1，**表示这两位没有东西， .

谁有好办法解决

truecat · 2002-09-08

转化时用try... except...end;
例：
var a:double;
trye
a:=strtofloat(edit1.text);
except
showmessage('输入有误，请重新输入');
end;
OK！

smartdelphi · 2002-09-08

怎么从格式上就能够保证呢

truecat · 2002-09-08

再结合format吧。

twos · 2002-09-09

自己处理呀，把blank char去掉
使用maskedit一般要配合自己处理

cg1120 · 2002-09-10

不如用edit来限制key吧

naughtboy · 2002-09-10

同意cg1120的说法，这样才是最能让自己放心的：）

smartdelphi · 2003-07-23

多人接受答案了。