如何判断一字符串都是是数字

Question

Result := True;
for i := 1 to Length(s) do
  if not(s[i] in ['0'..'9']) then
  begin
    Result := False;
    Break;
  end;

Answer 1

还要看字符串有多长，
var 
  str:ansistring;
  i:integer;
begin
  for  i:= 1 to length(str)
      begin
         if (ord(str[i]) <$30) or (ord(str[i]) >$39) then 
            就不全是数字拉
      end; 
end;

Answer 2

try
 StrToInt(Str);
except
  //不是;
end;

Answer 3

cul(恐龙++) 的方法最好啊，

Answer 4

cul(恐龙++)  的方法有问题，如果字符串长，超出了范围，也会引发异常。这种方法就弄巧成拙了。

Answer 5

在DELPHI中，如何判断一个字符是数字？