Test de Key dans une array of Char

Yep !
J'ai ça, dans une procédure d'objet (KeyPress(Sender: TObject; var Key: Char)), qui fonctionne bien :

Code:

---

if not (Key in ['0'..'9', Chr(VK_BACK), Chr(VK_DELETE)]) then

---

J'aurais aimé avoir, déclaré dans l'unité

Code:

---

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:

---

if not (Key in AllowedKeys) then

---

:aie:

Citation:

---

[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

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

Salut,

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

Donc dans ton cas, cela serait ainsi :

Code:

---

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+ ;)

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