Anzahl Elemente in "set of"

[alex517]

noch eine Variante

Delphi-Quellcode:

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

function CountStyles(const AStyles: TFontStyles): integer;
var
  f: TFontStyle;
begin
  Result := 0;
  for f := low(TFontStyle) to high(TFontStyle) do 
    if f in AStyles then
      inc(Result);
end;

alex