den Inhalt eines Bytes in einem String darstellen

[marabu]

Hallo,

natürlich kannst du die Bits eines Bytes recht einfach als Dualzahl sichtbar machen:

Delphi-Quellcode:

function StrToByte(const s: string): Byte;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
    Result := Result shl 1 + Ord(s[i] = '1');
end;

function ByteToStr(b: Byte): string;
var
  i: Integer;
begin
  SetLength(Result, 8);
  for i := 0 to 7 do
    Result[8 - i] := Chr(Ord('0') + Ord(Odd(b shr i)));
end;

Mit IntToHex() erhältst du die hexadezimale Darstellung, aber das kann nicht dein Problem gewesen sein - oder doch?

Grüße vom marabu