Hi,
ich hab eben mal ein Projekt von mir abgewandelt.
Ich hoffe, es hilft (ungetestet!)
Delphi-Quellcode:
var
products: ixmlnodelist;
product: ixmlnode;
begin
products := xmldoc.ChildNodes.FindNode('products').ChildNodes;
for i := 0 to products.Count-1 do
begin
product := products.Get(i);
if lowercase(product.NodeName) = 'product' then //<-- Das if kannst du weglassen, wenn es eh nur <product>-Tags gibt
begin
with product do
begin
...
end;
end;
end;
end;
Edit: Variablennamen geändert...