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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
/ W2 N9 ^9 c* K! K, C  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
) g! F, \% B7 x5 h, A7 [; U     char c=str;
) O% J3 u9 T" L$ Z/ @6 C# I5 I' y; k     int check=isdigit(c);
; U6 P7 \4 a7 H8 \( B- {* C     if(check ==0)
4 l# g& l* m$ \% a6 [8 G/ ^( J6 F; b     {
       if(c!='.')
         return false;
       else
& l$ ^9 @' J9 e2 s! E, i4 u# ^       {
/ W1 e' n) ~1 m# z  o+ P2 V# J         m=m+1;
         if(m>1)
           return false;
       }
, N, Y; p8 ?' r: Q5 h0 y     }
  }
  return true;
# [4 J& B/ G3 ^8 ~/ A  c9 r4 o}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： 5 }# j8 {( J4 H* n! T! q

这样行不行?

4 E _& K- u3 {$ \) m

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

4 D- s: u$ w% @/ O0 G o" A

return true;

- ^5 a% V( \2 N' A' K3 D

}

castch(...)

) s6 U: L' L! }, O# U

{

return false;

}

. w* a) v5 d5 o6 B5 d

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

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}