Bei der Folgende Function wird mein result immer überschrieben;
Delphi-Quellcode:
function TForm1.Fakulitaet(
n : integer;
max : integer;
iErgebnis: integer): integer;
var
I: integer;
begin
if n <= max then
begin
iErgebnis := iErgebnis * n;
n := n + 1;
result := iErgebnis;
self.Fakulitaet(n, max, iErgebnis);
end;
end;
Er rechnet richtig, bei 5 120 etc.
Das result ist aber ständig eins ....
Wie kann man bei einer rekusiven Function das result nehmen, welches am letzten herausgefunden war.