Exit |
Sortir |
|---|---|
| HighSpeed Pascal | System |
Syntaxe
| Procedure Exit; |
Description
Cette procédure permet de quitter la procédure ou fonction immédiatement.
Remarques
- La procédure Exit quitte le bloc de code actuel.
- Si le bloc actuel est le programme principal, l'appel à Exit entraînera la fin du programme. Si le bloc en cours est une procédure ou une fonction, une sortie est effectuée et le contrôle est passé à l'appelant. Ne confondez pas cela avec la procédure Exit_ de l'unité AmigaDOS.
Exemple
L'exemple suivant permet de générer des nombres aléatoires et de termine le programme dès que le nombre 999 est générer :
- Program ExitSamples;
-
- Procedure WasteTime;Begin
- Repeat
- If (Random(1000) = 999) then EXIT;
- Until False;
- End;
-
- BEGIN
- WasteTime;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020