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;