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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
. V, ~; J% {& x$ S( w{
9 F  X9 |  `  o+ P! j  int m=0;
  int b=str.Length();
/ |* C/ u( y. ]  for(int i=1;i<=b;i++)
/ p7 N1 T$ B) D! \  {
     char c=str;
7 w, F8 k6 }# h$ y9 ?     int check=isdigit(c);
2 |0 C9 |) A2 N* f' m     if(check ==0)
     {
       if(c!='.')
         return false;
  p# j" D' Z* F3 C- B: A1 n# L       else
- P* h" l" m: \  M       {
+ H8 z0 V2 Y6 o         m=m+1;
4 p5 G: F$ c9 j1 Y8 W# [         if(m>1)
! T% H6 C' [# a: D  O9 a; `& \           return false;
+ t3 B$ W  x( ]       }
) S; z& @2 ?; r8 j7 e, Z     }
  }
1 E. V0 y2 H: C# k6 k# S- g  return true;
) N+ g# w* }& 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的发言： 1 N# k% t0 q9 P g$ d2 _5 j

这样行不行?

: `- f$ b5 J8 g# A+ T

bool __fastcall TForm1::isnumber(const AnsiString str)

# M& T4 s7 [) p$ H

try {

6 P8 h9 [( Z! I0 a

IntToStr(str);

9 _* N3 U" z# f9 c$ t

return true;

}

castch(...)

7 s$ X# z2 s( d' n9 m# O4 {1 y

{

return false;

}

$ o6 U/ |2 J* B+ B! q" G

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