if not (key in['0'..'9']) then
begin
key :=#0;
showmessage('必须填入数字!');
exit;
end;
begin
key :=#0;
showmessage('必须填入数字!');
exit;
end;
解决方案 »
- 关于做假帐问题
- 视频叠加的完美奉献,勘比目前所有OSD效果
- Windows NT,2000或XP下如何动态设置IP地址、掩码,默认网关
- 问题咨询
- 请问delphi界面的摆放控件的那个工具栏是怎么做的?
- 释放和指针的问题,好难懂
- 郁闷!散分......
- ado/mts的olecheck(objectcontext.createinstance(....,..,..))
- 我想做兼职程序员,最好可以远程办公
- 串口通讯问题,为何DELPHI中的串口通讯不能输出128及以上Ascii码?谢谢!!!!!!
- 想换个活法!!(求出路,各位进来说说!!)
- 关于在ADO中用MDAC2.6出现"Either EOF or BOF is true."的问题
begin
if (key='.') and (pos('.',Tedit(sender).Text)=0) then exit;
key:=#0;
end;
begin
if (key='.') and (pos('.',Tedit(sender).Text)=0) then exit;
key:=#0;
showmessage('必须填入数字!');
end;
begin
key :=#0;
showmessage('必须填入数字!');
exit;
end;
如果要负数就
if not (key in['0'..'9','.','-']) then
begin
key :=#0;
showmessage('必须填入数字!');
exit;
end;
( key<>#8) then
begin
application.messagebox('','');
abort;
end;
begin
if key in['0'..'9','.',#8] then
begin
//
end
else
begin
key:=#0;
showmessage('你的输入中不是数字的,请重新输入');
end;
end;
To: wjsfr(令狐葱)
#9代表'TAB'键?
都是垃圾~~~
这里面加个‘.’画蛇添足~~~