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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
0 B- t3 b$ S4 _' f0 }  {{
: O8 G! R% {  A, M; Z/ @  int m=0;
2 [1 c5 Z8 a7 u6 H* _7 g9 L  int b=str.Length();
" k8 v, W3 B( H( \" w) p  for(int i=1;i<=b;i++)
  {
     char c=str;
     int check=isdigit(c);
     if(check ==0)
* Y+ \" W/ ?& E/ b7 Q5 ?8 e     {
       if(c!='.')
         return false;
( v, b' u( `5 i7 Z  [+ l* l% r       else
       {
( k6 s4 K8 s$ O+ C# i6 @         m=m+1;
         if(m>1)
           return false;
! a7 M4 @2 U& g% I) X( |( ~       }
/ [+ O% D9 ^% E, B9 G     }
  }
7 t3 P' u% M0 K% s9 |+ U  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的发言： - z4 n* q3 L: ~. w/ X 2 A* a! `3 i& z1 E' a7 y( T

这样行不行?

. S/ T" N# @; {9 ~

bool __fastcall TForm1::isnumber(const AnsiString str)

3 n [" B: K8 ]( P$ {

try {

, w; z$ ]* X& W. }2 ?- F

IntToStr(str);

1 a5 X, ~4 Z7 @0 D% Y4 |( y5 D) ]

return true;

1 R' `) d' H) V% P

}

; C7 H4 `8 |# y. `2 ^5 B+ w1 `

castch(...)

{

return false;

9 c& B' y2 X" R3 g2 C! n

}

' m2 ?: Z- z+ P$ a$ K

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