如何防止非法字符的输入呢? 如何防止非法字符的输入呢?还有怎么样控制输入的位数呢?能有人告诉我吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 (1)procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Key in['0'..'9',#8]) then Key:=#0;end;(2)maxlength 帮忙看一下这段代码 ehlib安装 請問 published 定義的范圍? 下面两段代码有什么不同!!(三根鸡毛信!) 关于pascal与object pascal 有多大的差别,需要学习pascal再学object pascal? 关于TService和IDTCPServer的问题 哪里有SkinForm下载必须要有源码的哦! 求助:关于打印的问题 一个关于给控件添加属性的问题 求解 怎么让一个程序的一个功能在一个时间段自动开启或关闭(50分) hehe
begin
if not (Key in['0'..'9',#8]) then
Key:=#0;
end;
(2)maxlength