怎样判断一个字符串为全部为数字

Question

try
  strtoint('23423');
except
  showmessage('error');
end;

Answer 1

try
  strtoFloat('23423');
except
  showmessage('error');
end;   

Answer 2

function IsNumberStr(mStr: string): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := 1 to Length(mStr) do
    if not (mStr[I] in ['0' .. '9']) then
      Exit;
  Result := True;
end;

Answer 3

function IsNumber(mStr: string): Boolean;
var
  I: Real; //IsInteger() -> I: Integer;
  E: Integer;
begin
  Val(mStr, I, E);
  Result := E = 0;
end;

Answer 4

try
  strtoint('23423');
except
  showmessage('error');
end; 

Answer 5

如果字符串长（大于9个字符），就一个个判断字符是否是数字，
否则就VSaber(☆浪人☆)等的方法。

Answer 6

//建议使用Delphi6.0提供的标准函数
TryStrToInt()
TryStrToFloat()
TryStrToDate()
TryStrToTime()
TryStrToBool()
//............

Answer 7

function IsNumberStr(mStr: string): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := 1 to Length(mStr) do
    if not (mStr[I] in ['0' .. '9']) then
      Exit;
  Result := True;
end;

Answer 8

同意:zswang(伴水)(需要充充电)
用 Val 函数即可，你可以查查帮助就应该知道怎么用了。