QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3216|回复: 0
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2005-1-26 12:27 |只看该作者 |倒序浏览
|招呼Ta 关注Ta

2 V! a6 C3 W8 _3 P6 n

在onKeyPress事件中作一些处理

, G2 w+ j+ @' p/ q

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

9 M0 ~+ L$ T/ }9 C3 R) x, s

, t3 u9 s- _9 x3 ?) e' V+ }: P6 K

然后设置相应的标志。

2 ^' I0 g- F$ r: c0 l: j

; m$ b6 V* Y# m$ ] I) B

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

3 l1 V3 q. s u" Q2 a4 h

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

5 C& K3 c9 {# R9 V& \; n: S( l

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

: `) l. d% q3 o/ f% ]

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

! u5 A, { n1 W$ T% P- `( H0 {

% x) h. S7 E* G! @ \8 Y5 |' }

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

3 L4 j$ [9 G% V+ a9 X' Y, `' `

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

5 P+ v$ P8 S1 r5 V* Q, M

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

9 n. F. l% |- _# U- C: B6 D& H

就表明不是合法的数字

d% K5 F& n9 @2 e

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

0 \: \4 A2 l, @0 s6 w# d) z

9 Z: F+ C. Q: e* s( P: ~3 y( x4 g

try

8 A6 G5 w r {8 c

{

1 l, L& U2 U g# X' W1 f

Edit1->Text.ToDouble();

2 F; [9 d _) E2 m

try

9 r: Y/ ^+ C2 l6 Y

{

. w- w# ~% I4 I" B$ T3 E5 `% N( C

Edit1->Text.ToInt();

- Z. b0 i5 U) u$ H6 g; [9 i. S

ShowMessage("is a int");

4 J/ S' g# P% ^. m5 }; Z4 Q

}

+ j2 P' d: j. d

catch(const EConvertError &e)

1 w- T5 s. G0 n( ]$ Y

{

- [8 Y9 T0 @: |! t

ShowMessage("is a double");

8 `# ?* Z, S6 p! z/ z3 x( W+ ~

}

! A$ x3 }8 \& ]; ?, d$ g2 J

}

/ i" @! f( V* s9 t

catch(const EConvertError &e)

) k& t, G/ w/ z) J; ^

{

1 r7 C/ f* P" ]! x7 b9 ~+ u

ShowMessage("not a int ot double");

8 ^3 a! I, d+ C9 `9 Y7 y5 Y0 ?

}

$ |, ?9 P3 I4 Z# T }

$ Z$ Q4 r: ^4 `1 d6 q

上面的代码已通过调试

zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-8-10 18:18 , Processed in 0.371601 second(s), 52 queries .

回顶部