Discussion :

[Redsky]

Bonjour,

voila mon code:

Code :

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

1
2
 
if ( Length(text)=0 ) and not (key in ['0'..'2',#0..#31]) then key := #0

Text est un string. Et si je l'enleve l'erreur y reste quand meme.
J'obtiens une erreur: Incompatibles type 'Word' and 'Char'.
J'ai essaye sans ls guillemets pour les nombre, mais ca change pas.
Tout les exemple que j'ai trouve sont pareils, mais chez moi ca marche pas...

Merci pour votre aide

[bjl]

bonjour,

chez moi, dans l'évènement OnKeyPress, ce code compile correctement


vous n'auriez pas redéfini key en word ou utiliser OnKeyDown (ou key est un word) ?

[Redsky]

Non. J'ai utilise l'evenement OnKeyDown par erreur. La bas Key est declare Word.
Merci!