Section courante

A propos

Section administrative du site

INCLUDE

Inclure
Delphi/Kylix/Lazarus System

Syntaxe

Procedure Include(var S: Set of T; I:T);

Paramètres

Nom Description
S Ce paramètre permet d'indiquer la variable contenant l'ensemble
I Ce paramètre permet d'indiquer les éléments d'exclusion de l'ensemble

Description

Ce mot réservé permet d'inclure un élément d'une variable d'ensemble (SET).

Exemple

Voici quelques exemples de l'utilisation de cette fonction :

  1. Program IncludeSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.  
  7. Var
  8.  RegistreIntel8088:Set of (AH,AL,AX,BH,BL,BP,BX,CH,CL,CS,CX,DH,DL,DS,DX,ES,SI);
  9.  Alphabet:Set Of 'A'..'Z';
  10.  Centieme:Set of 0..99;
  11.  Caractere:Set Of Char;
  12.  C:Char;
  13.  
  14. BEGIN
  15.  RegistreIntel8088:=[AL,AH,BL,BH,CL,CH,DL,DH];
  16.  Include(RegistreIntel8088,CS);
  17.  Alphabet:=['A','E','I','O','U'];
  18.  Include(Alphabet,'Y');
  19.  Write('Voyelle = ');
  20.  For C:='A' to 'Z' do If C In Alphabet Then Write(C);
  21.  WriteLn;
  22.  Caractere:=['0'..'9'];
  23.  Include(Caractere,'A');
  24.  Include(Caractere,'B');
  25.  Include(Caractere,'C');
  26.  Include(Caractere,'D');
  27.  Include(Caractere,'E');
  28.  Include(Caractere,'F');
  29.  Write('Hexadecimal = ');
  30.  For C:=#0    to #255    do If C In Caractere Then Write(C);
  31.  WriteLn;
  32. END.

on obtiendra le résultat suivant :

Voyelle = AEIOUY
Hexadecimal = 0123456789ABCDEF

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Exclude
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - In
Langage de programmation - Delphi/Kylix/Lazarus - Références de mots réservés (mots clefs) - Set

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