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

韩冰

$ s. C7 C( r0 I: N% [4 H

在onKeyPress事件中作一些处理

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

- w. q/ W7 c" U. c5 z1 q u

4 L9 T5 v/ b: |' k, ? f

然后设置相应的标志。

, ]: ]" X( ]' [1 X% i2 |6 }4 q+ l8 F

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

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

' p8 i. Q8 g' A

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

( \- q* M! m: g V q% g% V

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

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

5 `8 V% A- _& K- h, ]

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

# L% N" I+ i- e% ~0 P9 h+ H

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

0 X" m A' @2 K: [6 _

就表明不是合法的数字

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

5 m( E" F8 E$ b( {

' ~2 ^8 _- \6 j9 D. r! g. ?

try

1 b; _. {6 h5 [/ z. X

{

% x0 E; a9 n$ B: F6 k

Edit1->Text.ToDouble();

try

{

+ w2 c3 q$ x2 ~ s* n( K

Edit1->Text.ToInt();

ShowMessage("is a int");

}

/ S+ x# L3 j: {+ t& l1 n

catch(const EConvertError &e)

# I) b0 M% k) j- l% K. J

{

ShowMessage("is a double");

% Q6 O1 `" J6 O

}

}

9 L' ?4 A" O, |* L W1 R4 ~+ y: k2 C

catch(const EConvertError &e)

{

ShowMessage("not a int ot double");

}

4 T2 M3 G% ?( T. N# S5 R

上面的代码已通过调试