Die Funktion läuft soweit bis zum Wert 3234846615.
Mit dem letzten Wert, den ich benötige, läuft es leider nicht mehr...
100280245065
Ne Idee, woran es liegt?
Delphi-Quellcode:
primzahlen := Tintarray.Create;
primzahlen := Factorize(3234846615);
function Factorize(const V: int64): TIntArray;
var
t, x, Count: Cardinal;
begin
result := TIntArray.Create;
t := 2;
x := V;
Count := 0;
while (t <= x) do
begin
if (x mod t = 0) then
begin
Count := Count + 1;
Result.ints[Count] := t;
x := x div t;
t := 2;
end
else
t := t + 1;
end;
end;