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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
0 H4 U" l' r! l; |5 S" y- A  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
/ v# l5 H: T7 @) e% x$ A     char c=str;
     int check=isdigit(c);
$ a/ T/ A$ P  u3 e7 \6 D* X' x     if(check ==0)
     {
( ^/ t( D8 \; s. X8 U4 p       if(c!='.')
4 i7 B3 g; b# e8 \. o         return false;
       else
$ |0 [5 x2 v+ B( A0 [% l- o       {
         m=m+1;
% [7 g% `; A, z6 x2 o' u         if(m>1)
& T# Y  I0 R6 J$ ~6 Z9 A) F           return false;
6 a0 y& _: u5 G       }
     }
  }
  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的发言： 1 t& J% ]! U! A6 Y6 C

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

; C9 C4 ^( @$ S

castch(...)

{

return false;

) V' a' F% R) N9 h* y) y) A

}

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