摘要： 用抛出异常来判断是效率最低的，不考虑。以下两种方法都很高效，可用在不同的需要时。function IsNum1(str :string):boolean;//用在只需需判断长字符串里的每个字符是否都是整数时很好用var i :ShortInt;//根据需要设定i长度，这里只设到128.begin Result :=True ; for i :=1 to length(str) do if not ( str[i] in ['0'..'9'] ) then begin Result :=False ; Exit; end;end;function IsNum2(s 阅读全文