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函数进行判断就可以的。