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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
{
0 o3 E/ w2 T7 p& f8 l+ ~  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
     char c=str;
# B& {- t- F$ x% `$ W, h, I3 {8 D     int check=isdigit(c);
6 `; e8 h" C# t9 @% b  n2 B2 H     if(check ==0)
     {
       if(c!='.')
         return false;
       else
       {
         m=m+1;
         if(m>1)
           return false;
1 A0 g5 Q$ q2 w/ b       }
5 `) R2 x$ M! Z+ G' W     }
& {9 R! ^3 C+ N+ f; |( B  v) H* ~% @  }
& d6 E/ ]. k/ j4 L6 }7 q  return true;
}

ilikenba

以下是引用libertysigil在2004-4-30 17:06:03的发言： ! R+ f: T4 {6 P6 c2 k ' F3 s" Q# n0 C( H! u" k0 [( Q

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

' a% V2 L1 ~4 }' {1 ?( }

try {

IntToStr(str);

3 X( d3 r6 ]" c$ @$ b( [' F$ H

return true;

; h# y; h9 x. o; S9 t0 I

}

9 M1 r, z0 Y/ f4 q3 z

castch(...)

& d0 a! n% G. U6 s! ?" ~( r' \

{

return false;

% k0 h! C6 w2 F9 ?3 y

}

' t4 |; D( b6 e6 ? f1 X- ]" {

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

libertysigil

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

try {

IntToStr(str);

return true;

}

castch(...)

{

return false;

}