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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
  int m=0;
  int b=str.Length();
, M  k5 F& x5 k* r  for(int i=1;i<=b;i++)
1 J! f& v( ~$ Q! x; k6 @6 _, n6 S( b  {
9 ^1 `  I' j5 O$ ~7 C! f     char c=str;
! H! L% x- n" c9 I* k2 r% ]! z     int check=isdigit(c);
     if(check ==0)
/ x1 s2 |+ n  \& K6 N; L, p     {
; Q& T2 Q' w# [+ r       if(c!='.')
         return false;
       else
3 i- w( I$ q$ C( N9 W+ i       {
         m=m+1;
         if(m>1)
           return false;
       }
     }
  }
  return true;
! A" K. ]/ \% v& r: J/ Q: y}

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： 7 a4 _9 g9 ?" ~1 Q8 h % |: J, y: |/ W2 ^) g8 U

这样行不行?

. v* i5 U4 o: D1 z0 [

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

" n" N3 W7 a* h# x' D

return true;

2 v7 b4 g: O0 {

}

castch(...)

4 ]5 _0 v3 ^! a2 e# {9 D' t! }

{

return false;

% K9 m ?% `- q

}

9 t# n2 c* T+ e/ s

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