Discussion :

[khlayil]

Bonjour

J'ai eu un problème concernant la programmation de la touche échap pour pouvoir arrêter une boucle en appuyant dessus... genre if c=echape then exit (ça permet de quitter toutes les boucles).
Je crois qu'il y a une fonction prédéfinie pour ce genre de truc, quelqu'un peut m'aider ?

[Roland Chastain]

Bonsoir !

Voici un exemple qui devrait t'aider :

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
18
program ToucheEchap;
 
uses
  Crt;
 
var
  touche: char;
  sortie: boolean;
 
begin
  sortie := false;
  while not sortie do
  begin
    touche := ReadKey;
    if Ord(touche) = 27 then sortie := true else WriteLn(touche);
  { if touche = Chr(27) then ... }
  end;
end.

[khlayil]

Mon Turbo Pascal n'admet pas la bibliothèque Crt :s (fichier introuvable) ; pas d'autre solution ?

[khlayil]

Ca marche, merciiiiiiiiiiiiii Ca m'aide carrément, merci.