[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]
判断字符串是不是纯数字
最新推荐文章于 2023-10-31 14:38:57 发布
[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]