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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
; Q2 K# A( |3 l) X  int m=0;
2 u+ R. A0 X% ~2 S  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
     char c=str;
     int check=isdigit(c);
. [8 U0 }6 d2 E- U2 L     if(check ==0)
     {
       if(c!='.')
" w  R4 f) t$ l0 A! B) {) Q         return false;
       else
& T. D5 U/ Z" L0 p       {
; B1 e- c& p. B$ l/ u4 C         m=m+1;
$ v) W+ u% k! O: p" {4 u% I         if(m>1)
  S: S1 R2 J. P# G8 r           return false;
       }
     }
$ ^/ g% G  {! N. r( [4 }$ `: [: m  }
' ~: k, ]' o, H8 N3 g5 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的发言： + _2 x* a5 W9 G# \/ _$ Q $ P* L# y+ \) [( o [- i

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

3 V; o& v& f) z7 V! b

try {

IntToStr(str);

return true;

}

castch(...)

{

5 f0 Q3 `4 B4 _6 V9 ?

return false;

; b- I& W* _+ d: T: p* ]

}

3 h! z3 K7 K, F0 x6 F/ h8 v. w6 x

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