如何判断在Edit中输入的内容都是数字 谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这样写:procedure TForm1.Edit1(Sender: TObject; var Key: Char);begin if not (key in ['0'..'9','-']) then Key := #0;end; 请问,#0是什么意思?是不是null? try I := strtoint(edit1.text);except showmessage('Error');end; rad_studio_2010_lite 完美绿色版 ~~~~~~~~~ 关于adoquery调用存储过程 自定义控件的问题 本人初学,想找对sqlserver表格增删改的程序,哪儿有? CSDN上搜一搜,相关发问者都没有得到同类问题解决----同命相怜,没有分祝大家身体健康 dbgrid和 fast report 200分寻求一个dbgrid导入excel的例子,急 这些语句不懂,请帮助! 各位晚上好,由于最近很忙,好久没光顾了,向大家问好! 一个数据库菜鸟问题 在一事件中调用另一事件的问题 几个SpeedButton如何设定成一组,让他们按下一个其他的弹起来????
var Key: Char);
begin
if not (key in ['0'..'9','-']) then Key := #0;
end;
I := strtoint(edit1.text);
except
showmessage('Error');
end;