XML teilweise auslesen und in Liste schreiben

[BlueBong]

Hallo miteinander

Ich habe eine XML Datei die wie folgt aussieht.

XML-Code:

<?xml version="1.0"?>
<xml>
  <insel>
     <nummer>1</nummer>
     <kommentar>Test</kommentar>
  </insel>
  <insel>
     <nummer>3</nummer>
     <kommentar>Test2</kommentar>
  </insel>
</xml>

Nun möchte ich jeweils die Nummer auslesen und in eine Listbox schreiben.

Wie kann ich dies lösen???

Danke für eure Antwort.

MfG Michael

[Ultimator]

Probiers mal so:

Delphi-Quellcode:

procedure Machen;
var eintraege: IXMLDOMNodeList;
  subNode: IXMLDOMNode;
  i:integer;
begin
eintraege := xmlDoc.documentElement.selectNodes('insel');
  for i := 0 to eintraege.length - 1 do
  begin
    subNode := eintraege.item[i].selectSingleNode('nummer');
    Memo1.Lines.Add(subnode.text);
    subNode := eintraege.item[i].selectSingleNode('kommentar');
    Memo1.Lines.Add(subnode.text);
  end;
end;

Müsste gehen, habs aber nicht getestet

[BlueBong]

Ok funktioniert so. Danke.