查看: 2601|回复: 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;
- u: t/ t. Y2 I% L( W: d( x4 q+ Mif(!(ch>='0' && ch<='9' || ch=='.')) ! b8 @7 R, v$ L1 `' q+ U
{ 2 ~0 B& c' U: u" j) e% _  w
for(j=i;j<k;j++)
* V. m  C  {( |! N- |4 Sstring[j]=string[j+1]; 4 ^) p0 u  K6 D4 b0 l
k--; * b3 Q  ~+ K; O3 S
flag=true; 6 w6 |' n. k, v- i
}
  Q$ x1 ~3 x  x7 W: g; D- _* s}
+ K3 x& Q& M- W0 |if(flag)
* W+ p; A7 b& B0 Y9 xEdit1->Text=AnsiString(string);
* g- X  ]6 ^% l+ a$ udelete[] string;
# e$ k( @4 Q# _! O//GlobalText=Edit1->Text; & s9 T1 q% b% b
}
$ I- J) V" K; x7 l& Y& u//---------------------------------------------------------------------------
9 S0 l- W) g* k$ L$ C( q*************************************************************************************************</P>
# \2 a* Q3 n/ r, W<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
5 `% N8 ~# h) h* M{
7 p. Z% p3 j: N  N if(!(Key>='0' && Key<='9' || Key=='.' || Key=='\b'))
- K/ b* H# U$ c3 U       Key=0; 0 f( N4 ^4 Y+ R+ ?' }
}
. L( Y5 S% f: S//--------------------------------------------------------------------------- </P>- u6 A, s7 c- _4 Z
<>*************************************************************************************************</P>/ S/ s8 G7 ^) _' w7 _; P! w
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
4 t& D) R2 m* D) D{
# C9 }, C. n7 V( E' U, _6 p) Zswitch(Key)
" x" f, M; c, h7 ]7 \{
" s  L9 P9 W2 ~' Ucase '0': //接受数字键0~9的输入
: i; B1 x' r! D" e4 w+ k8 V9 c9 scase '1': + x8 Z2 V0 j) _
case '2': ( g/ s, ^, q2 t' F: r1 A
case '3': & @1 }3 m+ f" B5 M. S9 V
case '4':
; D/ Z% T/ c9 g3 N+ Kcase '5':
( g: j4 {2 m9 _1 S( i6 @case '6':
, t0 c! N& ^6 |7 q. v8 G& Pcase '7':
. S, X( i- M- dcase '8': 0 ^5 j' t+ I- T8 g. S
case '9':
( \; m: J# H" n* K8 p) Pcase 8: //这是一个BackSpace键，不能禁止，否则不能实现删除功能了 ( s( Z/ K/ m  a" _9 h+ [6 B
break; 8 E: r5 U8 p; w1 n. M
case '.': //检查是否已存在小数点 - ~+ J" C1 \0 X; t8 ]7 n
if(DotInStr(Edit1->Text))
4 ]" ^2 l  X7 C7 HKey=0;
. h' r2 |6 Z2 ~4 _( K! Y$ Ebreak;
) q. Z- M3 H! Vcase '+': //检查是否已存在符号 & r* {/ o8 {0 Q1 D1 D% G" o' L
case '-': 9 r3 X& u3 f# r: l
if(SignInStr(Edit1->Text)) ) u& `. r( X7 D' c% @3 c
Key=0;
2 j, I% r0 l/ \8 S/ w9 wbreak;
0 ?  }" L/ k# O0 v! xdefault: //对于其他输入键，置Key=0 # S/ d  {+ D/ a& \& h
Key=0; 5 ~* d1 q4 U. ?5 P  c
break;
* `# u/ R3 L4 l5 P} & y9 b+ Y; e1 |/ }
} 5 ?# R1 S$ F  J! E- R  M
//--------------------------------------------------------------------------- 0 a& p! q, K/ x! u  a! b& E: b& g
bool __fastcall TForm1:otInStr(AnsiString ass) 4 N) |2 r( |5 [  [
{
/ y. M7 L8 y* r" Xint ii,ll;
5 Q5 u  G2 x* O3 R' d2 vll=ass.Length();
5 m* `6 P$ Q( u+ p) n+ [2 }# jfor(ii=0;ii<ll;ii++)
) o" E$ }0 ]& j3 p& M0 I3 h3 t{ 2 k5 \) _% C; L7 }
if(ass.c_str()[ii]=='.')
7 z8 k5 m8 t+ M+ ?! ?" @{ 2 I  g9 m2 C% O$ l* q; p
return True; ) x1 G/ ~' }" m+ B% e0 q; n& h4 A
} 1 V' w1 |7 G7 j% L0 L# k+ T
} 6 i# d9 d6 i/ X0 T% C% V
return False;
$ Z8 c. z0 b8 j. p. l+ a" z' w}
: B: J( w8 z/ |//该函数检查字符串前面是否已存在"+、-"符号
7 t: w8 a' k" F7 _, P& n3 M5 R. V  Xbool __fastcall TForm1::SignInStr(AnsiString ass) % `' T( t' n' t, A- V( }2 A- o# Y7 x9 s
{ # z# R* R& k+ p2 y5 J, e3 a
int ii,ll;
: ^  ^9 l3 b! e7 \ll=ass.Length(); 5 ~; E4 ?$ d' @% E9 }! |
for(ii=0;ii<ll;ii++) " h' C0 e# G$ u: A
{
% R6 n; E) o# H) Q5 tif((ass.c_str()[ii]=='+')||(ass.c_str()[ii]=='-'))
( B( v4 C" x0 A( n, y/ c0 O{ 0 |! k2 A: Q8 t# e; m
return True; # I+ a; D2 O8 E, E
} 5 ~& J9 b) q) @; @* P( L+ }) \
} / ?% P% C9 B& C3 T, e: }
return False;
0 l0 Y4 Q2 f$ X7 U3 N}
; t& i& n2 C" Z- G</P>