delphi 判断字符串是否是数字

function IsNumeric(const s: String): boolean;

var

  i: integer;

begin

  result := true;

  for i := 1 to length(s) do

    if not (s[i] in TSetOfChar(['0'..'9'])) then begin

      result := false;

      exit;

    end;

end;