|
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上面的代码已通过调试 |