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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
! e9 C; f1 e! B5 z0 r  x2 S# P     char c=str;
: C7 ]. o) Y5 J  G1 C* w" O% Y     int check=isdigit(c);
     if(check ==0)
  I2 ^/ r  }6 Y     {
       if(c!='.')
         return false;
       else
       {
: C! [' \) K. O         m=m+1;
& _+ Y) v4 ~- Y3 E/ ?         if(m>1)
           return false;
       }
     }
  }
  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的发言： 3 J. ]* R9 G, j8 | 6 }8 |5 |. W- I6 C

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

/ K+ V; c& A% p& P+ ]% K; S

}

castch(...)

{

N9 d& u% s4 a! d' X* y4 c2 s

return false;

; z0 ~. D: ^% x8 {/ N

}

9 D+ ]8 b8 x" b, l) C8 F

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