Y yuuh Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-16 #1 1.如何判断在LABELEDEDIT控件里输入的是0-9组成的数字（存为数值型）而不是除0-9外的字符
G gutian Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-16 #2 在editchange中判断 byte(edit.text[length(edit.txt)])
W wserfer Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-16 #3 不让它能输入数字以外的玩意儿得了: ONKEYPRESS()事件中 BEGEIN if not (key in ['0'..'9',#8,#13]) then key:=#0; END: 要不然,你判断吧: ONKEYPRESS()事件中 BEGEIN if not (key in ['0'..'9']) then showmessage('您输入的不是字符') else showmessage('您输入的是字符'); END:
不让它能输入数字以外的玩意儿得了: ONKEYPRESS()事件中 BEGEIN if not (key in ['0'..'9',#8,#13]) then key:=#0; END: 要不然,你判断吧: ONKEYPRESS()事件中 BEGEIN if not (key in ['0'..'9']) then showmessage('您输入的不是字符') else showmessage('您输入的是字符'); END:
E e_hua Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-16 #4 可以输入完跳离时判断： StrToInt(Trim(Edit1.text)); except on EConvertError do Application.MessageBox('非法输入！','系统提示',MB_OK);
可以输入完跳离时判断： StrToInt(Trim(Edit1.text)); except on EConvertError do Application.MessageBox('非法输入！','系统提示',MB_OK);
