delphi 判断字符串是否为纯数字组合

在 Delphi 开发中，判断一个字符串是否完全由数字组成，是相当常见的需求。无论是校验用户输入、解析数据，还是做格式预处理，这个场景几乎绕不开。下面分享两个实现方案，代码风格略有不同，但都能完成工作。

function IsNUM(Vaule:String):boolean; //delphi 判断字符串是否为纯数字组合
var
i:integer;
begin
Vaule:=trim(Vaule); //去空格知
for i:=1 to length(Vaule) do //准备循环
begin
if ( Vaule[i] in ['0'..'9'])  then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回
begin
result:=true; //返回值 不是
end
else
begin
result:=false; //设置返度回值为 是
exit;
end;
end;
end;

第一个版本的逻辑很直白——先去掉首尾空格，然后逐个字符判断是否在 '0'..'9' 范围内。一旦发现非数字字符，立即将结果设为 False 并退出函数。这里有个细节：result 默认值在 Delphi 中其实是 False，但代码里先将 result 改成 True 再在遇到非数字时改回 False，这么做虽然不影响最终结果，却多了一次赋值。另外，注释里写的是“A-Z或者a-z”，实际判断的却是数字范围，看得出可能是从某个判断字母的函数改过来的，功能上没问题，但注释容易让人困惑。

第二个版本则更清爽一些。

function   IsNum(str:   string):   Boolean;  
  var  
      i:   Integer;  
  begin  
      Result   :=   True;  
      for   i   :=   1   to   Length(str)   do  
          if   not   (str[i]   in   ['0'..'9'])   then  
          begin  
              Result   :=   False;  
              Break;  
          end;  
  end;

这个版本没有对字符串做 Trim 处理，因此如果传入的空格也会被判定为非法字符。另外使用 Break 代替 Exit，循环提前结束但函数体仍会走到末尾，写法更符合结构化编程的习惯。两者的核心思路完全一致：遍历字符串，检查每个字符是否在数字集合内。区别仅在于进入循环前是否去除空格，以及退出方式。

实际使用中建议根据需求选择：如果需要容忍前后空格，可以用第一个版本（前提是修正注释）；如果要求严格不带任何空格，第二个版本更简洁。当然，Delphi 里也提供了 TryStrToInt 等现成方案，但对于纯字符级别的判断，这两个函数是轻量且可靠的选择。