判断字符串是不是纯数字

[delphi]
function TfrmStaff.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;
[/delphi]