Wert in XML finden?

[LPascal]

Hallo zusammen,
bin neu hier und habe gleich diese Frage: also ich habe viele XML-Dateien dieser Art. Gesucht soll nach der Anrede "Dr.", was natürlich an unterschiedlichen Stellen sich befinden kann, oder gar fehlen kann. Ist diese Gefunden - soll sein Alter ausgelesen werden, und das Auslesen des Alters gelingt mir nicht. Könnte mir da jemand auf die Sprünge helfen?

Code:

<PDB>
  <Header>
    <Daten>
      <Personen> 
        <Anrede>Herr</Anrede>
        <Vorname>Otto</Vorname>
        <Nachname>Müller</Nachname>
        <Alter>45</Alter> 
      </Personen>
      <Personen>
        <Anrede>Frau</Anrede>
        <Vorname>Atta</Vorname>
        <Nachname>Schmidt</Nachname>
        <Alter>56</Alter> 
      </Personen>
      <Personen>
        <Anrede>Dr.</Anrede>
        <Vorname>Michael</Vorname>
        <Nachname>Meier</Nachname>
        <Alter>55</Alter> 
      </Personen>
      <Personen>
        <Anrede>Herr</Anrede>
        <Vorname>Gerd</Vorname>
        <Nachname>Schulz</Nachname>
        <Alter>33</Alter> 
      </Personen>
   </Daten>  
  </Header>
</PDB>

Delphi-Quellcode:

    ReadXMLFile(Doc, 'test.XML');
    NList := Doc.GetElementsByTagName('Anrede');

    if Assigned(NList) then
    begin
      for i := 0 to NList.Count - 1 do
      begin
          if NList.Item[i].TextContent = 'Dr.' then
          begin
            // wie hier das Alter von "Dr. Meier" auslesen?    
          end;
      end;
    end;

Vielen herzlichen Dank!

[Klaus01]

.. wieso iterierst Du nicht durch den Tag <Personen> und fragst dann die <Anrede> ab. Ist die Anrede Dr. dann kannst Du auch noch das Alter abfragen.
Grüsse Klaus

[LPascal]

Zitat von Klaus01:

.. wieso iterierst Du nicht durch den Tag <Personen> und fragst dann die <Anrede> ab. Ist die Anrede Dr. dann kannst Du auch noch das Alter abfragen.
Grüsse Klaus

Ja, genau! Die Frage ist nur wie frage ich das Alter ab?

[Klaus01]

.. Du itterierst über den Tag <Anrede>

Delphi-Quellcode:

   ReadXMLFile(Doc, 'test.XML');
    NList := Doc.GetElementsByTagName('Personen');

    if Assigned(NList) then
    begin
      for i := 0 to NList.Count - 1 do
      begin
          if NList.Item[i].FindNode('Anrede').TextContent = 'Dr.' then
          begin
            NList.Items[i].FindNode('Alter').TextContent;
          end;
      end;
    end;

Die NList beinhalten alle Node mit dem Tag <Personen>.
In dem Node kannst Du dann Anrede und Alter abfragen.
Ich kenne leider nicht Deine xml Bibliothek - kann Dir daher nicht exakt sagen wie das geht.
Gibts da nicht sowas wie getNodeByName('Anrede') o.ä?

Grüße
Klaus

[LPascal]

Hallo Klaus,

danke Dir! Ich schaue mal nach!

[zeras]

Deine Aufgabenstellung scheint nicht klar. Du schreibst oben, dass du nach Dr. suchst und dann das Alter auslesen möchtest. Daraus deute ich, das, wenn du keinen Dr. findest, das Alter nicht interessant ist. Bei Klaus wird doch nach Dr. gesucht und erst wenn dieser gefunden wurde, dann wurde das Alter ermittelt.
Nach was willst du nun suchen?