XML: Einstieg: Wie komme ich an die "richtigen" Werte?

[juergen]

Hallo zusammen,

momentan muss ich mich mit XML beschäftigen und habe mir da schon einiges erarbeitet. Prinzipiell fällt es mir aber schwer, da ich immer wieder in Fallen tappe und vor allem (für Anfänger) schwierig die Begrifflichkeiten aus der XML Welt und die aus der Delphi Welt zusammenbringen muss.

Meine Test-XML sieht (auszugsweise) so aus:

Code:

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<xxxx xmlns="http://www.xxxx">
  <XXXXInfo>
    <Version>3.1</Version>
    <VersDate>2009-12</VersDate>
    <Date>2012-02-29</Date>
    <Time>16:29:12</Time>
    <ProgSystem>xxxxxxxx;yyyyyyyy</ProgSystem>
    <ProgName>xxxxxxxx</ProgName>
  </xxxxInfo>
  <PrjInfo>
    <NamePrj>Beispielprojekt</NamePrj>
    <LblPrj>Musterprojekt</LblPrj>
    <Cur>EUR</Cur>
    <CurLbl>Euro</CurLbl>
    <UPFracDig>2</UPFracDig>
  </PrjInfo>
  <Award>
    <DP>83</DP>
    <AwardInfo>
      <Cur>EUR</Cur>
      <CurLbl>Euro</CurLbl>
      <EvalEnd>2011-12-20</EvalEnd>
      <SumbLoc>siehe Anschrift AG</SumbLoc>
    </AwardInfo>
    <OWN>
      <Address>
        <Name1>xxxxx GmbH</Name1>
        <Street>xxxstr. 4</Street>
        <PCode>12345</PCode>
        <City>Ludwigsfelde</City>
        <Country>Deutschland</Country>
        <Phone>0049 12345789-0</Phone>
        <Fax>0049 123456789-30</Fax>
      </Address>
    </OWN>
    <AddText>
      <OutlineAddText>
        <p style="text-align:left;">
          <span style="font-family:'Courier New CYR';font-size:10pt;"> </span>
        </p>
      </OutlineAddText>
      <DetailAddText>
&#8230;

Mein z.Zt. angewendeter Code:

Delphi-Quellcode:

PROCEDURE Tfrm_Main.XML_durchsuchen(my_XML_Stream: TStringStream);
VAR
  Node, SubNode: IXMLNode;
  XMLDoc: IXMLDocument;
  i: Integer;
BEGIN
  i := 0;
  Memo_tmp.Clear;
  XMLDoc := newXMLDocument;
  XMLDoc.LoadFromStream(my_XML_Stream);
  XMLDoc.Active := true;

  Node := XMLDoc.DocumentElement.ChildNodes['AwardInfo'];

  WHILE Assigned(Node) DO
  BEGIN
    TRY
      IF NOT Node.DOMNode.HasChildNodes OR ((Node.DOMNode.ChildNodes.length = 0) AND (Node.DOMNode.ChildNodes[i].nodeType IN [TEXT_NODE, CDATA_SECTION_NODE])) THEN
      // ansonsten kommt Fehlermeldung wenn .NodeValue leer ist!
      BEGIN
        IF (Node.ChildNodes['Cur'].NodeValue <> Null) THEN // ansonsten kommt Fehlermeldung wenn .NodeValue leer ist!
        BEGIN
          Memo_tmp.Lines.Add('1' + Node.ChildNodes['Cur'].NodeName + ' : ' + Node.ChildNodes['Cur'].NodeValue);
        END ELSE BEGIN
          Memo_tmp.Lines.Add('2: ' + Node.ChildNodes['Cur'].NodeName);
        END;
      END;
    EXCEPT
      ON E: Exception DO
      BEGIN
        Inc(i);
      END;
    END;
    Node := Node.NextSibling;
    Inc(i);
  END;
END;

Folgende Fragen habe ich nun:
1. Wie komme ich an den Wert "EUR" bei <Cur>?
2. Handhabe ich das mit meiner Integer-Variable "i" überhaupt richtig (...Node.DOMNode.ChildNodes[i].nodeType... )?


Vielen Dank im Voraus für einen Schubs in die richtige Richtung!


Edit: In meinem Memo steht immer "2: Cur" weil IMMER NodeValue als Null erkannt wird... Ich möchte aber den Wert "EUR" ausgeben.