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.