String To Byte ...

[Union]

Oder auch so:

Delphi-Quellcode:

function CharToBin(AChar : char): string;
var
  i: Integer;
begin
  SetLength(result, 8);
  for i := 1 to 8 do
  begin
    if ((Byte(AChar) shl (i-1)) shr 7) = 0 then
      result[i] := '0'
    else
      result[i] := '1';
  end;
end;