Zitat von
Luckie:
Delphi-Quellcode:
if UpperLimit < 0 then
raise ERangeError.Create('Wert ausserhalb des Wertebereichs');
Wäre es nicht besser hier eine EInvalidParam zu werfen? Es ist ja eigendlich kein RangeError sondern eher ein ungültige Operation. Die Mathunit macht das doch auch irgenwie
Naja nun zum Problem, du wirst mit der Fakultät ja nie genau High(Int64) erreichen, dahher musst du vorher berechnen, was die größt mögliche Fakultät ist und dann vorher prüfen ob UpperLimit genau diesen Wert hat. Fakultät von 4 ist ja 1 * 2 * 3 * 4, also benutz einfach den Debugger und finde herraus, welchen Wert UpperLimit hat, bevor es zu dem Fehler kommt. Könntest z.B. auch ne Konsole allocen und dann mit WriteLn jedes mal UpperLimit ausgeben, das was am Ende da steht ist der gesuchte Wert. (
AllocConsole (?) oder einfach als Consolenprogramm kompelieren. ( {$APPTYPE CONSOLE} ) )