Integer in Bits

[Christian Seehase]

Moin Daniel,

die Umkehrung der Funktion in dem von Dir genannten Thread müsste hier zur Anwendung kommen:

Delphi-Quellcode:

function IntToBin(const AiValue : integer) : string;

const
  _aBinDigits : array [Boolean] of char = ('0','1');

var
  iPowerOfTwo : integer;
  i           : integer;

begin
  Result      := StringOfChar(#32,32);
  iPowerOfTwo := 1;
  for i := 32 downto 1 do
  begin
    Result[i]   := _aBinDigits[(AiValue and iPowerOfTwo) <> 0];
    iPowerOfTwo := iPowerOfTwo shl 1;
  end;
end;