Hallo,
ich suche nach einer geeigneten Datenstruktur, um in einem rekursiven Programm Strings einzusammeln.
Die Methode sollte einen String, besser eine TStringList oder ein Array of Strings zurückgeben.
Dabei müssen Teillisten zusammengefaßt werden. Wie geht das elegant? Hier der Algorithmus:
Delphi-Quellcode:
function TBaum.Traversiere(Z: TElement): TStringList;
var Inhalt: TStringList;
Begin
Inhalt := TStringList.Create;
IF Z<>NIL Then
Begin
Inhalt.Add(Traversiere(Z.gibSohn(ToLinks))); // geht nicht, da Add nur einen String anhängt
if Z<>Wurzel then
Inhalt.Add(Z.gibInhalt);
Inhalt.Add(Trraversiere(Z.gibSohn(ToRechts)));
End;
Traversiere := Inhalt;
End;