Binärer Baum, Blätter durchegehen

[Quolz]

Hallo Leute,

Ich habe follgendes Problem, welches der Problematik eines Binären Baum ähnlich kommt:

Ich hab mehrere Objekte welche eine variable Anzahl Unterobjekte besitzen können. Diese Unterobjekte können wiederum eine variable Anzahl Unterobjekte besitzen usw. Nun sollte ich alle Objekte durchlaufen und von jedem Objekt den Namen in ein Textfile speichern.

Ich hab mir das nun irgendwie so vorgestellt:

Delphi-Quellcode:

for i:= 0 to myObject.count-1 do 
begin
  with myObject.Objects[i] do
  begin
    for z:= 0 to count-1 do
    begin
      //usw. ich sollte das irgendwie dynamisch machn, da es eine variable Anzahl Unterobjekte hat
    end;
  end;    
end;

Wäre für einen Denkanstoss dankbar.

~Quolz~