Problem mit Mengen

[negaH]

Delphi-Quellcode:

function CountOfElements(const Elements: TElements): Integer;
var
  I: TElement;
begin
  Result := 0;
  for I := Low(I) to High(I) do
    if I in Elements then 
      Inc(Result);
end;

function CountOfElements(const Elements: TElements): Integer;
var
  I: Int64;
begin
  I := Ord(Elements);
  Result := 0;
  while I <> 0 do
  begin
    if Odd(I) then Inc(Result);
    I := I shr 1;
  end;
end;

ungetestet, müsste aber so gehen.

Gruß Hagen