Dezimal in Binär umwandeln

[Christian Seehase]

Moin Brutus,

so ginge es dann "zu Fuss":

Delphi-Quellcode:

function IntToBin(const AdwValue : DWORD) : string;

  function PowerOf2(const AbExponent : byte) : DWORD;

  var
    i : byte;

  begin
    Result := 1;
    for i := 1 to AbExponent do inc(Result,Result);
  end;

var
  dwPower : DWORD;
  i       : integer;
  dwValue : DWORD;

begin
  Result  := StringOfChar('0',32);
  dwValue := AdwValue;
  for i := 31 downto 0 do begin
    dwPower := PowerOf2(i);
    if dwValue >= dwPower then begin
      Result[32-i] := '1';
      dec(dwValue,dwPower);
    end;
  end;
end;

Statt inc und dec lässt sich das natürlich auch mittels + und - ausdrücken.