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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
9 K2 P* K* v  v{
  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
7 p; V+ Q6 i( f7 ]  {
     char c=str;
( q- S2 f% R8 P5 g     int check=isdigit(c);
     if(check ==0)
     {
& N( e1 d# w+ b8 \; w. X- s* T       if(c!='.')
         return false;
0 H( Q+ P: e  ^, w% X+ O       else
       {
+ x6 H2 b* Q6 H7 X# H" o         m=m+1;
% y( u$ {/ R* l3 U         if(m>1)
           return false;
( e' U. C3 O( i* I       }
) @, C! w+ `6 ^/ Z) I& f     }
  j' i/ L! B2 F" T  }
  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的发言： 4 z ]- [, {- x. |7 y' r

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

9 ~+ z! W% a1 R

try {

IntToStr(str);

$ [& L" _1 |/ M* ?2 L

return true;

( U4 R! s8 R* ]) E1 t+ B- s1 ]

}

castch(...)

( l) G! Y6 U* M/ w! c- O

{

return false;

# b, m- R& b+ H6 T l

}

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