[Turbo Pascal] Détecter une flèche avec ReadKey

[abdou monta]

Bonjour

J'exécute Turbo Pascal avec wine sous Ubuntu 12.10.

Code :

1
2
3
4
5
begin
k := readkey;
if k = #80 then
   writeln('sa marche');
end.

En principe, il affichera "ça marche" si on tape la flèche bas, n'est-ce pas ?

[Alcatîz]

Bonjour,

Malheureusement non, les flèches font partie des touches qui génèrent deux codes lorsqu'elles sont pressées : d'abord #0 puis #80. Il faut donc un double ReadKey.

[droggo]

Xoa,

Oui, et un petit exercice consiste à s'amuser à utiliser ReadKey, et afficher la touche qui a été utilisée :
- si c'est un caractère affichable, l'afficher tel quel
- sinon, afficher son code et/ou son nom (par exemple, afficher LineFeed si code = 10).

[abdou monta]

Envoyé par Alcatîz

Bonjour,

Malheureusement non, les flèches font partie des touches qui génèrent deux codes lorsqu'elles sont pressées : d'abord #0 puis #80. Il faut donc un double ReadKey.

Code :

1
2
3
4
5
6
7
begin
k := readkey;
if k = #0 then
   k := readkey;
if k = #80 then
   writeln('ça marche');
end.

ça marche comme ça?
merci

[Alcatîz]

Il y a plusieurs fils de discussion sur le forum qui abordent la question. Ce post est un bon résumé :
http://www.developpez.net/forums/d55...s/#post4351122