判断字符是否为整数、浮点型小数、字符串

function TForm_fangyuanhuizong_tubiao.IsNumber(s: string): integer;     //判断是否为整数、浮点型小数、字符串
var  
i   :   integer;
begin
      result   :=   2;
      for   i   :=   1   to   Length(s)   do  
      begin  
          if   (s[i]   <   '0')   or   (s[i]   >   '9')   then  
          begin  
              if   (s[i]   =   '.')   and   (i   <>   1)   and   (i   <>   Length(s))   then  
              begin  
                  if   result   =   1   then  
                  begin  
                      result   :=   2;  
                      Exit;  
                  end;  
                  result   :=   1;  
                  continue;  
              end;  
   
              exit;  
          end;  
      end;  
      if   result   <>   1   then   result   :=   0;

      //返回   0   --   integer     1   --   double         2   ---string
end;

 

posted on 2016-08-17 08:23  那里的天空  阅读(4052)  评论(0编辑  收藏  举报

导航