Frage zu mehr Dynamik bei Zahlensystemumrechnungen

[Mysterio08]

Hallo,

mit folgendem Code rechne ich vom Dezimal- ins Binärsystem:

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;

Das einzige Problem, was aufgetaucht ist, ist die 7. Wenn ich 9999 umrechne, werden mich ja nur sieben Stellen angezeigt, der "wahre" Binärwert hat aber mehr.
Wenn ich nun die Zahl 2 in binär umwandle, läuft die Schleife auch öfters durch, als sie es eigentlich bräuchte. Wie kann ich mehr Dynamik da reinbringen und besser zuschneiden?

[Aphton]

Wie wärs mit

Delphi-Quellcode:

function IntToBin(Int: Integer): String;
var
  i : Integer;
begin
  Result := '';
  while Int > 0 do
  begin
    Result := Result + IntToStr(Int and 1);
    Int := Int shr 1;
  end;
end;

[himitsu]

oder

Delphi-Quellcode:

for i := SizeOf(Integer)*8-1 downto 0 do

for i := 31 downto 0 do

Integer hat ja aktuell 32 Bit.

[mkinzler]

Und wird dies auch zukünftig haben