Anzahl Elemente in "set of"

Hallo,

ich habe in einem Programm ein "set of"-Type deklariert.
Beispiel:

Delphi-Quellcode:

			type

  TFontStyle = (fsBold, fsItalic, fsStrikeOut, fsUnderline);

  TFontStyles = set of TFontStyle;

procedure Test(const Styles: TFontStyles);

var

  anzahlAttribute: Integer;

begin

  anzahlAttribute := Length(Styles); // <--- Compile-Error

  case anzahlAttribute of

    0: ShowMessage('STYLES ist leer');

    1: ShowMessage('STYLES hat ein Attribut');

  else

    ShowMessage(Format('STYLES hat %d Attribute', [anzahlAttribute]));

  end;

end;

Meine Frage ist nun wie ich herausfinden kann, wieviele Attribute(?) nun in dem set of enthalten sind?

Anzahl Elemente in "set of"

Anzahl Elemente in "set of"

Forumregeln