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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
1 H4 r/ R) J) A3 a& Q- W" w{
  int m=0;
& T% N0 T% C6 s* X1 J6 R  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
/ t0 O, b9 [$ c/ R     char c=str;
     int check=isdigit(c);
     if(check ==0)
     {
       if(c!='.')
1 I; _2 A! J) k- w6 f- T         return false;
       else
       {
; `% K2 b# K  I         m=m+1;
         if(m>1)
           return false;
! z0 A9 C% ~$ w% r1 G' R       }
) d5 ^3 x  t: Y5 e  A& p( y2 Z1 @, Y     }
1 Z1 ^% Q7 }' l  }
  return true;
# D; y: C1 n5 {, S8 M" }}

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： 6 |2 A8 u0 k" C8 m% ]& x0 U$ {, s* j 5 S& T" @! e5 S0 Q4 ?6 ~2 i+ [3 l, h

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

' I( a# J: j; P$ p. J+ J

return true;

}

castch(...)

! z+ o1 d) W d6 G& j; X

{

return false;

}

& w; y8 v+ e1 Y0 w1 \9 m) q: V

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