Section courante

A propos

Section administrative du site

LABEL

 Étiquette
Delphi/Kylix/Lazarus

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. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.           
  7. Label 10,BreakAll;
  8.      
  9. Var
  10.  i,j:Integer;
  11.      
  12. BEGIN
  13.  Goto 10;
  14.  Exit;
  15. 10:
  16.  For i:=0 to 10 do Begin
  17.   If i < 0 Then Goto BreakAll;
  18.  End;
  19.  For j:=0 to 10 do Begin
  20.   WriteLn('J = ',j);
  21.  End;
  22. BreakAll:
  23. 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

Dernière mise à jour : Mercredi, le 18 février 2015