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

韩冰

& k2 u5 M% p( h5 c9 ?: Z, d

在onKeyPress事件中作一些处理

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

然后设置相应的标志。

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

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

. j- G' [0 A% b- D' a- H# }4 X% R

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

+ S4 A6 B9 k1 {, a3 Z

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

9 `9 x% p* T0 ^$ j( c

i) F" ^7 q4 w& x' n

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

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

( j1 ^, m' I" q+ m9 ?

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

/ N( \, n! ^7 E9 f, ?( O

就表明不是合法的数字

9 |7 X, F, P% K2 c0 X

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

try

{

3 a3 f& _' y3 W1 K4 _% y

Edit1->Text.ToDouble();

) t% K8 F4 ]% R2 l: a

try

{

. l) v( a: t% A9 b/ j

Edit1->Text.ToInt();

" h3 R6 E$ p c1 n5 g" d

ShowMessage("is a int");

}

) S* w5 j1 C! i, e) x

catch(const EConvertError &e)

4 j# R: x. ~8 R1 l+ H8 U

{

ShowMessage("is a double");

}

# l) y8 C& ~5 ?! H5 l4 m+ ] U

}

* X5 w9 A1 }, m- A- m8 \4 D+ h/ T, c9 X

catch(const EConvertError &e)

; L$ E, N" p$ y' }2 ?5 K# f

{

0 M2 `, X! [8 A( F1 L

ShowMessage("not a int ot double");

4 h0 @* n, }8 a5 B3 P" C

}

上面的代码已通过调试