[TP] Condition d'arrêt = touche escape

**gadalla** · 09/05/2007, 21h54

Salut à tous
J'ai un programme qui a une condition d'arret = 0.
Comment puis-je la changer par la touche Esc (Echap) ?
Merci d'avance
Voici le programme principal

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
19
20
begin
  WRITE('faite entrer votre nombre (0 pour arrêter):');
  READLN(nbr);
  while not (nbr='0') do
    begin
      nbr := Majuscules(nbr);
      WRITE('Dans quelle base est-il exprimé ');
      READLN(Base1);
      if test(nbr,Base1) = false then
        WRITELN('Le nombre n''est pas correct!')
      else
        begin
          WRITE('Dans quelle base voudriez vous l''exprimer: ');
          READLN(Base2);
          WRITELN(nbr,' en base ',Base1, ' = ', Base_m(Base10(nbr,Base1),Base2), ' en base ',Base2);
        end;
    WRITE('Introduisez le nombre (0 pour arrêter):');
    READLN(nbr);
  end;
end.