S spyder Unregistered / Unconfirmed GUEST, unregistred user! 2009-05-28 #1 请问，我怎么限定EDIT的输入的字符为合法数字，比如关于小数点的(第一位不能为.并且在输入的字符中不能出现两个或者以上的.）这个怎么实现啊！还有一个就是关于EDIT显示的，怎么使它输出的显示数字保留有效的位数，比如保留8位（超出的就四舍五入）！谢谢啦！
请问，我怎么限定EDIT的输入的字符为合法数字，比如关于小数点的(第一位不能为.并且在输入的字符中不能出现两个或者以上的.）这个怎么实现啊！还有一个就是关于EDIT显示的，怎么使它输出的显示数字保留有效的位数，比如保留8位（超出的就四舍五入）！谢谢啦！
H hunterII Unregistered / Unconfirmed GUEST, unregistred user! 2009-05-28 #2 输入为数字都很好解决，判断一下输入的 数值是不是在0~9，以及.等范围内就 OK了，至于四舍五入就用FORMAT吧
H hs-kill Unregistered / Unconfirmed GUEST, unregistred user! 2009-05-28 #3 用MaskEdit.....自己写mask....不过我也不会写....囧不如直接找个第3方控件去....或者不管输入的是什么 在最后验证的时候加一步验证输入数值的合法性检查就好了trystrtofloat保留有效位数用format就好了
用MaskEdit.....自己写mask....不过我也不会写....囧不如直接找个第3方控件去....或者不管输入的是什么 在最后验证的时候加一步验证输入数值的合法性检查就好了trystrtofloat保留有效位数用format就好了
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-05-29 #4 关于小数点的第一位不能为.procedure TForm1.Edit1Change(Sender: TObject);var i:integer;begin i:=pos('.',edit1.text); if i=1 then begin showmessage('第一位不能为小数点，请先输入数字！'); edit1.Clear; edit1.SetFocus; end elseend;
关于小数点的第一位不能为.procedure TForm1.Edit1Change(Sender: TObject);var i:integer;begin i:=pos('.',edit1.text); if i=1 then begin showmessage('第一位不能为小数点，请先输入数字！'); edit1.Clear; edit1.SetFocus; end elseend;
逍 逍遥小鱼 Unregistered / Unconfirmed GUEST, unregistred user! 2009-06-02 #5 在edit 的onkeydown里写代码控制，判断key,规则自己定义好，想怎么控制就怎么控制。hoho。。
