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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
' T& N; ~& [" [& y4 j{
; j: P% }2 n. C/ i  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
. G+ i+ p7 Q, s  {
* j% }# ^. i/ p/ U. j8 m     char c=str;
     int check=isdigit(c);
     if(check ==0)
, N+ c# K1 \% ?6 W8 z, x7 Q, z  Z     {
       if(c!='.')
( j; G: W8 h/ F8 L" u% j         return false;
& n. A5 ?2 _, r" M1 {1 G       else
       {
' Q' [, K, }4 w; K. Q3 t/ l         m=m+1;
' F; x* u1 v# |2 S         if(m>1)
4 H3 h+ C5 @5 o* i7 ^2 G) q' J+ b           return false;
       }
( j% [9 w4 e$ f- y5 z0 R: }     }
  }
  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的发言：

这样行不行?

2 F% R$ A7 d3 ~

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

# W" H4 E" J/ ^

IntToStr(str);

" N v. w: k- K9 w% u

return true;

}

castch(...)

( E. J0 P$ i I5 [

{

, h* K X; _3 S' h" x! z

return false;

3 u; I2 |$ B( b$ W. S

}

2 }+ U/ @( I8 x+ f2 d) B# p7 z

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