var i:integertry i := StrToInt(S); except ShowMessage('请输入一个合法的整型数'); end;
try i := StrToInt64(S); except ShowMessage('请输入一个合法的整型数'); end;
如何判断 587239485794823759834572634532895762394857asd848974572352345 是不是整数?我认为还是循环一下吧!type t = set of '0'..'9'; Result:= True; for i := 1 to Length(s) do begin if not (s[i] in t) then begin Result:= False; end; end;
yourInt:integer;
if TryStrtoint(YourStr,YourInt) then
N := StrToInt(S);
except
ShowMessage('不好转换');
end;
strtoint();
except
showmessage('不能转换!');
end;这算是个死方法
i:integertry
i := StrToInt(S);
except
ShowMessage('请输入一个合法的整型数');
end;
i := StrToInt64(S);
except
ShowMessage('请输入一个合法的整型数');
end;
587239485794823759834572634532895762394857asd848974572352345
是不是整数?我认为还是循环一下吧!type t = set of '0'..'9';
Result:= True;
for i := 1 to Length(s) do begin
if not (s[i] in t) then begin
Result:= False;
end;
end;