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;