Anzahl Elemente in "set of"

[himitsu]

Zitat:

das wird wohl nicht funktionieren, da man ja auch folgendes machen kann:

drum schrieb ich, wenn zwischendurch nix fehlt!

Delphi-Quellcode:

type
  TFontStyle = (fsBold, fsItalic, fsStrikeOut, fsUnderline=15);
  TFontStyles = set of TFontStyle;

procedure Test(const Styles: TFontStyles);
var
  anzahlAttribute: Integer;
begin
  anzahlAttribute := Byte(Styles); // <--- Tata

Tata = Compilerfehler