TBigUInt - Noch ein Datentyp für große Zahlen

[himitsu]

Das IntToStr müßte man auch kürzen können ...
zumindestens die 0-Prüfung vorher ist nicht sooo wichtig, wenn man die Schleife andersrum (als Repeat-Until) definiert
und ich hoffe beim Format hab ich den richtigen Parameter gewählt.

Delphi-Quellcode:

function IntToStr(Value: TBigUInt): String;
var tmp: TBigUInt;
begin
  repeat
    tmp   := Value mod 1000000000;
    Value := Value div 1000000000;
    if Value <> 0 then 
      Result := Format('%.9d%s', [tmp[0], Result])
    else Result := Format('%d%s', [tmp[0], Result]);
  until Value = 0;
end;

Und wozu war eigentlich das [/i]tmp:=Value;[/i] vor der Schleife?


ansonsten kannst auch gern mal nach TBigInt und MiniMathLib schauen
- TBitInt ist in etwa sowas wie Deines
- und die MiniMathLib ist sowas wie eine erweiterbare Masterklasse für solche Datentypen

hab leider nicht so die Zeit daran weiterzuarbeiten (sind halt nur kleine Spielereinen für Nebenbei )