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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
4 ^5 g; z( ~& k) L{
  int m=0;
  int b=str.Length();
3 T2 m' b: \8 O( z  p' @! n  for(int i=1;i<=b;i++)
! \2 U: G  e- W  {
     char c=str;
     int check=isdigit(c);
' g7 [% s# i4 ^  N' j/ W9 n3 l0 E+ \1 C% f     if(check ==0)
- {0 n& l+ h2 G4 |$ W! N$ `     {
6 I1 `7 i6 u2 g) r: e3 A9 }       if(c!='.')
         return false;
       else
! g0 Y3 o! D/ c8 q       {
         m=m+1;
         if(m>1)
0 q5 _& t" U$ f# k  D( v           return false;
) Y9 \5 X8 D6 g0 @* r0 x       }
( X4 U0 V2 Q8 N+ C& R! ^# p     }
. x6 m9 c4 p/ ?) n2 H  }
  return true;
6 ?% ?7 n2 Y6 u}

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 {

IntToStr(str);

return true;

}

+ [, D2 I7 C* n

castch(...)

7 w2 g: @6 q/ b4 X2 o) `5 q" ?: F

{

return false;

, A' P5 Q$ r8 u/ S% I) J

}

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