Delphi 中有没有 JavaScript 的 ParseInt() 函数??? StrToInt 这个函数不好,有没有更好的?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TO;chechy(chechy) 我已经写好了,谢谢!在Exit事件中调用var i:integer;begin for i:=1 to length(sourcestr)-1 do if not(sourcestr[i] in ['0'..'9',#8]) then //#8 :backspace begin showmessage('Not integer, input again please!'); //获得焦点 (setfocus) exit; end;end; 关于按键被按下的判断 OPC Foundation 提供的SDK无法连接服务端 在使用delphi 2006的过程中遇到的问题! 求矩阵特征值的pascal代码。 在DBGrid中可不可以实现以下几个功能?如果可以的话该如何做? 小弟我正在做一个三层的应用,想保留原先系统的sql语句。? table表与Ttable组件的关联 郁闷!关于在stringgrid上画checkbox的问题? 压缩bmp文件 哪个大哥帮我吧下面的PASCAL代码修改成标准的DELPHI的代码啊!急用!! 关于 TFileStream 之二 是不是所有的网页上的操作都能转化成提交一张表单的操作??
我已经写好了,谢谢!
在Exit事件中调用var
i:integer;
begin
for i:=1 to length(sourcestr)-1 do
if not(sourcestr[i] in ['0'..'9',#8]) then //#8 :backspace
begin
showmessage('Not integer, input again please!');
//获得焦点 (setfocus)
exit;
end;
end;