saisir uniquement des chiffres dans un editRésolu

Question

bonjour, je cherche un contole qui me permet a un Tedit d'accepter uniquement des chiffres ou des lettres 
merci

Bacterius · Accepted Answer

...
Il existe environ 720 réponses à cette question sur le forum, et environ 442939 sur google :

Cette solution (efficace à tous les coups, mais des scintillements peuvent peut-être apparaître) :

procedure TForm1.Edit1Change(Sender: TObject);
Var
 I: Integer;
 S: String;
begin
 S :=  '';
 for I := 1 to Length(Edit1.Text) do
  if (Edit1.Text[I] in ['0'..'9', 'a'..'z', 'A'..'Z' {peut rajouter des caractères}]) then S := S + Edit1.Text[I];

 Edit1.Text :=  S;
end;

  OU  

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in '0'..'9', 'a'..'z', 'A'..'Z' {peut rajouter des caractères}) then Key :  = #0;
 { GARDER LE #8, C'EST LA TOUCHE "RETOUR" }
end;

Cette dernière solution est plus légère, mais ne résiste pas au copier/coller (il faudra quand même faire un test avant d'utiliser les infos du TEdit)

Cordialement, Bacterius !

cs_mark15 · Answer

merci bacterus 100000000000 merci c'est ca que je cherche
encore merci

Bacterius · Answer

Euh à cause du bug des majuscules, c'est plutôt :

... in ['0'..'9', 'A'..'Z', 'a..z'] dans le premier

et

... in '0'..'9', 'A'..'Z', 'a..z' dans le premier

Cordialement, Bacterius !

Bacterius · Answer

enfin le second pour le second ... vous aurez compris 

Cordialement, Bacterius !

Saisir uniquement des chiffres dans un edit

4 réponses

Votre réponse

Discussions similaires