Forum: Object-Pascal / Delphi-Language
Delphi
by Mokus,
8. Nov 2013
function TForm1.Fakulitaet(
n : integer;
max : integer;
iErgebnis: integer): integer;
begin
if n <= max then
begin
iErgebnis := iErgebnis * n;
n := n + 1;
result := self.Fakulitaet(n, max, iErgebnis); // falsche zuweisung fehlte,
Forum: Object-Pascal / Delphi-Language
Delphi
by Mokus,
8. Nov 2013
Bei der Folgende Function wird mein result immer überschrieben;
function TForm1.Fakulitaet(
n : integer;
max : integer;
iErgebnis: integer): integer;
var
I: integer;
begin
if n <= max then