Hmm es will nicht so richtig klappen.
Mein Button soll alle Child Elemente eines Trees durchlaufen und den Text dazu ausgeben
Menschen
|
|-Horst
|
|-Herbert
|
|Katzen
|
|-Muschi
|
|-Cleo
Delphi-Quellcode:
Procedure Button1.Click(Sender: TObject);
var node, child: TTreeNode;
Begin
node:=TreeView1.Items.GetFirstNode;
while node <> nil do
begin
child := node.GetFirstChild;
Showmessage(child.Text);
node := node.GetNext
end;
End;
Als Ergebnis bräuchte ich nun nacheinander die Strings: "Horst", "Herbert", "Muschi", "Cleo"
Es gibt unendlich viele Treeview Topics hier und keins hilft mir so recht bei der Lösung. Oder ich sehe die Lösung vor lauter Lösungen nicht
