L liyonggang Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-05 #1 edit中只允许输入0－9数字，不能屏蔽backspace，并保证输入数字位数合法，代码如何 实现？ 求助高手指点！
X xminsong Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-05 #2 if (key<chr(48)) or (key>chr(57)) then //判断输入是否0-9数字 if (key<>chr(8)) then key:=chr(0);//判断输入是否删除键
if (key<chr(48)) or (key>chr(57)) then //判断输入是否0-9数字 if (key<>chr(8)) then key:=chr(0);//判断输入是否删除键
M melice Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-06 #3 onkeypressed if key in['0'..'9',#8] then else key:=#0
L leejames Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-06 #4 我一般用和 melice 一样的方法， 位数你可以用 Length(Edit.Text)来判断，位数不足前面补零用 Format('%6.6d', [StrToInt(Edit1.Text)]); //假设你要6位数
我一般用和 melice 一样的方法， 位数你可以用 Length(Edit.Text)来判断，位数不足前面补零用 Format('%6.6d', [StrToInt(Edit1.Text)]); //假设你要6位数
D dedema Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-06 #6 什么输入位数合法，这只要设设置好maxlength就可以了。 要判断是否合法，只要在EDIT的onchange事件中， 用val函数进行判断就可以的。
