Bits in Bytes unwandeln

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

function BitsToByte(const ABit: string): Byte;
var i: integer;
    sBit: byte;
begin
  sBit := 1;
  Result := 0;
  for i := Length(ABit) downto 1 do
    begin
      if ABit[i] <> '0' then
        Result := Result or sBit;
      sBit := sBit shl 1;
    end;
end;