G gyluwoo Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-02 #1 如何做到这一点：首先判断Edit的内容是否是整数，然后看它是不是大于0，如果不是就抛出异常
G gyluwoo Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-02 #2 还有就是判断Edit的内容是否是“Y”或者“N”（大小写不敏感），如果不是则抛出异常
Y yuzk2005 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-02 #3 try if strtoint(edit.text)<0 then showmessage('异常'); except showmessage('异常'); end;
S sefeng1982 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-02 #4 if (trystrtoint(edit.text))>0 or (edit.text='Y') or (edit.text='N') or ....
F firefox_me Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-02 #5 if(StrToInt(Edit.Text)>0)then begin ShowMessage('异常'); end;
S sefeng1982 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-02 #6 明显strtoint 不是一个返回boolen 的函数,怎么可以直接if trystrtoint 函数才可以
G gyluwoo Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-02 #7 我的意思是这样的，比如限制Edit只能输入数字，可以这样写： try StrToDate(Trim(edt.Text)); Date:= edt.Text; except ShowMessage('输入有误!'); Exit; end; 把它改成判断是否是整数，然后看它是不是大于0，或者是否是“Y”或者“N”（大小写不敏感），只要错误直接异常
我的意思是这样的，比如限制Edit只能输入数字，可以这样写： try StrToDate(Trim(edt.Text)); Date:= edt.Text; except ShowMessage('输入有误!'); Exit; end; 把它改成判断是否是整数，然后看它是不是大于0，或者是否是“Y”或者“N”（大小写不敏感），只要错误直接异常
