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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
  f. z# b' R5 o4 {+ l' o' o{
  int m=0;
  int b=str.Length();
, W. n% {8 _: {  for(int i=1;i<=b;i++)
; D0 A) f: A7 U- V2 d  l# y  {
! A3 i4 X" ~# R: B     char c=str;
' ~" W2 B5 t+ }5 x( d     int check=isdigit(c);
1 m' K7 ~4 h! [( w     if(check ==0)
7 l# G# J( d' `: p* [: e0 ]5 O5 K     {
       if(c!='.')
         return false;
       else
7 b# z+ A7 P( a8 c       {
1 Z# ?& B6 N$ [         m=m+1;
4 A6 V  ?. C6 H# {9 f* J4 h         if(m>1)
+ f. W$ l" k! G5 g           return false;
) w; J) t' g; P6 ^* d       }
3 D$ F4 k2 {  q0 j; `7 W* P     }
  }
  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的发言： [; K4 k( a+ S+ k L- {9 C / M- i4 h& c& W w& {- v' q

这样行不行?

- I# G& }( L# _5 C* R

bool __fastcall TForm1::isnumber(const AnsiString str)

& T# d! K' M! C! w

try {

IntToStr(str);

return true;

}

castch(...)

{

- B7 U% u" f' k* [! B

return false;

}

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