Danke. Habe es grad allein hinbekommen.
Delphi-Quellcode:
var
I, X: Integer;
S: String;
begin
for I := 0 to TreeView1.Items.Count-1 do
if TreeView1.Items.Item[I].Parent = nil then
S := TreeView1.Items.Item[I].Text
else
Memo1.Lines.Add(S + ' ' + TreeView1.Items.Item[I].Text);
end;
5 Minuten später:
// Edit: Naja dann doch nicht ganz.... da ja jetzte einige Hauptnoden übersprungen werden