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;

代码二

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;

到此这篇关于delphi 判断字符串是否为纯数字组合的文章就介绍到这了,更多相关delphi纯数字内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！