Hab's jetzt, musste nur ein bisserl vertauschen
Delphi-Quellcode:
if trim(Node.ChildNodes.Nodes['Source'].Text) <> '' then
begin
for j := 0 to node.ChildNodes.count - 1 do
begin
dtrn := tree.Items.AddChild(trn, Node.ChildNodes.Nodes[j].Text);
end;
end;
Danke für die Hilfe!
Gruß
--