Binärcode <--> ASCII

[marabu]

Falls die Binärzahl als String vorliegt, könnte das hier helfen:

Delphi-Quellcode:

function DualToStr(dual: String): String;
var
  i: integer;
  b: Byte;
  pcIn, pcOut: PChar;
begin
  SetLength(Result, Length(dual) div 8);
  pcIn := @dual[1];
  pcOut := @Result[1];
  b := 0;
  for i := 1 to Length(dual) do
  begin
    b := b shl 1 + Ord(pcIn^ <> '0');
    if i mod 8 = 0 then
    begin
      pcOut^ := Chr(b);
      b := 0;
      Inc(pcOut);
    end;
    Inc(pcIn);
  end;
end;

Grüße vom marabu