delphi isNum 判断字符串是否是数字

function isNum(str:string):boolean;

var

  i:integer;

begin

  for i:=1 to length(str) do

    if not (str[i] in ['0'..'9']) then

      begin

        result:=false;

        exit;

      end;

  result:=true;

end;