bit <---> word

[negaH]

Zitat von 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;

und noch einfacher

Delphi-Quellcode:

begin
  Result := 0;
  for i := Low(Bits) to High(Bits) do
    Inc(Result, Result + Ord(Bits[i]));
end;

Gruß Hagen