Section courante

A propos

Section administrative du site

ABORT

Abandonne
Free Pascal sysutils

Syntaxe

Procedure Abort;

Description

Cette procédure permet de terminer un processus sans retourner un code d'erreur.

Remarques

Exemple

Dans cet exemple, la fonction CheckPositiveNumber vérifie si le nombre est positif. Si ce n'est pas le cas, elle affiche un message d'erreur et interrompt l'exécution de la fonction avec Abort :

  1. Program AbortExample1;
  2.  
  3. {$mode DELPHI}
  4.  
  5. Uses
  6.   SysUtils;
  7.  
  8. Function CheckPositiveNumber(Number:Integer):Integer;Begin
  9.  If Number < 0 Then Begin
  10.   WriteLn('Erreur : le nombre doit être positif.');
  11.   Abort;  { Interrompt l'exécution de la fonction }
  12.  End;
  13.  CheckPositiveNumber:=Number*2;
  14. End;
  15.  
  16. BEGIN
  17.  Try
  18.   WriteLn(CheckPositiveNumber(-5));  { Ceci déclenche Abort }
  19.  Except
  20.   On E: EAbort do WriteLn('Execution interrompue avec EAbort.');
  21.  End;
  22. END.


Dernière mise à jour : Mardi, le 25 Août 2020