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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
3 A2 _9 h4 H/ @{
  int m=0;
! Y: ^$ m7 M7 B- O) U4 N8 I* N3 E+ W' A, a  int b=str.Length();
( g2 t1 R3 z  p- D9 f2 _9 a  for(int i=1;i<=b;i++)
  {
     char c=str;
     int check=isdigit(c);
     if(check ==0)
     {
9 o2 M; G( W. r  s' }0 `8 l       if(c!='.')
         return false;
       else
2 B  F; v- B+ \       {
. b$ N9 _! W6 o; z2 G9 h  {$ e# c         m=m+1;
& B6 H; w; R+ \1 ~* m; j2 Y" A         if(m>1)
) C6 p9 I' v1 c8 W8 S; J           return false;
8 H0 ]8 N; u2 w7 \) z1 d       }
     }
9 K- ~' M1 q4 q% G- A6 @) N' g4 S1 {5 }7 l  }
  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)

+ `4 ], e; F. ^8 v. ]' k) V

try {

IntToStr(str);

return true;

. r8 o$ ~: D5 l* _

}

6 O9 x1 \( g- z! t0 f+ {

castch(...)

{

return false;

}

0 j4 B) p! ]# A; ?6 ^ w

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