ASCII Code in Binär Code?

[Snoop007]

ich hoffe es hilft

Code:

unit binary;

interface


uses SysUtils;

  function StrToBin(z : char) : string;
  function StrToBinX(z : char) : string;
  function BinXToStr(s : string) : integer;
implementation

function StrToBinX(z : char) : string;
var
  zeichen : integer;
  ergebnisbin : string;
begin
  zeichen := ord(z);
  while trunc(zeichen) <> 0 do
  begin
    ergebnisbin := IntToSTr(zeichen mod 2) + ergebnisbin;
    zeichen := trunc(zeichen / 2);
  end;
  while length(ergebnisbin) <> 8 do
  begin
    ergebnisbin := '0' + ergebnisbin;
  end;
  result := ergebnisbin;
  ergebnisbin := '';
end;

function StrToBin(z : char) : string;
var
  zeichen : integer;
  ergebnisbin : string;
begin
  zeichen := ord(z);
  while trunc(zeichen) <> 0 do
  begin
    ergebnisbin := IntToSTr(zeichen mod 2) + ergebnisbin;
    zeichen := trunc(zeichen / 2);
  end;
  result := ergebnisbin;
  ergebnisbin := '';
end;

function BinXToStr(s : string) : integer;
var
  i,z : integer;
  u : byte;
begin
  s := trim(s);
  z := 0;
  u := 128;
  for i := 1 to length(s) do
  begin
    z := z + StrToInt(s[i]) * u;
    u := u div 2;
  end;
  result := z;
end;

end.