Integer in Set laden

[DieDolly]

Ich habe diese Deklarationen

Delphi-Quellcode:

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

In einer Procedure lade ich einen Integerwert aus einer Datei der zum Beispiel 57 sein kann in eine Variable NiveauInt.
Mit sowas hier gucke ich, welches Niveau im Set enthalten ist (insgesamt 6x)

Delphi-Quellcode:

if TNiveau.nA in NiveauInt then
 Include(NiveauSet, TNiveau.nA);

Das Problem ist, dass ich die 57 nicht in die Variable NiveauInt geladen bekomme.
Mein Versuch

Delphi-Quellcode:

NiveauInt := TNiveauSet(Byte(57));

Egal von welchem Typ NiveauInt ist, es klappt nicht. Was mache ich falsch?

[Uwe Raabe]

Der höchste Wert im Set is 32. Damit benötigt das Set 33 Bit und passt nicht mehr in einen Integer - und schon gar nicht in ein Byte.

[DieDolly]

Habe ich hier einen Denkfehler? Int64 funktioniert auch nicht.
Das Problem ist, dass ich = 1, = 2, = 4 bis 32 angeben muss, da die Werte die von Außen kommen sonst nicht stimmen.

Delphi-Quellcode:

 NiveauInt := TNiveauSet(StrToInt64Def(57, 0));

[Redeemer]

Zitat:

Zitat von DieDolly (Beitrag 1449788)

Delphi-Quellcode:

 NiveauInt := TNiveauSet(StrToInt64Def(57, 0));

Na ja, 57 ist auch kein String, falls du das meinst.

[DieDolly]

Ist nur ein Tippfehler hier im Editor von mir. Da kommt schon ein String rein.

[Uwe Raabe]

Zitat:

Zitat von DieDolly (Beitrag 1449788)

Habe ich hier einen Denkfehler?

Vermutlich! Dein Code compiliert ja nicht mal, da nC doppelt vorkommt. Also zeig bitte mal den realen Code.

[DieDolly]

Nimm das nC weg :P Es sind nur Tippfehler im Editor. Das ist so gesehen realer Code nur habe ich die Variablennamen abgeändert. Alle Namen der Deklarationen sind bei mir richtig.
Sowas würde der Compiler als aller erstes bemängeln. Aber es geht nur um diese Umwandlung. Es hakt nur an dieser einen Stelle

Delphi-Quellcode:

NiveauInt := TNiveauSet(StrToInt64Def('57', 0));

Die 57 kommt aus einer Textdatei.

Auch hiermit kommt der Umwandlungsfehler. Also ohne Zuweisungen der Zahlen.

Delphi-Quellcode:

  TNiveau = (nA, nB, nC, nD, nE, nF);

Füge ich dann oben Byte() hinzu, funktioniert es. Aber ich brauche leider die Wert bis = 32.

Ich erkläre mal das Vorhaben.
Ein externes Programm hat 6 Niveau-Stufen die man freischalten kann. Das Programm speichert das in folgenden Schritten: 1, 2, 4, 8, 16 und 32.
Hat man alle 6 Stufen freigeschaltet, steht in der Konfigurationsdatei 63.

Diese Zahl lese ich aus und möchte meine Datentypen oben damit korrekt füllen. Das mache ich mit den

Delphi-Quellcode:

in

-Abfragen.

[DenkDirNix]

Wenn solche Typ-Umwandlungen haken kann man gut mit varianten Records "herumspielen". In deinem Fall:

Code:

var 
  Niveau: case boolean of
            false: (Menge: TNiveauSet);
            true : (Int  : int64)
          end

[Uwe Raabe]

Zitat:

Zitat von DieDolly (Beitrag 1449795)

Füge ich dann oben Byte() hinzu, funktioniert es. Aber ich brauche leider die Wert bis = 32.

Brauchst du nicht! Denn...

Zitat:

Zitat von DieDolly (Beitrag 1449795)

Ein externes Programm hat 6 Niveau-Stufen die man freischalten kann. Das Programm speichert das in folgenden Schritten: 1, 2, 4, 8, 16 und 32.
Hat man alle 6 Stufen freigeschaltet, steht in der Konfigurationsdatei 63.

Die Zahlen 1, 2, 4, 8, 16, 32 sind lediglich die entsprechenden Bitmasken, aber nicht die Ordnungszahlen der Set-Elemente.

Da deine Integerwerte nicht größer als 63 werden können, genügt ein Byte-Cast.

Direkt auf den Integer casten geht nicht, da das Set nur ein Byte groß ist und somit beim Cast auf einen Integer die Größe nicht passt.

[samso]

Zitat:

Zitat von DieDolly (Beitrag 1449795)

Das Programm speichert das in folgenden Schritten: 1, 2, 4, 8, 16 und 32.
Hat man alle 6 Stufen freigeschaltet, steht in der Konfigurationsdatei 63.

Dann hat Dein Set aber nicht 33 Bit sondern 6 Bit. So sollte es gehen:

Delphi-Quellcode:

type
 TNiveau = (nA, nB, nC, nD, nE, nF);
 TNiveauSet = set of TNiveau;


var
  Niveaus: TNiveauSet;
  NiveauZahl: Byte;
begin
  Niveaus := TNiveauSet(Byte(StrToInt('57')));
  NiveauZahl := Byte(Niveaus);
end;