OnKeyPress
if key in [0..9] then
if key in [0..9] then
解决方案 »
- 如何设置 IE宽带代理服务器的代理地址
- 在函数中定义一个引用了TADOQuery, 函数执行结束, TADOQuery是否自动释放 ?
- DBGridEH里镶嵌了CheckBox,当打勾或取消打勾时触发什么事件?
- 问一个DLL里面的奇怪问题.
- 怎样让程序运行到某行代码时停止运行
- 再次,高分求一带进度条的数据备份与恢复的ACEESS的源码?
- 如何写一个自己的Button能够改变字体颜色
- 谁能推荐一个进度条控件...
- 如何判断一字符串都是是数字
- delphi7中Socket能信维持问题?
- 如何把image1中的,图片,用ViewAsText 的一些Data中的图元信息,还原成BMP图形,一般的好象没有相关的语法可以利用
- TNND 谁说Delphi做数据库吃香啊??老子翻了近两个月的数据库开发的招聘记录,60个公司中只有一家要Delphi的,真TMD丧气,不学了不学了
OnKeyPress
if not(key in (['0'..'9',#8,#46])) then
key:=#0;
//判定:function:boolean;str:=Edit1.text;
Result:=str<>'';
for i:=1 to Strlen(Pchar(str)) do
if not(str[i] in(['0'..'9'])) then
begin
Result:=False;
Break;
end;
end;
var
i:integer;
begin
try
i:=strtoint(Edit1.Text);
except
showmessage('你输入的不是整数');
exit;
end;
showmessage('输入的整数为:'+intotostr(i));
end;
可以用trystrtoint;但isnumernic不好,它限定在0..9,是可以,不过只能针对一个字符
inttostr
strtoint
....