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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
  int m=0;
' ]6 [* `3 G* I  J. O9 Z  int b=str.Length();
  for(int i=1;i<=b;i++)
6 F: o# A6 j# l4 N) c) K  {
     char c=str;
4 e4 i$ Y2 L  C     int check=isdigit(c);
0 y8 W; Q$ q9 f) X2 J0 r     if(check ==0)
     {
  _  j- h% h" d% t# T       if(c!='.')
! y! {( [4 l  o% J9 j0 o- |' }         return false;
       else
       {
. e7 h+ m% r) j2 N) }         m=m+1;
         if(m>1)
           return false;
       }
     }
/ \& |5 B7 n* K3 _+ S  }
  return true;
}

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： 3 @2 g1 y! j) C1 v& i

这样行不行?

3 F7 I" _; G/ W8 X8 U

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

( ? K1 D9 S3 \- M& d |# ]

IntToStr(str);

+ l3 \- h# t F8 m2 A1 X- p

return true;

0 p; W0 s& J0 b- Y5 |+ ]( u* V5 x a

}

castch(...)

9 p1 f" S8 X k# s. Y

{

return false;

}

) M: p* U$ A7 G3 W. q

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