bit <---> word

[Dax]

Das geht aber viel einfacher

Delphi-Quellcode:

function BitsToInt(Bits: array of Boolean): Integer;
var i: Integer;
begin
  Result := 0;
  for i := 0 to High(Bits) do
  begin
    if Bits[i] then
      Result := Result shl 1 or 1
    else
      Result := Result shl 1;
  end;
end;