Integer in Set laden

[Uwe Raabe]

Zitat von freimatz:

Für ein Musterbeispiel einer Menge stehen die Elemente der Menge in keiner Beziehung. Hier jedoch scheinen die Elemente eine bestimmte Reihenfolge zu haben. Auch der Name "Niveau" suggeriert das.

Allerdings deutet der Eingabewert 57 an, daß in diesem Fall nur die Niveaus 1, 4, 5 und 6 freigeschaltet sind. Insofern ist der Mengenansatz hier schon gerechtfertigt.

[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.