S Solid_Snake Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-20 #1 比如输入0,00,000,0000...是非法的，01,001,0001...是合法的，如何判断呢？？
C CrazyCat Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-20 #2 var i:integer; try i:=StrToInt(Edit1.Text); except Application.MessageBox('请输入数值'); end; if i=0 then 非法 else 合法; 不知道你要的是不是这个!
var i:integer; try i:=StrToInt(Edit1.Text); except Application.MessageBox('请输入数值'); end; if i=0 then 非法 else 合法; 不知道你要的是不是这个!
H hanpengshan_00 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-20 #3 function dd():boolean; begin 把edit1.text复制给一个char[]数组a; result=false //是不是全部是数字 for i:=0 to length(edit1.text)-1 do begin if a是1-9之间的字符 then //具体更多的条件自己再加 begin result :=true exit; end; end end;
function dd():boolean; begin 把edit1.text复制给一个char[]数组a; result=false //是不是全部是数字 for i:=0 to length(edit1.text)-1 do begin if a是1-9之间的字符 then //具体更多的条件自己再加 begin result :=true exit; end; end end;
