判断字符串是不是纯数字

来源:互联网 发布:淘宝商城床 编辑:程序博客网 时间:2024/05/01 16:19
[delphi]function TfrmStaff.isNum(str:string):boolean;vari: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]
0 0