查看: 2604|回复: 0

使Edit控件只能输入数字！

[复制链接]

字体大小: 正常放大

ilikenba

1万主题	49 听众	2万积分

TA的每日心情

	奋斗 2024-6-23 05:14

签到天数: 1043 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

电梯直达

1^#

发表于 2004-7-10 15:46 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

<

>void __fastcall TForm1::Edit1Change(TObject *Sender)
{
char *string;
int i,j,k;
char ch;
bool flag=false;

k=Edit1->Text.Length();
string=new char[k+1];
strcpy(string,Edit1->Text.c_str());
for(i=0;i<k;i++)
{
ch=string; 6 J- Q* g" E4 `& s" Y0 y
if(!(ch>='0' && ch<='9' || ch=='.')) + T1 n- Y. \. @5 W  e9 w# O! d8 \! a
{ / q; K- Y4 A- N* L
for(j=i;j<k;j++)
+ e+ a* ^% A' U, astring[j]=string[j+1]; 3 I; |0 d3 Y0 u
k--; * k5 m) N2 B5 [+ o3 B( ?  e
flag=true; * P) _* h8 d, N3 ]
} ' v, q4 j; m6 V% V4 H
}
( u' C  o% h0 f" e, {8 tif(flag)
* n% F3 v6 b* ^Edit1->Text=AnsiString(string);
2 Q+ ^5 ]' ?  H7 s) b) Kdelete[] string; * y7 k  J6 n$ ?
//GlobalText=Edit1->Text;
% o% \5 B9 }. U6 h} 2 ^7 P! }, h/ ~! A; [
//---------------------------------------------------------------------------/ z& z8 V: _' l8 H
*************************************************************************************************</P>
2 p$ D1 K8 q/ T% L  C1 A# {<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
$ u. q1 j! ~, T( m. ^% j$ ^* e{
# W, l2 @5 A5 L0 D5 q/ | if(!(Key>='0' && Key<='9' || Key=='.' || Key=='\b')) $ V0 I5 \8 W9 h5 V+ j$ @) r
      Key=0;
/ m4 R6 N2 E$ H% P- V7 ~$ z' _} , p  s) @& `$ D
//--------------------------------------------------------------------------- </P>
; R2 H* s* ]7 U9 @<>*************************************************************************************************</P>
  {5 K# `* ?% X: S5 Q4 ?4 g<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) # v& L) ?, ]: k
{
4 [' z8 O' G) U. f$ u# D; J  M* xswitch(Key) $ N0 J' S9 ^  Q( G  C- v
{
$ p! H- W7 z( I* Y  }! @case '0': //接受数字键0~9的输入
) l& ?# s8 @" c1 Qcase '1':
8 h6 l2 A2 ]9 F- l, y5 p+ Hcase '2':
( Z6 o. M- l5 Tcase '3': - H: c7 L; H5 d% l
case '4':
8 Q" Y' z, _/ [" xcase '5':
6 w9 I, C, P* e# Kcase '6':
" ]$ x. |# z0 t" H+ A, acase '7': 3 I" U+ ]9 s3 [5 Z0 q: B
case '8':
0 u4 A8 m2 l1 l3 d! d' z5 ucase '9':
% b9 o5 `! Y/ pcase 8: //这是一个BackSpace键，不能禁止，否则不能实现删除功能了
$ Z) Z6 q; e9 L* ubreak; % t4 Y( s: ~  i: u1 w) w( V
case '.': //检查是否已存在小数点
3 J9 H$ O( I6 Pif(DotInStr(Edit1->Text))
; M# j6 \) N: |* ^& uKey=0;
6 x, M7 N. q: `3 l+ Wbreak; $ E; D1 r( i) r5 `0 {0 R: \+ R
case '+': //检查是否已存在符号
/ J0 S1 r+ W, o4 e/ r# Icase '-':
  q7 S5 E) Q6 pif(SignInStr(Edit1->Text)) . r+ K2 d1 D5 h1 s* D; w
Key=0;
# W) H/ H) {- B' L0 n& wbreak;
9 }" C3 \# y% G. v; [, {3 a1 |" H9 H, Rdefault: //对于其他输入键，置Key=0 ; o7 c  p* N& o* f. {- W8 J. ~% ]% O
Key=0; 3 O. R5 v& x  ]5 ?; C- C$ f
break;
1 n3 L) J! j1 ~: M( O- a}
( B) e1 ?8 m) R, F% X( O5 h* d} - b( V# L2 i$ N) I# W  J; r
//--------------------------------------------------------------------------- 6 L% K! m6 C4 k; p3 v0 T, q- E3 w# E
bool __fastcall TForm1:otInStr(AnsiString ass) / i! k; Y. [' }5 P
{
5 C3 q: {1 j6 u8 A* V2 \+ Mint ii,ll;
) n! D4 T, p) v* _) F4 F8 Wll=ass.Length(); ! ~% S6 N7 G; ?, s
for(ii=0;ii<ll;ii++) ) W0 M0 F5 L4 L! n7 q3 G
{
, W) h5 D% z) D  I$ r' tif(ass.c_str()[ii]=='.')
* c6 a& x5 H2 W- i5 ~{ " ~, J8 }, S2 r1 Y2 }7 P" w
return True; 1 w/ P# b- a. l% s5 P
}   r1 e! Y1 Z! p- g
}
  e- ?; ?$ U* R! P( V1 oreturn False;
; o8 O" C9 S2 s8 F* _3 p! O} 9 e. s, h& U, E; U
//该函数检查字符串前面是否已存在"+、-"符号
2 F/ F+ f1 R. e1 R3 o7 `bool __fastcall TForm1::SignInStr(AnsiString ass) . i0 b) Z1 f$ T+ x9 I* r6 d
{
* v& U, d+ C, \0 E- ^9 Xint ii,ll; ) c8 W3 @1 N  j1 Q! L
ll=ass.Length();
7 A( F; a2 |; S5 |1 Ifor(ii=0;ii<ll;ii++)
! M* G  n. `$ [0 a{
! y" s: W7 }; pif((ass.c_str()[ii]=='+')||(ass.c_str()[ii]=='-')) 6 {( F- j0 c5 O/ U# N
{ & S9 q, b- Z! A# d) I+ m) n
return True; 0 Z& q# N( x$ j4 q7 ~& h$ @$ u' w
}
1 m3 {6 H0 f& r4 c1 r} 0 {! T8 u4 @2 Q' b+ M
return False; * S9 _) |2 T0 \6 `
} 0 t5 C2 b3 q  z: I5 G) B) [: D! `$ C: f
</P>