Frage zu mehr Dynamik bei Zahlensystemumrechnungen

[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;