Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#10

Re: den Inhalt eines Bytes in einem String darstellen

  Alt 1. Sep 2008, 12:18
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
  Mit Zitat antworten Zitat