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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.