Integer in Set laden

[samso]

Ich kann mich nur wiederholen. Mein Programm leistet exakt das, was Du möchtest. Teste es doch bitte bitte bitte mal!

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
 TNiveau = (Niveau1, Niveau2, Niveau3, Niveau4, Niveau5, Niveau6);
 TNiveauSet = set of TNiveau;

var
  Niveaus: TNiveauSet;
  N: TNiveau;
begin
  Niveaus := TNiveauSet(Byte(StrToInt('57'))); // Integer in das Set laden
  // Ausgabe welche Niveaus freigeschaltet sind
  for N:=Niveau1 to Niveau6 do
  begin
    if N in Niveaus then
      WriteLn(Format('Niveau %d ist freigeschaltet', [ord(N)+1]));
  end;
  ReadLn;
end.