StrToBin <> BinToStr

[DeddyH]

Nochmal alles zusammen:

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;

function BitStrToCharStr(const sBits: string): string;
var iOffset: integer;
begin
  iOffset := 0;
  Result := '';
  while iOffset < Length(sBits) do
    begin
      Result := Result + Chr(BitsToByte(Copy(sBits,iOffset + 1,8)));
      inc(iOffset,8);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BitStrToCharStr('0100000101000010'));
end;

Du musst aber darauf achten, dass alle Binärstrings 8 Zeichen lang sind (OK, beim letzten ist das egal).