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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
, e- M* t( f! X8 P{
5 u+ n( l, [) W" U1 |& z* E7 Z& S  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
  x2 q, ~, m1 Q- h. A  {
     char c=str;
     int check=isdigit(c);
     if(check ==0)
     {
       if(c!='.')
         return false;
       else
       {
/ b% r. ]/ b0 y1 l9 V" ?+ W: x5 w         m=m+1;
$ B7 b3 C5 M* S  }( x9 Z+ a5 i4 [+ [         if(m>1)
           return false;
" R- a: @" H  A2 C       }
2 ~/ M) K2 w1 ]: m     }
7 x1 P. T6 ~6 r( `  }
  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的发言：

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

3 @' r: b2 d& N

IntToStr(str);

return true;

3 U4 W; d5 B+ t- W

}

castch(...)

{

return false;

}

. h' l; Q3 T( r$ e& h5 l0 g

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