Elemente in Mengen mit ASM zählen

[Dax]

Ich wüsste was viel eleganteres:

Delphi-Quellcode:

type
  TMenge = set of 0..255;

function Length(victim: TMenge): Integer;
var i: Integer;
begin
  Result := 0;
  for i := 0 to 255 do
    if i in victim then
      Inc(Result);
end;