Yep !
J'ai ça, dans une procédure d'objet (KeyPress(Sender: TObject; var Key: Char)), qui fonctionne bien :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  if not (Key in ['0'..'9', Chr(VK_BACK), Chr(VK_DELETE)]) then
J'aurais aimé avoir, déclaré dans l'unité
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
var
  AllowedKeys: array [0..11] of char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', Chr(VK_BACK), Chr(VK_DELETE));
Utilisé comme ça (c'est l'idée, mais ça ne compile pas ):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  if not (Key in AllowedKeys) then
[Erreur] Unit1.pas(124): Opérateur non applicable à ce type d'opérande
Quelqu'un aurait-il une idée ? (c'est un coup pour ShaiLeTroll, ça ! Yep, Shai !)
Bon week-end,
--
jp