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
)