Discussion :

[Jipété]

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

[tourlourou]

Hello !

l'opérateur in fonctionne sur des ensembles, pas des tableaux...

AllowedKeys: set of Char = ['0', '1', '3'];

syntaxe exacte à vérifier !

Bon WE à toi

[ero-sennin]

Salut,

Je confirme les dire de tourlourou (j'ai testé)

Donc dans ton cas, cela serait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AllowedKeys: set of char = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', Chr(VK_BACK), Chr(VK_DELETE)];

J'aurai encore appris une chose intéressante aujourd'hui
A+

[Jipété]

Salut les copains !
Merci tourlourou pour l'astuce, merci ero pour le test : c'est parfait !
--
jp