[TXMLDocument] Problem mit Darstellung in Treeview

[calculon]

Hallo,

ich will eine solch-strukturierte XML-Datei in einer Treeview darstellen:

XML-Code:

   <Group title="Blabla" comment="">
      <Group title="Blablabla" comment="">
         <Document title="Blalba">
            <Source>http://www.blabla.com</Source>
         </Document>
         <Document title="Blablabla">
            <Source>http://www.blabla.com</Source>
         </Document>
         <Document title="Blablabla">
            <Source>http://www.blabla.com</Source>
            <Source>http://www.blablablabla.com</Source>
         </Document>

Das mach' ich rekursiv und es funtioniert auch alles, aber wenn innerhalb eines title-Blocks mehrere <Source> Elemente sind, wird nur der erste genommen. Der Rest wird ignoriert. Ich will aber alle als Nodes darstellen. Hier etwas Quellcode:

Delphi-Quellcode:

  var
    Node : IXMLNode;
    trn: TTreenode;
  begin
    
    [..]

    if Node = nil then Exit;
      // tree ist meine treeview
      trn := tree.Items.AddChild(trn, Node.Attributes['title']); 
      if trim(Node.ChildNodes.Nodes['Source'].Text) <> '' then
        trn := tree.Items.AddChild(trn, Node.ChildNodes.Nodes['Source'].Text);

Kann mir jemand weiterhelfen?

Gruß
--

[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;

[calculon]

Hi Morphie,

leider nicht; nun erkennt er zwar die richtige Anzahl, aber jetzt steht der selbe erste Wert eben zwei- oder dreimal untereinander.

In der Zwischenzeit hab ich herausgefunden, dass man mit
tree.Items.AddChild(trn, Node.ChildNodes.Nodes['Source'].NextSibling.Text zum nächsten Eintrag gehen kann, aber ich kann das Ganze einfach nicht rekursiv verpacken. Ich gelange immer in eine Endlosschleife...

Gruß
--

[calculon]

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ß
--

[Morphie]

klar, sorry, das hab ich übersehen
wie gesagt, nicht getestet...