Integer in Set laden

[Dennis07]

AN dieser Stelle möchte ich noch einmal auf die CustomSets-Library auf GitHub hinweisen, die das Erstellen von Sets aus jedem beliebigen (ordinalen Typen) erlaubt.

[Stevie]

Delphi-Quellcode:

uses
  TypInfo;

type
 TNiveau = (nA, nB, nC, nD, nE, nF);
 TNiveauSet = set of TNiveau;

var
  n: TNiveau;
  s: TNiveauSet;
begin
  Byte(s) := 57;

  for n := Low(TNiveau) to High(TNiveau) do
    if n in s then
      Write(GetEnumName(TypeInfo(TNiveau), Ord(n)), ' ');
end.