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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
6 }6 o0 e! ^1 }) @0 @  int m=0;
  int b=str.Length();
+ s# v# M* ]( d4 v; g( m$ L  for(int i=1;i<=b;i++)
  {
: g  V1 n( i# b2 }9 F' c2 n0 J8 f     char c=str;
6 G/ \" n$ x/ R" B     int check=isdigit(c);
     if(check ==0)
; b( k' z" r  a# ]8 O$ k: W: t     {
       if(c!='.')
         return false;
       else
5 ~& j* u5 {+ `% T$ U2 E; K0 Y       {
- k- K5 w2 T7 A- m         m=m+1;
, W: e5 h3 [/ f# [         if(m>1)
( z- l$ l" k  b9 A4 b* `           return false;
       }
2 F9 _9 L, z% ~' G5 u     }
  }
  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的发言：

这样行不行?

0 b: h2 u1 y6 E |7 b

bool __fastcall TForm1::isnumber(const AnsiString str)

- @. v, L/ Y9 Q; ]$ g8 h

try {

4 j, N0 l" Y, Q" C7 [

IntToStr(str);

; s- ]+ \! m4 n) N; W

return true;

: h' t; H+ B* o/ j- j. i

}

castch(...)

{

" B$ q" ~/ _+ U2 C) o* [

return false;

}

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