Verschachtelung korrekt auslesen

**tekkyeah**

Hallo zusammen, ich habe eine XML Datei mit nachfolgendem (verkürzt dargestellten) Aufbau. Diese möchte ich gerne einlesen... Prinzipiell besteht meine Datei aus "ordersätzen", die den Kunden beinhalten und dann die von ihm bestellten Produkte.

zusammenfalten · markieren

XML-Code:

			<orders_all>

- <orders>

  <customers_name>tekkyeah</customers_name> 

  <customers_company /> 

  <customers_city>Bremen</customers_city> 

  ...

  - <products>

    <orders_id>27</orders_id> 

    <products_id>3407</products_id> 

    <products_model>RC 80X120M/I</products_model> 

    </products>

  - <products>

    <orders_id>27</orders_id> 

    <products_id>209</products_id> 

    <products_model>ANT 20X30M</products_model> 

    </products>

  </orders>

</orders_all>

Ich habe mir die tlb in mein Delphi 5 Professional importiert und kann auf die XML-Datei zugreifen... die Kundeninformationen kann ich einlesen, aber wie bekomme ich die nächste Ebene eingelesen mit "products" ? Genauer gefragt... an welcher Stelle lese ich die die nodes für die "products" ein, analog der Zeile

"orders := xmlDoc.documentElement.selectNodes('orders');"

Auszug aus meinem Code...

zusammenfalten · markieren

Delphi-Quellcode:

			  
  xmlDoc := CoDOMDocument30.Create;

  (...)

  orders := xmlDoc.documentElement.selectNodes('orders');

  for i:=0 to orders.length - 1 do

  begin

    try

      subNode := orders.item[i].selectSingleNode('customers_name');

      (...)

    except

    end;

    try

      subNode := orders.item[i].selectSingleNode('customers_company');

      (...)

    except

    end;

    try

      subNode := orders.item[i].selectSingleNode('customers_city');

      (...)

    except

    end;

    products := xmlDoc.documentElement.selectNodes('products');

    for j:=0 to products.length - 1 do

    begin

      try

        subNode := products.item[j].selectSingleNode('orders_id');

      except

      end;

      try

        subNode := products.item[j].selectSingleNode('products_id');

      except

      end;

      try

        subNode := products.item[j].selectSingleNode('products_model');

      except

      end;

    end;

    (...)

Ich hoffe, mein Problem ist klar geworden... sicher ganz leicht zu lösen... nur ich komme nicht drauf... theoretisch könnte es ja noch weitergehende VErschachtelungen im Document geben, also ist meine primäre Frage: Wie greife ich auf unterliegende Ebenen zu...

Hoffe auch eine tolle Antwort...

Gruß
Holger

Verschachtelung korrekt auslesen

Verschachtelung korrekt auslesen

Forumregeln