使Edit控件只能输入数字！

ilikenba

<>void __fastcall TForm1::Edit1Change(TObject *Sender)
{
char *string;
int i,j,k;
! F& P) U- d, Q6 Mchar ch;
bool flag=false;

k=Edit1-&gt;Text.Length();
' k( o$ A  D! V( J5 t8 _: Wstring=new char[k+1];
; F; o: w6 I7 Q8 w5 t. Wstrcpy(string,Edit1-&gt;Text.c_str());
for(i=0;i&lt;k;i++)
{
/ B3 B1 D/ P( G0 _+ v2 v2 Z) hch=string;
# z) N: m1 o% Z3 m" S' p( Cif(!(ch&gt;='0' &amp;&amp; ch&lt;='9' || ch=='.'))
{
for(j=i;j&lt;k;j++)
, |; p1 Q4 |5 _string[j]=string[j+1];
$ d7 t/ b* g# q7 m% t; Bk--;
7 {. c! @6 U* _5 dflag=true;
2 `* D4 W  e0 o& S  R. J}
0 g( P% l! Z% r9 ?}
if(flag)
- {  R+ _* {* |( v/ F" dEdit1-&gt;Text=AnsiString(string);
delete[] string;
8 {/ T6 O8 ~- A" c- F//GlobalText=Edit1-&gt;Text;
}
//---------------------------------------------------------------------------
*************************************************************************************************</P>
<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
/ e/ V  G% \  l+ ]9 [, e1 \' g8 L    if(!(Key&gt;='0' &amp;&amp; Key&lt;='9' || Key=='.' || Key=='\b'))
& g8 I/ b: M3 u& L0 ?- \( u        Key=0;
}
//--------------------------------------------------------------------------- </P>
<>*************************************************************************************************</P>
" K; z3 V5 }& w- m<>void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &amp;Key)
{
6 i9 U' t3 n! q1 Z2 n" u- T( qswitch(Key)
{
case '0': //接受数字键0~9的输入
  R: f+ l' t0 J9 W' ~case '1':
" p8 U% C/ K+ f8 w! C" icase '2':
. G1 @% z! ^' t# T/ v! t6 r* ~$ Zcase '3':
case '4':
9 U+ I2 B& G& ecase '5':
: a9 o+ d8 }$ D1 U) {case '6':
case '7':
case '8':
+ z9 d3 V# _- X% n" bcase '9':
case 8: //这是一个BackSpace键，不能禁止，否则不能实现删除功能了
1 q1 {& X4 V5 k, cbreak;
case '.': //检查是否已存在小数点
if(DotInStr(Edit1-&gt;Text))
! L/ B) p/ _; kKey=0;
" g2 D4 R2 r+ b, hbreak;
) Z2 w. V! S; h% }9 Hcase '+': //检查是否已存在符号
3 n/ T1 \5 A( p  v( P: x2 @case '-':
" z( G4 v. O8 wif(SignInStr(Edit1-&gt;Text))
. L8 P( N/ \* _* k! _& w* JKey=0;
break;
, R8 z6 Y9 B9 k  Xdefault: //对于其他输入键，置Key=0
Key=0;
break;
) x% p1 }8 M% p9 m" ]. y% u) M' c}
' ^3 Z2 i2 P: z, k6 M}
" c4 p8 L" V7 N//---------------------------------------------------------------------------
bool __fastcall TForm1:otInStr(AnsiString ass)
' I4 e+ I% o% P* T( F. V{
$ E0 r" Y, A5 U4 }) vint ii,ll;
' {9 ?* ^+ Z: w( u. a- v, ~# P5 o; Jll=ass.Length();
for(ii=0;ii&lt;ll;ii++)
- Y; R) c) v5 }8 p{
1 _  F' _6 k+ m( N$ F7 v/ Pif(ass.c_str()[ii]=='.')
6 [+ [  A% M$ c! D' N{
return True;
}
}
. s* U, [5 V9 T* Hreturn False;
: N$ N# i; E# k7 D9 O}
$ a5 b- I( P+ U1 A//该函数检查字符串前面是否已存在"+、-"符号
% u( R6 H4 o, Z! A+ E" xbool __fastcall TForm1::SignInStr(AnsiString ass)
{
int ii,ll;
ll=ass.Length();
& Y/ G( f( O5 l3 i! h! n- b+ ifor(ii=0;ii&lt;ll;ii++)
$ l5 c6 K5 s; s5 J* S, w+ b1 W{
if((ass.c_str()[ii]=='+')||(ass.c_str()[ii]=='-'))
{
return True;
3 h$ `" I1 ~0 r' [}
}
( I! k) e  n8 r5 j* x( n+ C: f9 m7 sreturn False;
" h7 }7 G$ R( W: z5 ~}
</P>