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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
) S+ P& }( b( {- C+ E4 ^/ u. Y$ n  int m=0;
  int b=str.Length();
7 z+ Q3 F: k# V, h- p  for(int i=1;i<=b;i++)
  {
* r9 Z0 \1 b8 s6 i( E2 L1 l     char c=str;
$ S& J* o( ~1 V; o7 ?     int check=isdigit(c);
     if(check ==0)
     {
% E4 n. G% u! J+ o7 U9 H# L       if(c!='.')
         return false;
       else
       {
         m=m+1;
         if(m>1)
           return false;
       }
6 @. u/ U: t1 W7 o     }
$ |) M# g+ F8 U/ l  }
  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的发言： 5 T8 d) _% k* a! V. j

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

9 ^, E9 I" V+ ^1 w; X5 J

IntToStr(str);

return true;

}

+ z" ]" p0 P8 L3 ^, ]" c: w* \3 q

castch(...)

3 S" D( ?8 |1 E) V7 c, m; a2 E2 C: e

{

q: `$ o/ F7 `6 d- f

return false;

}

+ ~2 Y& G& a/ {$ N2 T6 g

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