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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
2 U. t. f: |8 ~. Y, _{
& J% p1 F. E; m  int m=0;
3 m' u- w; T9 e+ v- X$ B; Z  int b=str.Length();
  for(int i=1;i<=b;i++)
2 b" Z2 f6 g9 E* n6 J+ G  {
     char c=str;
1 s! p! B, m4 X, [; d( ?' ?     int check=isdigit(c);
     if(check ==0)
4 B2 B" g  o0 k3 n6 b% Z" t     {
' c$ }, Q, J7 x1 S8 [       if(c!='.')
* a  ?$ N) @) }) b9 z7 K         return false;
       else
7 v% F6 ^9 a! F1 I* _" e2 r) Y$ ?       {
8 s$ _5 Q6 |2 {+ e! `         m=m+1;
6 f2 i# D+ i" D- `' b" m$ O         if(m>1)
           return false;
# N2 i' K  F7 T& H+ z       }
     }
  }
  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 Q% u, v# K/ [% p O3 Q

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

( w: I" w! e( a, Z

try {

IntToStr(str);

# F8 e7 m$ P; _* B" c

return true;

}

castch(...)

{

; M% {0 L: W% E1 c

return false;

7 x4 W& v! Y7 j! ]" R: C0 Q. t

}

( M2 q3 p. a" X8 x8 Z

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