Seulement des chiffres dans un edit.Résolu

Question

Salut &#224; tous,



Je voudra savoir si qqn d'entre vous sait comment faire pour qu'un edit n'accepte que des chiffres.



Merci &#224; tous et d&#233;sol&#233; pour autant de questions suivies.

jlen100 · Accepted Answer

salut

pour des nombres entiers j'utilise:

procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);

 const   Valid =  #13, '0'..'9';

 var  buffer:string;

begin

  with sender as Tedit do

    if key ='-' then

    begin

      buffer:=  Text;

      if buffer='' then buffer:='0'; 

       if  buffer<>'0' then

      begin

        if pos('-',buffer) =0 then buffer:= '-'+buffer

         else  delete(buffer,1,1);

      end;

      Text: =buffer;key:= #0;

     end ;

    if not(key in valid) then key: =#0;

end;

procedure TFormi..Edit1Exit(Sender: TObject);

begin

  with sender as Tedit do    text:=inttostr(tag);// je place la valeur dans le tag



end;

cs_neko · Answer

Tu as SpinEdit dans l'onglet "Exemples" qui fait &#231;a d&#233;j&#224; :)

bouh

Becracker · Answer

J'ai pas ce composant dans mon delphi 7

cptpingu · Answer

Dans l'&#233;v&#233;nement OnKeyPress de ton Edit tu met ceci:



Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  If not (Key in ['0'..'9', DecimalSeparator]) then Key:=#7;

end;

ni69 · Answer

Je conseille plut&#244;t :

If not (Key in [#8, '0'
..'9', DecimalSeparator]) then Key:=#9;

ce qui laisse passer aussi la touche [retour arri&#232;re] 

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Becracker · Answer

Question &#224; [auteurdetail.aspx?ID=332111 CptPingu] et ni69, quand je mets la proc&#233;dure que vous m'avez conseill&#233; dans mon code, il me dit Edit1KeyPress non d&#233;clar&#233; ...

jlen100 · Answer

j'avais oublie pour eviter les plantages:

procedure TForm1.Edi1Change(Sender: TObject);

var valeur:integer;

var buffer:string;

begin

  with sender as Tedit do

  begin

    valeur:= 0;

    buffer:=text;

     if  pos('-',buffer) =2 then

    begin delete(buffer,1,1);text:= buffer; end ;

    if Text<>'' then valeur: =strtoint(Text);

    Tag:=valeur;

  end;

end;

jlen100 · Answer

pour ton pb de Edit1KeyPress non d&#233;clar&#233; as tu double clique sur l'evenement onkeypress de label1?

Becracker · Answer

Ok, ca marche, merci &#224; vous. Je voulais juste savoir &#224; kel caract&#232;re corespondait #7 et #9 svp.



Merci pour tout.

jlen100 · Answer

le caractere #7 correspond a bell (sonnerie) et #9 au retour arriere

Becracker · Answer

On appelle ca une &#233;criture h&#233;xad&#233;cimale ou koi ?

ni69 · Answer

Petite correction jlen100 : #9 correspond &#224; une tabulation (TAB), pas au retour arri&#232;re (qui lui est repr&#233;sent&#233; par #8).

Au final, l'effet est le m&#234;me car #7 et #9 d&#233;clenchent un bip 



Becracker : ce sont les codes ASCII des caract&#232;res.


@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

jlen100 · Answer

effectivement j'ai fais une petite erreur quoique sur mon PC #9 ne fait rien --> equivalent au #0

jlen100 · Answer

neko,

petite precision sur le composant SpinEdit;

il pr&#233;sente un defaut &#224; l'utilisation:

quand on efface totalement la saisie et que l'on tente de lire la
propriete value on obtient une erreur d'execution et je n'ai pas reussi
a intercepter l'exception

cs_neko · Answer

En effet, tu ne peux pas intercepter l'exception car celle-ci l'est d&#233;j&#224; dans le code du Spin Edit.

Donc en session de deboggage l'exeption apparait mais en "utilisation r&#233;elle" c'est la valeur minimum qui sera renvoy&#233;e


bouh

Seulement des chiffres dans un edit.

15 réponses

Votre réponse

Discussions similaires