Integer in Set laden

[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