End/fr

Le mot-clé end termine un bloc d'instructions commencé par le mot-clé begin ou case, termine la déclaration des champs d'un enregistrement, ou ferme une construction try .. finally or try .. except. Il est aussi utilisé pour fermer une unité qui n'a pas de code d'initialisation.

Par exemple:

procedure Proc1;
      
      var a,b: integer;
      
      begin
        (..)
      end;

L'instruction end est l'une des exceptions à la règle qui veut que chaque instruction doit être suivie par un point-virgule. En effet, l'instruction précédant exactement l'instruction end ne requiert pas de point-virgule.

Il termine aussi un fichier source Pascal, auquel cas il est suivi du point plutôt que du point-virgule (dans l'exemple ci-dessous, le dernier point-virgule est facultatif):

program Proc2;
      var
        SL: TStrings;
      begin
        SL := TStringlist.Create;
        try
          (..)
        finally
          SL.Free;
        end;
      end.

Pour une unité sans bloc d'initialisation, END est utilisé pour indiquer la fin de l'unité:

unit detent;
      uses math;
     
      procedure delta(r:real);
     
      implementation
     
      procedure delta;
      begin
     
      ...
     
      end;
     
      ...
     
     (* Note: Pas d'instruction '''begin''' *)
     
      end.

Il ferme aussi un enregistrement:

Type
       ExampleRecord = Record
                         Values: array [1..200] of real;
                         NumValues: Integer; { tient le nombre actuel de point dans le tableau }
                         Average: Real { tient la moyenne des valeurs dans le tableau }
                       End;

Mots-clés: begin — do — else — end — for — if — repeat — then — until — while

From the Free Pascal wiki, page "End/fr", as the Internet Archive kept it on 2025-01-14. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.