请问这个是什么意思.
mm := (Key <#8)or(Key >#8)and(Key<#48)or(Key>#57);
if mm then
Key := #0;
mm := (Key <#8)or(Key >#8)and(Key<#48)or(Key>#57);
if mm then
Key := #0;
解决方案 »
- 【求助】 如何读写 自定义扩展名的文件类型
- 那位有indy10 udpserver接收udp数据的例子
- 高分求,在线等QRDBRichText的简单问题,5点前结贴!
- Button1.caption := InStrTo(i)这哪里出错?
- 求救!如何获得这个存储过程的返回值?
- GetActiveOleObject,CreateOleObject函数是在哪个单元中定义?
- 紧急求救 TQuery 的问题
- delphi应用程序中,查询一次,正常,然后拔下网线,查询,在98下非法操作。请问各位大侠!如何捕获这个异常。分不多,但是非常非常感谢。
- 现有一TXT文件,欲将第一行和最后一行删除。望各位英雄赐教~
- 大学以下学历的程序员进来报个到!
- 悲莫悲兮生别离(google.cn),乐莫乐兮新相知(google.com.hk)
- 报表问题
懒的翻表了
没有记错ASCII码的话
应该是只能输入数字
48--57是数字0-9的ASCII码 #8是退格吧,不过看你的条件好象很乱
mm := (Key <> #8) and ((Key<#48)or(Key>#57));