Unterordner und deren unterordner

[Matze]

Du musst eine entsprechende Abbruchbedingung definieren:

Delphi-Quellcode:

function fak_rek(n: Integer): Integer;
begin
  if n <= 1 then // Abbruchbedingung
    Result := 1
  else
    Result := n * fak_rek(n-1);
end;