G gongshan Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-24 #1 在edit项输入月份值1-12，程序想检测输入是否合法，怎样用定义一个 东西，包含1-12的整数，通过检测输入值是否是这个东西来检测输入 是否合法？ 或有其它什么好方法?
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-24 #2 if strtoint(Edit1.text) 在1到12之间 then 合法
V Victortim Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-24 #3 Month:=StrToInt(Edit1.Text) if (Month>0) and (Month<13) then isok else NoOK;
C Chenlili Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-24 #4 month : set of 1..12 if yourmonth not in month then ....
K Kang Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-24 #5 Try IsValid:=StrToInt(Edit1.Text) in [1..12]; Except IsValid:=false; end;
