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

ilikenba

bool __fastcall TForm1::isnumber(const AnsiString str)
3 \, l% G) Q2 f+ x; J* v3 F{
  int m=0;
  int b=str.Length();
  for(int i=1;i<=b;i++)
  {
+ Q8 f' Y( ^; V; N% q- G2 P( i! k6 ?     char c=str;
. `6 }! v- d0 k% J0 `$ M: |     int check=isdigit(c);
     if(check ==0)
8 L. ~6 R6 T$ q2 N     {
       if(c!='.')
         return false;
1 H+ e5 ~) T" d$ K2 P       else
. f/ }/ q, h* K) R% O2 Z       {
; ^2 P/ W( E* r( ~! O9 ~8 M         m=m+1;
         if(m>1)
7 f  K7 [  A3 Z  H: t( U           return false;
$ ^+ W% p  C+ q* P5 X$ w) m5 O* ~- H' J8 @       }
: ~( Y. `8 D' v     }
+ g, Y7 F% @. P  }
2 }4 {) X- z2 L) J" N1 |  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的发言： ) y. a5 U1 U5 ]$ Z

这样行不行?

bool __fastcall TForm1::isnumber(const AnsiString str)

7 c+ i8 \& D7 G9 |5 _

try {

IntToStr(str);

return true;

r5 A3 U( Z7 n: Y- u

}

castch(...)

' @; L9 W1 S$ O3 {5 ~5 m5 w4 t$ d S# W

{

5 \" m6 Y3 c7 G$ q% o

return false;

9 M$ N; y% F. i

}

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