[TXMLDocument] Problem mit Darstellung in Treeview

[Morphie]

hmmm ungetestet, sollte aber funzen:

Delphi-Quellcode:

var 
    Node : IXMLNode;
    trn: TTreenode;
    dtrn: TTreeNode;
    i: integer;
  begin


    if Node = nil then Exit;
      // tree ist meine treeview
      trn := tree.Items.AddChild(trn, Node.Attributes['title']);
      for i := 0 to node.ChildNodes.count - 1 do
      begin
        if trim(node.ChildNodes.Nodes[i].Text)<>'' then
        begin
          dtrn := tree.Items.AddChild(trn, Node.ChildNodes.Nodes['Source'].Text);
        end;
      end;