Sortie d'une procédure

Question

J'ai un code très simple, mais je n'arrive pas à le comprendre. J'appelle une procédure qui (espérons-le) quittera le processus. Mais il ne fait pas exactement cela:

procedure quit; 
begin 
    exit; 
end; 

Et voici où je l'appeler:

If (Ch2 = #13) and (Bar2 = 5) and (Five) Then Quit;

Bar2 est essentiellement une variable d'octets qui contient un tableau avec des éléments différents, comme "display" , "help", "next" et "prev", et bien sûr, quit, qui ont tous leur propre code en fonction de ce qu'ils font. Ch2 est une variable pour ReadKey qui prend diverses pressions de touches, puis lui permet de faire tout ce qui est défini pour cette commande spécifique. Dans ce cas, il faut que la clé de retour soit utilisée. Five est un opérateur booléen et existe en tant que prérequis pour exécuter la commande quit. Je suppose que ce n'est pas vraiment nécessaire. Par ailleurs, si cela peut vous aider, il s'agit d'une unité et non d'un programme autonome. Quelqu'un sait-il pourquoi cette commande exit ne fonctionne pas?

J'espère que ce post est assez verbeux.

Merci.

Answer 1

L'instruction exit quitte la fonction ou la procédure dans laquelle elle se trouve. Il renvoie ensuite l'exécution à la fonction ou à la procédure d'appel.

Pour mettre fin au processus, utilisez halt.