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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
8 `* e8 e; x* T2 c' p- B8 ^{
  int m=0;
  int b=str.Length();
( K7 u' h, |. o- W; b1 l  B  for(int i=1;i<=b;i++)
+ p/ G3 a* B) }; ?  {
     char c=str;
     int check=isdigit(c);
% `5 \/ U/ F3 I# u( E# f: K     if(check ==0)
, I1 j; B7 M0 G  s# z, ~  F' y     {
       if(c!='.')
7 O3 {2 q: e, D9 ?, p         return false;
       else
! N/ K8 @" V* q  l( `+ I       {
         m=m+1;
         if(m>1)
           return false;
- v- p8 W( f, J2 ?: x: M5 T) ^       }
. {. S0 Y! F+ e/ x0 Q+ u     }
. R% ^1 p; B& d9 j1 X" U9 w" K2 p  }
, Y+ z; R9 W& g+ v. F( a  return true;
8 I7 o! K7 \8 t; }( r+ N}

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言：

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

5 J0 q8 T9 d3 a+ `" Y7 C

try {

Q+ Z# A2 l- N6 W9 d+ S

IntToStr(str);

return true;

}

castch(...)

{

8 l, z. p* v( p& |& e1 P1 l# u$ G

return false;

3 L6 |/ c) _1 f5 X) @

}

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