Anzahl Elemente in "set of"

[himitsu]

@axel: dafür brauchst du aber auch eine "aktuelle" Variable/Konstante.

deine Funktion + diese Definition (ähnliches gilt auch für die anderen Zählfunktionen) würde hier 8 liefern und nicht 4.

Delphi-Quellcode:

type
  TFontStyle = (fsBold=0, fsItalic=1, fsStrikeOut=6, fsUnderline=7);
  TFontStyles = set of TFontStyle;

x := CountStyles([TFontStyle(0)..TFontStyle(7)]);
// oder
x := CountStyles([fsBold..fsUnderline]);