Einzelnen Beitrag anzeigen

Snoop007

Registriert seit: 15. Jan 2003
331 Beiträge
 
Delphi 6 Personal
 
#2
  Alt 22. Jan 2003, 22:08
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.
  Mit Zitat antworten Zitat