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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
2 H9 K+ e6 @0 X  }8 b{
  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
& E2 p7 S# J6 P8 }* D! e  {
0 b( s0 \; F9 t1 Y0 F     char c=str;
     int check=isdigit(c);
     if(check ==0)
     {
       if(c!='.')
! p9 j( L/ Y; R+ j         return false;
       else
       {
/ ?1 D2 n- M: B7 x         m=m+1;
9 H) b3 g# s$ Y2 p! L0 h9 t         if(m>1)
           return false;
       }
0 m5 `" d! a( d* Z     }
. Y: z) j. _) ?$ L* Y  }
  return true;
! T7 Z1 K7 |6 `' \  Z}

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： ! H1 S' K7 y- j" e0 }0 }" D3 |

这样行不行?

4 M: R8 U1 d: ^' R$ w

bool __fastcall TForm1::isnumber(const AnsiString str)

* f1 [7 c: ]) K, b

try {

IntToStr(str);

return true;

# N5 L" R& _0 X7 |

}

1 J( Z2 V7 l3 h' Z& ]- Q! m- y

castch(...)

4 D+ K1 [, P! x+ s0 X2 e# s* e& U

{

return false;

}

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