Set/fr

Introduction

Un ensemble (set) code plusieurs valeurs d'une énumération vers un type Ordinal.

Par exemple, prenons l'énumération:

  TSpeed = (spVerySlow,spSlow,spAVerage,spFast,spVeryFast);

Et cet ensemble:

  TPossibleSpeeds = set of TSpeed

TPossibleSpeeds peut être défini comme une constante entre crochets:

  const
    RatherSlow = [spVerySlow,spSlow];
    RatherFast = [spFast,spVeryFast];

RatherSlow et RatherFast sont quelques ensembles de TSpeed.

Manipulation des sets

Habituellement, deux fonctions natives du compilateur sont employées pour manipuler un ensemble : Include(UnEnsemble,UneValeur) et Exclude(UnEnsemble,UneValeur).

  var
    SomeSpeeds = TPossibleSpeeds;
  begin
    SomeSpeeds := [];
    Include(SomeSpeeds,spVerySlow);
    Include(SomeSpeeds,spVeryFast);
  end;

Les ensembles ne peuvent être directement manipulés s'ils sont des propriétés publiées d'une classe. Vous devez normalement alors faire une copie locale, la modifier et passer cette valeur au setter.

  procedure TSomething.DoSomething(Sender: TFarObject);
  var
    LocalCopy = TPossibleSpeeds;
  begin
    LocalCopy := Sender.PossibleSpeeds; // getter to local
    Include(LocalCopy,spVerySlow);
    Sender.PossibleSpeeds := LocalCopy; // local to setter.
  end;

Le mot-clé in est aussi utilisé pour vérifier si une valeur est dans un ensemble. Généralement, c'est de la forme:

  var
    CanBeSlow: Boolean;
  const
    SomeSpeeds = [Low(TSpeed)..High(TSpeed)];
  begin
    CanBeSlow := (spVerySlow in SomeSpeeds) or (spSlow in SomeSpeeds);
  end;

Les ensembles supportent aussi des opération ensemblistes sous la forme d'opérateurs décrits dans [http://www.freepascal.org/docs-html/ref/refsu45.html#x139-14900012.8.5| Set operators]

From the Free Pascal wiki, page "Set/fr", as it stood on 2020-02-26 after a change by Trev, out of the wiki's dump of 2024-05-26. 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.