Countbits fuer intel und non-intel bits.

[Dax]

Wenn du eine Bitswap-Funktion suchst..

Delphi-Quellcode:

function BitSwap(C: Cardinal): Cardinal;
var i: Integer;
begin
  Result := 0;
  for i := 0 to 31 do
    Result := Result + (C shr (31 - i) and 1) shl i;
end;