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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
# B5 V2 r3 G$ n# F! L{
  int m=0;
/ \/ F. F9 a9 F, ?" j1 O" j  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
, K* ^  r9 n! Z/ Q6 f$ W+ v     char c=str;
     int check=isdigit(c);
     if(check ==0)
: j6 |2 ?% P0 }) W  |     {
       if(c!='.')
/ {6 g& K" a5 j0 p# U6 q         return false;
       else
       {
         m=m+1;
         if(m>1)
0 s+ |' K, v3 X           return false;
  h6 d: P4 o1 C9 I; M6 W5 r/ |2 v       }
     }
  }
# k- N/ l, o" J" 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的发言：

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

& ]/ u4 Y" ?- ^" M5 Q& \

}

castch(...)

3 i: V8 d+ h0 R) {. G

{

$ t& C) p. B0 u+ y9 Q# a2 |

return false;

}

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