Frage zu Hausaufgabe -> Treenodes?

[viakt133]

Hallo,

Ich mache gerade einen Lehrgang und

unser Lehrer hat uns die Hausaufgabe gegeben, eine Baumstruktur aufzubauen
und zu verwenden. Wir dürfen dabei die Klasse TTreeNode verwenden, sollen
aber am Ende deren Funktion auch verstehen.

Hab deshalb diesen Entwurf gebaut:

Delphi-Quellcode:

//FRoot ist der Wurzelknoten, definiert im Formular.

procedure TForm1.btnInsertClick(Sender: TObject);
var Child,RtNode: TTreeNode;
begin
  MeineStruktur := TTreeNodes.Create(MyTreeView);
  FRoot := TTreeNode.Create(MeineStruktur);
  RtNode := FRoot;
  with MeineStruktur do
  begin
    Child := Add(RtNode, 'Erster');
    AddChild(Child, 'Erster-darunter');
    AddChild(Child, 'Zweiter-darunter');
  end;
end;

procedure TForm1.btnShowClick(Sender: TObject);
var Node: TTreeNode;
begin
  if Assigned(FRoot) then
  Node := FRoot.getLastChild;
  while Node<>nil do
  begin
    //Mein Memo heißt Output
    output.Lines.Add(Node.Text);
    Node := Node.Parent;
  end;
end;

Nur sehe ich im Memofeld, hier output genannt, keine Ausgabe.
Hat jemand Ahnung, warum ich keine Ausgabe erhalte?
Das Treeview wird richtig angezeigt, ich seh auch die Knoten.
Warum nicht im Memo?

[s-off]

Das sollte sich mit dem Debugger herausfinden lassen