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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
5 Z8 T: [* k% ~: o# Q3 d1 ~& b{
  int m=0;
  int b=str.Length();
" n3 Q) j* e# g' {' R0 [  for(int i=1;i<=b;i++)
  {
, _6 ?, }8 i* T& w2 i( X: h( [1 I     char c=str;
' e% ]1 U6 ]' g2 S# U9 S$ U     int check=isdigit(c);
7 W2 |& M5 Z; A8 h+ s$ M. c     if(check ==0)
     {
( x. {) }) _9 A$ ]       if(c!='.')
1 {  j% ~5 K" d! ^( w         return false;
       else
7 p2 |4 W( G+ F, z/ V8 Y5 L       {
         m=m+1;
         if(m>1)
- I& ?* G9 P0 o3 G' W) u# F           return false;
4 \/ K7 T2 J6 I) d- @6 ^       }
     }
  }
5 H* f; M6 {, U/ E9 R  M  return true;
- a! w! o: b) k5 V; K  A* B1 D5 s}

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： $ u# a* j7 R' G b: A

这样行不行?

! E& |" `4 i) p% ^- t8 k+ w- a

bool __fastcall TForm1::isnumber(const AnsiString str)

8 Q5 Q( L: G$ ~0 s( X" _

try {

# R6 q! n7 F5 w! U5 ?$ P; j

IntToStr(str);

# m; o0 `9 c1 q/ m1 |9 m. `* j2 Y

return true;

$ o1 c! ?" r- q1 H. ]2 o

}

+ W& S& }2 _9 P+ r1 x

castch(...)

7 j. d% ]! ]8 q

{

+ W, U- o) w' i; x0 N

return false;

$ q; U8 s2 H3 z8 p/ D

}

, P I$ `+ ]1 J5 u) H1 O. M; x7 X+ s

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