Integer in Set laden

[DieDolly]

Ich glaube du hast mich nicht verstanden.
Ich speichere gar nix ab. Ich lese nur aus.

Das andere Programm speichert ab mit 1 2 4 8 16 32 und allen Kombinationen daraus. Da kann ich nix dran ändern. Und das muss ich auslesen.

Und da das hier nicht funktioniert bin ich aufgeschmissen

Delphi-Quellcode:

TNiveau = (nA = 1, nB = 2, nC = 4, nD = 8, nE = 16, nF = 32);
TNiveauSet = set of TNiveau;

NiveauInt := TNiveauSet(StrToInt64Def(<der wert der von draußen kommt>, 0));

[Uwe Raabe]

Zitat von DieDolly:

Ich glaube du hast mich nicht verstanden.

Ich fürchte, du verstehst uns nicht. Deine Vorstellung der Bedeutung der Zahlwerte ist schlichtweg falsch.

[samso]

Zitat von DieDolly:

Ich speichere gar nix ab.

Ich meinte diesen Vorgang

Code:

NiveauInt := <irgendwas>

Da wird in der Variablen NiveauInt etwas gespeichert. Bei meinem Programm wird in der Variablen "Niveaus" ebenfalls etwas gespeichert.

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

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

[p80286]

Warum machst Du es nicht nach alter Väter Sitte

Delphi-Quellcode:

funktion Bit0set(wert:byte)_boolean;
begin
result:=((wert and 1) =1);
end;

funktion Bit1set(wert:byte):boolean;
begin
result:=((wert and 2) =2);
end;

usw.

Gruß
K-H

[Uwe Raabe]

Zitat von p80286:

Warum machst Du es nicht nach alter Väter Sitte

Ich hatte schon auf so was gewartet...

[p80286]

Zitat von Uwe Raabe:

Zitat von p80286:

Warum machst Du es nicht nach alter Väter Sitte

Ich hatte schon auf so was gewartet...

Na dann erzähl mal.
Ich hab bisher den Eindruck, daß der Einsatz eines Sets nicht eben intuitiv ist.


Gruß
K-H

[Uwe Raabe]

Zitat von p80286:

Ich hab bisher den Eindruck, daß der Einsatz eines Sets nicht eben intuitiv ist.

Ist er eigentlich schon - und besser lesbar auch. Wie jedes programmtechnische Konstrukt muss man es halt beherrschen. Das unterscheidet die Sets nicht von Pointern, Arrays, Records, Strings oder Klassen - von Generics, Threads und Anonymen Methoden ganz zu schweigen. Der ASM-Verweis hatte schon seine Berechtigung. Damit lässt sich all das auch nach alter Väter Sitte realisieren. Ist aber vielleicht nicht erstrebenswert.

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