Problem mit mehreren Einträgen gleichen Namens

[miLeRiAm]

Hi,

folgendes XML:

XML-Code:

<?xml version="1.0"?>
<phonebooks>
   <book>
      <id>1</id>
      <name>Testgruppe</name>
   </book>
   <book>
      <id>2</id>
      <name>Testbuch 123</name>
   </book>
</phonebooks>

Folgender Delphi-Code:

Delphi-Quellcode:

  XMLDoc.LoadFromXML(res);

  StartItemNode := XMLDoc.DocumentElement.ChildNodes.FindNode('book');

  ANode := StartItemNode.ChildNodes.First;

  frmMain.lstBooks.Clear;

  showmessage(XMLDoc.XML.Text);

  while Assigned(ANode) do
  begin

    with frmMain.lstBooks.Items.Add do
     begin
      imageindex := 2;
      caption := ANode.ChildNodes['name'].Text;
      subitems.Add('-');
      subitems.Add(ANode.ChildNodes['id'].Text);
     end;

    ANode := ANode.NextSibling;
  end;

Wirft keine Fehler, aber die Einträge der Listview bleiben "leer", werden also angelegt, aber eben ohne Text.

Ideen?

Danke