Jo, meine funktioniert soweit. Hab ein paar Millionen Tests durchgeführt. Die DivMod-Routine geht
sicher nur für S = 0. Und, wie du schon vermutet hast, deine liefert z.B. für 6624 div 9 = 33554656 statt 736. Anyway..
Danke für deine Unterstützung, ohne deine Vereinfachung von heute morgen hätte ich’s nicht geschafft!!
Zu guter Letzt, hast du eine Idee für eine elegante HugeIntToInteger ?
Sorry ziehe die Frage zurück, ist ja wohl zu ...
Delphi-Quellcode:
function HugeIntToInteger(A: HugeInt): integer;
begin
Move(A, Result, SizeOf(integer));
end;