Delphi Umrechnen Bin-Dez / Dez-Bin ohne shr oder shl

Thema durchsuchen

Ansicht

Themen-Optionen

Umrechnen Bin-Dez / Dez-Bin ohne shr oder shl

Ein Thema von Evian · begonnen am 6. Sep 2003 · letzter Beitrag vom 6. Nov 2007

Vorheriger Beitrag

Nächster Beitrag

Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge

Delphi 2006 Professional

Re: Frage zu Pascal

6. Sep 2003, 20:54

zusammenfalten · markieren

Delphi-Quellcode:

			function IntToBin(Int: Integer): String;

var

  i : Integer;

begin

  Result := '';

  for i := 7 downto 0 do

  Result := Result + IntToStr((Int shr i) and 1);

end;

function BinToInt(Binary: String): Integer;

var

  i : Integer;

begin

  Result := 0;

  for i := Length(Binary) downto 1 do

  Inc(Result, StrToInt(Binary[i]) * 1 shl (Length(Binary) - i));

end;