rekursiver mist^^

[Hawkeye219]

Hallo,

auch so kannst du es ohne Klassen versuchen:

Delphi-Quellcode:

function A: Double;

  function B: Double;
  
    function C: Double;
    begin
      Result := A;
    end;
    
  begin
    Result := C;
  end;
  
begin
  Result := B;
end;

Hoffentlich funktioniert die Abbruchbedingung für deine Rekursion...

Gruß Hawkeye