Anzahl Elemente in "set of"

[himitsu]

Beim Casten mußt du einfach nur einen Typen gleicher Größe haben ... also einem, der dann SizeOf(TFontStyles) entspricht.

das kann auch ein Record oder StaticArray sein.

Delphi-Quellcode:

Type T = Array[0..31] of Byte;
  P = ^T;

Count := 0;
For i := 0 to SizeOf(Typ) do
  Count := Count + ZähleBitsInByte(P(@TypVar)[i]);

[Satty67]

Ja, mit einem Array of Byte geht es.

Aber wird dann wohl nicht wie erhofft einfacher auf die Werte zuzugreifen. Gesetzte Bit's müssen ja immer noch gezählt werden.

[DevilsCamp]

Zitat:

Zitat von Satty67

Ja, mit einem Array of Byte geht es.

Aber wird dann wohl nicht wie erhofft einfacher auf die Werte zuzugreifen. Gesetzte Bit's müssen ja immer noch gezählt werden.

Und das geht hervorragend mit der Funktion aus Post #10