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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
  int m=0;
& {) ~0 k2 @0 ^* Y  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
     char c=str;
" b. y3 \* ]2 f9 o! L1 K     int check=isdigit(c);
     if(check ==0)
     {
# e& n2 b2 w; Z. d# ^" C$ X       if(c!='.')
         return false;
       else
5 e& M; }9 r1 C. k; l       {
: `5 b& P% ^$ y' R7 H# C         m=m+1;
; n) V, j3 [# `, @! d9 z( ]         if(m>1)
           return false;
       }
) U1 l& i* ]& f0 ]: x     }
  }
  return true;
* c) _& T! D: Y: _/ P' K}

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： . Y. A5 N1 Z( e, r' {# C 3 [/ p$ @3 f5 G- M3 P, u" A

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

+ }' g! O3 x: w0 W, R: T

}

castch(...)

{

1 D4 a5 ?9 T. _" n

return false;

}

6 t* z9 r2 d ~3 \

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