注册 登录
编程论坛 Delphi论坛

[求助]判断输入是否为数字

冰凝1984 发布于 2006-07-14 16:49, 916 次点击
我试图用以下语句判断输入edit4中的内容是否为数字(在一本书上看到的),但总是没有成功,不知道为什么。
try
numOut:=strtoint(edit4.Text);
except
showmessage('请正确输入数量!');
exit;
end;
只有本站会员才能查看附件,请 登录

3 回复
#2
冰凝19842006-07-14 20:45
请问还有没有其它方法可以实现这个功能
#3
ysp_19842006-07-15 17:15

在edit1的keypress事件中输入下面的代码:
if not key in['0'..'9'] then
key:=#0;

#4
冰凝19842006-07-16 21:17

1