一个判断输入的字符串是否为数字的函数！

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
) Y6 D  x( B6 d. G) D% g1 Q4 z{
  int m=0;
  int b=str.Length();
1 C; r2 e$ R% M; C9 P- t& o  for(int i=1;i<=b;i++)
  ~& ~: E3 O- ^$ z/ L9 l2 }  {
     char c=str;
! J4 }, ?# D0 o' f3 c     int check=isdigit(c);
& w; ^% c4 L$ w* M2 L     if(check ==0)
% }1 q; b  w4 t  n. o3 ~% D     {
6 S; N: K1 y6 A% D) p6 ?) U       if(c!='.')
         return false;
       else
* o8 B7 v5 _6 N8 ], k9 @       {
         m=m+1;
& @' l& c# w; t0 D9 b6 _         if(m>1)
, B5 N* N1 o7 w; ^# a           return false;
       }
     }
* m* E* b- ?  `  }
  return true;
}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： - X3 H- {: \2 x

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

% w$ `" Y4 e* v, `$ a/ w, }

return true;

% {5 V/ ^. P1 H2 ?, x6 E5 p( e+ O

}

}& a& t# @3 x' u( k; W

castch(...)

{

return false;

}

注意对于一个函数来说,应该做的尽量健壮,你的那个函数利用了VCL的默认异常处理器，但是如果你在析构函数中需要利用这个函数，就不能用你这个函数，因为析构函数很可能就是一个异常引起的，它需要释放一个对象的内存，要是在这里还要引发异常的话，就很难做到了！

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}