Warum ist bei dem negativen Integer das erste Bit 0?

[DeddyH]

Oder auch so:

Delphi-Quellcode:

function IntToBinStr(Value: integer): string;
const
  BITS_PER_BYTE = 8;
  BIT_CHARS: array [Boolean] of char = ('0', '1');
var
  lLen: integer;
  i: integer;
begin
  lLen := BITS_PER_BYTE * SizeOf(Value);
  SetLength(Result, lLen);
  for i := High(Result) downto Low(Result) do
    begin
      Result[i] := BIT_CHARS[Value and 1 = 1];
      Value := Value shr 1;
    end;
end;