Integer in Set laden

[samso]

Zitat von DieDolly:

Dann verstehe ich euch tatsächlich nicht und verstehe auch grundsätzlich überhaupt nix mehr.

Wenn ich von Außen 57 lese dann bedeutet das Niveau 1, 4, 5 und 6 sind frei. 2 und 3 noch nicht.
Wie gestaltet sich dann die Abfrage?

Delphi-Quellcode:

if TNiveau.nB in NiveauInt then // das hier dürfe niemals zutreffen, da Niveau 2 (B) nicht freigeschaltet ist.
 Include(NiveauSet, TNiveau.nB);

Aber da oben wird doch im Prinzip geprüft, ob die 1 in der 57 ist. Denn Element nB ist das zweite Element im Set mit dem Wert 1.
Aber eigentlich müsste ich 2 abfragen.

Ok ich glaube das wars ich gebe auf. Ich brauche diese Zahlen weil ich sonst keine Ahnung habe wie ich prüfen kann was frei ist und was nicht.

Man kann das natürlich auch ohne Sets umsetzen. Dann bekommt man auch die 32 zu sehen...

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  Niveaus: Integer;
  i: Integer;
  N: Integer;
begin
  Niveaus := StrToInt('57');
  N := 1;
  for i := 1 to 6 do
  begin
    if N and Niveaus<>0 then
      WriteLn(Format('Niveau %d ist freigeschaltet', [i]));
    N := N * 2;
  end;
  ReadLn;
end.

Gerne liefere ich das auch in Assembler...