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?