Bug étrange

Bonjour,
J'ai un léger souci :
j'ai cherché les valeurs du readkey dans la bibliothèque crt pour l'appui sur une touche du pavé directionnel. J'ai trouvé #80 #77 #75 #72
Et pourtant quand je lui dis si c'est une touche du pavé directionnel qui est enfoncé alors tu m'écris bonsoir sinon tu m'écris bon soir.
Et à chaque fois il m'écris bon soir
Quel est le problème s'il vous plait.
Merci d'avance Xavier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Program testFlecheDirect; uses crt; var reponse,keyNULL:string; Begin while keypressed do //ya un bug et parfois le buffer n'est pas à zero keyNULL:=readkey; repeat until keypressed; reponse:=readkey; if (reponse=#80) or (reponse=#77) or (reponse=#72) then begin write('bonjour'); readln End else write('bon soir') End.

---

Bonjour,

Le pavé numérique fait partie des touches étendue. La manière de procéder n'est donc pas bonne.

Il faut se référer à la FAQ : http://pascal.developpez.com/faq/

@++

sous dos voir l'état du byte [$40:$18] { keyboard 2 }

merci

Citation:

---

Envoyé par j.p.mignot

sous dos voir l'état du byte [$40:$18] { keyboard 2 }

---

Dangereux avec les compilateurs actuels qui fonctionnent en mode protégé ;)

@++