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

韩冰

# b- p7 k; |& y3 N0 K( H

在onKeyPress事件中作一些处理

* A( i' n0 {6 J3 Y* e. v( a

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

9 p( }6 K, W+ l+ W

然后设置相应的标志。

X) h; P! t0 U3 Z, L, T

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

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

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

3 O$ n. O9 ^1 @- m

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

3 y' T* T9 m* G. ]4 g" o* i

# a) g3 @" Q3 q# \ d4 X8 F

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

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

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

, y5 V' x& ~' H; a& ]8 J

就表明不是合法的数字

7 e9 _/ u; [8 j, o& V

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

4 m- j( g2 {7 a* b/ t+ \4 \; `/ t4 i

( Z6 f, O* k$ x5 A3 q# Y

try

{

Edit1->Text.ToDouble();

8 |! E$ d( b0 I3 q+ s2 K2 ~3 j. D: M

try

{

Edit1->Text.ToInt();

- l1 @6 V6 A* R

ShowMessage("is a int");

% P' P5 l+ S4 g# @# T& g: W0 ]

}

catch(const EConvertError &e)

5 x, s/ B8 h7 w9 ?9 N5 K1 y

{

ShowMessage("is a double");

: ?4 A( y. W Q3 U) a

}

}

; ]8 J" \& T' T8 T

catch(const EConvertError &e)

P. K% p0 K, W* {9 e( m" {; r

{

- a$ n8 R. g/ @9 Q9 e

ShowMessage("not a int ot double");

}

- o- ?6 j& I. s4 d. x, ^

上面的代码已通过调试