Bonjour à tous
Je suis en train d'analyser le code d'un projet et je tombe régulièrement sur des gestionnaires OnKeyPress ressemblant à ceci :
Un tel gestionnaire permet de limiter la saisie dans un contrôle (TEdit) aux seuls caractères autorisés apparaissant dans la condition.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 procedure TFrmRechercheAvanceeCRE.edt_NumeroCREASCKeyPress(Sender: TObject;var Key: Char); begin if not (Key in ['0'..'9', #8, #3, #22, #24]) then Key := #0; // if end;
Seulement, je ne comprend pas l'intérêt de retenir les caractères #3, #22 et #24 car je ne connais pas leur fonction dans un TEdit (#8 lui permet de supprimer le caractère précédent le curseur).
Si quelqu'un pouvait éclairer ma lanterne...
Rappel des définitions ASCII :
# 3 -> ETX (End Of Text)
# 8 -> BS (BackSpace)
#22 -> SYN (SYNchronous idle)
#24 -> CAN (CANcel)
Cordialement
e-ric
Partager