Anzahl Elemente in "set of"

[Satty67]

Zumindes <> 0 geht so...

Delphi-Quellcode:

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

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

  case anzahlAttribute of
    0: ShowMessage('STYLES ist leer');
    1: ShowMessage('STYLES hat ein Attribut');
  else
    ShowMessage(Format('STYLES hat %d Attribute', [anzahlAttribute]));
  end;
end;

Zumindest in D5 sind die Bits je nach Listen-Element gesetzt.