XML teilweise auslesen und in Liste schreiben

[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