Problem Funktion, die als Rückgabe ein Objekt hat

[sakura]

Hm, ohne Code ist es schwer nachzuvollziehen, was genau Du verbrochen hast Deshalb anbei mal ein Beispiel mit eine TStringList...

Delphi-Quellcode:

function Find(WoDenn, WatDenn: String): TStringList;
var
  SubList: TStringList;
begin
  Result := TStringList.Create;
  // suche
  ....
  // rekursion
  SubList := Find(WoDenn, WatDenn);
  try
    // ergenisse zufügen
    Result.AddStrings(SubList);
  finally
    // nicht mehr benötigtes Objekt zerstören,
    // strings sind ja schon übernommen
    SubList.Free;
  end;
end;

......