Integer in Bits

[Duffy]

Hallo,
anbei mal ein Beispiel, wie es gehen könnte.

Delphi-Quellcode:

function IntToBin(Value: Cardinal): string;
var
  I: Integer;
begin
  SetLength(Result, 32); // oder auch kürzer
  for I := 1 to 32 do
  begin
    if ((Value shl (I-1)) shr 31) = 0 then
    begin
      Result[I] := '0'
    end
    else
    begin
      Result[I] := '1';
    end;
  end;
end;

bye