请问一个很弱的问题，怎么判断一个字符串是否为数字？

Question

小弟刚学delphi,请各位帮个忙。

Answer 1

http://expert.csdn.net/Expert/topic/1765/1765854.xml?temp=.7378351

Answer 2

function IsNumber(s: string): Boolean;
var
  i: Double;
begin
  try 
    i:= StrToFloat(s);
    Result:= True;
  except
    Result:= False;
  end;
end;

Answer 3

function IsNumeric(AStr: string): Boolean;
var
  iTemp: Integer;
begin
  Result := False;
  Try
    iTemp := StrToInt(AStr);
    Result := True;  
  Except
    Result := False;
  end;  
end;

Answer 4

不会吧这么相同，jan2002(阿吉) 交个朋友怎么样看你代码写的蛮规范

Answer 5

function IsNumber(s: string): Boolean;
var
  i: Integer;
  a : Char ;
begin
  Result := True ;
  for i:= 1 to length(s) do
  begin
   a := s[i];
   if a not in['0'..'9'] then
   begin
     result := False ;
     Exit ;
   end ;    
  end ;
end;

Answer 6

function IsNumber(s: string): Boolean;
var
  i: Integer;
  a : Char ;
begin
  Result := True ;
  for i:= 1 to length(s) do
  begin
   a := s[i];
   if not (a  in['0'..'9']) then
   begin
     result := False ;
     Exit ;
   end ;
  end ;
end;