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;