SAISIE D'UN CHIFFRE (ET D'UN SEUL) DANS UN TEDIT

Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
- - Dernière réponse : japee
Messages postés
1709
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
15 novembre 2019
- 28 déc. 2003 à 16:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/19014-saisie-d-un-chiffre-et-d-un-seul-dans-un-tedit

cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
24 -
Ca peut aussi se résumer en :
case key of
'0'..'9' : Edit1.Text := Key; //remplace le contenu éventuel
#8, #13 : exit; //traitement normal
else
Key := #0; //annuler la touche frappée
end;
Un seul test réalisé au lieu de 2. C'est toujours quelques nanosecondes de gagnées ! ;o)
japee
Messages postés
1709
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
15 novembre 2019
1 -
Salut, Delphiprog.
Superbe...
Pourquoi faire compliqué quand ont peut faire simple ;)
Merci pour ta méthode, je l'adopte !