Section courante

A propos

Section administrative du site

SET

Ensemble
Delphi/Kylix/Lazarus

Syntaxe

Type identype=Set of typbase;
Var identvar:Set of typbase;

Paramètres

Nom Description
identype Ce paramètre permet d'indiquer un nom de type de données
identvar Ce paramètre permet d'indiquer un nom de variable
typbase Ce paramètre permet d'indiquer un type de base

Description

Ce mot réservé permet de définir des ensembles.

Remarque

Exemple

Voici quelques exemples de l'utilisation de ce mot réservé :

  1. Program SetSamples;
  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.  Alphabet:=['A','E','I','O','U','Y'];
  17.  Write('Voyelle = ');
  18.  For C:='A' to 'Z' do If C In Alphabet Then Write(C);
  19.  WriteLn;
  20.  Caractere:=['0'..'9','A'..'F'];
  21.  Write('Hexadecimal = ');
  22.  For C:=#0    to #255    do If C In Caractere Then Write(C);
  23.  WriteLn;
  24. 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érence de procédures et fonctions - In
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Include

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