Section courante

A propos

Section administrative du site

LABEL

 Étiquette
Free Pascal  

Syntaxe

Label etiq1,etiq2,...;

Paramètres

Nom Description
etiq1, etiq2 Ce paramètre permet d'indiquer le nom des étiquettes

Description

Ce mot réservé permet de définir des étiquettes utilisable habituellement par l'instruction «GOTO» ou comme adressage dans le code assembleur.

Exemple

Cet exemple permet de montrer l'utilisation de se mot réservé :

  1. Program LabelSamples;
  2.  
  3. {$GOTO ON}
  4.  
  5. Label 10,BreakAll;
  6.  
  7. Var
  8.  i,j:Integer;
  9.  
  10. BEGIN
  11.  Goto 10;
  12.  Exit;
  13. 10:
  14.  For i:=0 to 10 do Begin
  15.   If i < 0 Then Goto BreakAll;
  16.  End;
  17.  For j:=0 to 10 do Begin
  18.   WriteLn('J = ',j);
  19.  End;
  20.  BreakAll:
  21. END.

on obtiendra le résultat suivant :

J = 0
J = 1
J = 2
J = 3
J = 4
J = 5
J = 6
J = 7
J = 8
J = 9
J = 10

Voir également

Free Pascal - Référence des directives de compilation - «$GOTO»

Dernière mise à jour : Dimanche, le 28 février 2016