Comment utiliser la touche 'échap' ('escape')

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 ?

Bonsoir !

Voici un exemple qui devrait t'aider :

Code:

---

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.

---

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

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