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

韩冰

在onKeyPress事件中作一些处理

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

: R( W/ B" P" q% S1 k" _

然后设置相应的标志。

% a; j- T4 Q( m

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

( D& r% q9 J$ h& f& f: H

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

4 Y. x& }; k6 v0 F

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

8 A O/ [+ d5 u' e

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

0 h8 j8 \3 k4 k+ D) ~

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

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

, L7 o; F' F' L M6 j2 X3 R. ^5 }0 M

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

7 j8 S+ |5 Y# R- ?$ C: Q

就表明不是合法的数字

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

try

{

Edit1->Text.ToDouble();

try

{

$ l5 [/ \4 N" I) {( X' _9 ]5 b9 `/ i

Edit1->Text.ToInt();

6 R$ U" F1 D0 V

ShowMessage("is a int");

0 ?1 K- x% {5 v) c4 A! L. j

}

catch(const EConvertError &e)

) e0 _/ w# E7 ~1 w7 Z; h% a

{

ShowMessage("is a double");

' ^. ^# Q5 }8 w8 d6 x

}

) ?! G% e1 d% R0 @/ ?3 `# x# w

}

# @7 n6 s" j b

catch(const EConvertError &e)

4 _" O. J7 R& `

{

' k2 e. x3 O- u

ShowMessage("not a int ot double");

; u& o! p, \4 p5 B; c% i

}

I4 j0 {1 x0 m" ]6 q9 M

3 c7 ?, R4 K- G9 d* U

上面的代码已通过调试