japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 28 déc. 2003 à 16:39
Salut, Delphiprog.
Superbe...
Pourquoi faire compliqué quand ont peut faire simple ;)
Merci pour ta méthode, je l'adopte !
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 28 déc. 2003 à 16:12
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)
28 déc. 2003 à 16:39
Superbe...
Pourquoi faire compliqué quand ont peut faire simple ;)
Merci pour ta méthode, je l'adopte !
28 déc. 2003 à 16:12
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)