rekursiver mist^^

[Angel4585]

Zitat von Daniel:

Du hast nicht nur mit Deinem Code "Mist" gebaut ... auch der Titel, den Du Deinem Thema gegeben hast, ist als ebensolcher zu bezeichnen.

Find ich auch..

TOPIC:

Delphi-Quellcode:

TMyFunction = class(TObject)
  private
   function Funktion1(Variable : Irgendwas):Nochwas;
   function Funktion2(Variable : Irgendwas):Nochwas;
   function Funktion3(Variable : Irgendwas):Nochwas;
  public
  end;


function TMyFunction.Funktion1(Variable : Irgendwas):Nochwas;
begin
Funktion2(Variable);
end;

function TMyFunction.Funktion2(Variable : Irgendwas):Nochwas;
begin
Funktion3(Variable);
end;

function TMyFunction.Funktion3(Variable : Irgendwas):Nochwas;
begin
Funktion1(Variable);
end;

So würde ich das lösen