Anzahl der Einträge in einem SET ermitteln

[negaH]

ohne Tricks und TypCasts gehts so:

Delphi-Quellcode:

type
  TType = (tyA, tyB, tyC, tyD);
  TTypes = set of TType;

function CountOf(const Value: TTypes): Integer;
var
  I: TType;
begin
  Result := 0;
  for I := Low(TType) to High(TType) do
   if I in Value then 
     Inc(Result);
end;

Gruß Hagen