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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
4 w- @( i8 |5 w/ m{
2 J9 n2 |- H4 w- w' t  int m=0;
  int b=str.Length();
! h! }7 l4 f- D  for(int i=1;i<=b;i++)
  {
/ l# e0 ?6 }/ \  S& {     char c=str;
% Q0 A+ j7 [3 J" c     int check=isdigit(c);
     if(check ==0)
     {
       if(c!='.')
         return false;
$ I, D( u$ X, E9 I; ]5 B* g6 }       else
* f3 ~/ e( N- P+ i2 E       {
) @  Z% s3 `. I* [         m=m+1;
+ H3 K8 x8 M  ?# s, k3 [2 _         if(m>1)
( f' O; j1 L. K# K8 l# {7 h1 t4 A, y           return false;
; u. J2 c3 A9 b; X" C3 V' G# p       }
7 d* a) ~- @9 q& \! [8 l2 ^3 p     }
/ B" |7 g" I+ M  }
  return true;
9 k# H& R, d4 J/ W* A4 }- r3 _}

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： # n7 N. M. \# V& z9 |

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

P9 T% y3 d9 `3 K6 L

IntToStr(str);

return true;

0 n6 g* I8 ~* f: A

}

- k W* ^, T0 K: c4 ]( D$ s

castch(...)

{

# v+ D& y2 _ _8 E: a% z; o: F

return false;

& Y, h/ m7 l2 M1 [2 E; y4 D/ |3 J

}

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