判断EDIT框输入的是否为数字

韩冰

7 O3 a& T+ i6 E9 Y$ d& u$ a2 o2 X% ~

在onKeyPress事件中作一些处理

1 _7 X, K) z, y m/ A

使得输入只能是数字和一个小数点

然后设置相应的标志。

/ Z0 m# L' C* I8 n. Y) F" j. I

" P: q# U2 F0 v1 U Y

当然，还有另外的办法，就是用pos函数来查找是否有小数点

' S/ _! ?4 _0 e. z8 p: F' K; D

如果没有，那么就是整数，反之是小暑，但是这个方法有一个缺陷

就是如果输入的不只是数字，还有字母的话，那么判断显然是错误的。

此外，如果是以指数方式表示的，那么前两种的判断方法都会复杂起来。

于是，还有第三个办法，用好Exception

/ m% Y4 r0 \4 ~7 X' g2 }

首先，用Edit1->Text.ToInt，如果不产生异常，表明是整数，反之用

8 R2 [4 X* i4 {% r

Edit1->Text.ToDouble，如果不产生异常，那么是小数，反之

就表明不是合法的数字

这个办法最方便。大概的程序代码如下

( p$ `, I# H4 X

7 B$ y+ Z3 x7 x' @' C

try

{

Edit1->Text.ToDouble();

try

{

Edit1->Text.ToInt();

ShowMessage("is a int");

9 d. d6 Z" F' k5 z+ a. D* B1 M

}

$ ^0 V# O0 D D4 P

catch(const EConvertError &e)

8 e* M' Y- i: R' j( C! ~

{

ShowMessage("is a double");

}

+ l' i# x" O5 L- C' Q0 A

}

! D( R& L( j, ^) q# l! _: H

catch(const EConvertError &e)

{

ShowMessage("not a int ot double");

2 S( z& u" N0 q9 i, j# O

}

1 q) {0 @* B4 x) p/ t2 r; v) e

上面的代码已通过调试