Integer in Set laden

[DieDolly]

Wenn ins Programm 57 eingelesen wird, wie ermittle ich dann welche Niveaus freigeschaltet wurden bei nur 6 Bit?

Das externe programm speichert Niveau 1 mit 1 ab, 2 mit 2, 3 mit 4, 4 mit 8, 5 mit 16 und 6 mit 32.

[samso]

Zitat von DieDolly:

Wenn ins Programm 57 eingelesen wird, wie ermittle ich dann welche Niveaus freigeschaltet wurden bei nur 6 Bit?

Das externe Programm speichert Niveau 1 mit 1 ab, 2 mit 2, 3 mit 4, 4 mit 8, 5 mit 16 und 6 mit 32.

Ja, und Du speicherst Niveau 1 mit nA ab, 2 mit nB, 3 mit nC, 4 mit nD, 5 mit nE und 6 mit nF. Sind alle Niveaus von 1 bis 32 freigeschaltet, ist auch nA bis nF gesetzt. Liest Du 57 ein, ist Dein Set: [nA, nD, nE, nF].

Wenn Du wissen willst, ob Niveau 5 freigeschaltet ist, dann ist die Abfrage dazu

Code:

nE in Niveaus

Hast Du meinen Quelltext mal ausprobiert?

Vielleicht ist es so klarer:

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;
  NiveauZahl: Byte;
begin
  Niveaus := TNiveauSet(Byte(StrToInt('57')));
  NiveauZahl := Byte(Niveaus);
  if Niveau5 in Niveaus then
    WriteLn('Niveau 5 ist freigeschaltet');
end.

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

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