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

[Luckie]

Wo ist da der Bezug vom Threadtitel zu deinem geschilderten Problem?

[miLeRiAm]

Zitat von Luckie:

Wo ist da der Bezug vom Threadtitel zu deinem geschilderten Problem?

Es gibt mehrere "book"-Einträge?

Vielen Dank für deine Hilfe (...)

[eikeble]

Wenn ich mich recht entsinne, musst du noch auf das Childelement von "id" respektive "name" zugreifen und dessen Text-Eigenschaft auslesen.
Oder verwechsle ich das mit dem bei Lazarus mitgelieferten XML Parser?

Gruß

Eike

[miLeRiAm]

Nein, das schon der selbe. Allerdings tue ich dies doch in der while-Schleife?

Edit: So gings...

Delphi-Quellcode:

  ANode := XMLDoc.DocumentElement.ChildNodes.First;

  while Assigned(ANode) do
  begin

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

    ANode := ANode.NextSibling;
  end;