XML Tag auslesen und in memo schreiben

[sexmagic]

Hallo Leute ich war glaub ich über ein Jahr abstinent und muss nun für einen Freund ein kleines Tool schreiben das einen Ordner mit Unterordner ausliest, darin befinden sich viele XML Dateien, ich muss nun alle XML Dateien auslesen und einen Wert aus einem Tag in ein Memo schreieben.

Mein Problem ich bin nichtmehr wirklich so fit in Delphi und mit XML hab ich auch noch nie was gemacht.

Also das mit dem rekursiv auslesen mach ich nachher da hab ich noch einige Projekte wo ich nachsehen kann wie ich das gemach thab, aber beim XML bitte ich um Hilfe.

Ich hab die Datei nun geladen und ich kann auch die Ganze FIle in ein Memo lesen nur das Tag krieg ich nicht raus.

Hier mal mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
xmltag: string;
mgetag: IXMLNode;
mgeresult: string;

begin
xmltag:= 'mge_ident';

Memo1.Clear;
XMLDocument1.LoadFromFile(Edit1.Text);
mgetag := XMLDocument1.DocumentElement.ChildNodes.FindNode('mge_ident');
//mgeresult := mgetag.ChildNodes['mge_ident'].Text;
//memo1.Lines.Add(mgeresult);

end;

Kann mir jemand sagen wie ich nur den Text im Tag <mge_ident> in das Memo kriege.


Hier der Teil der XML:

Delphi-Quellcode:

  <?xml version="1.0" encoding="UTF-8" ?> 
- <root>
- <root_mge_ident>
  <mge_ident>S 026-test.pdf</mge_ident> 
  </root_mge_ident>
- <root_ssettingsname>
  <ssettingsname>11_5701.xml</ssettingsname> 
  </root_ssettingsname>
- <root_liinfo>.....

Ich danke euch schon jetzt für eure Hilfe.

Verwendet hab ich TXMLDocument von Delphi und als DomVendor hab ich openXML eingestellt (Was auch immer das bedeutet :) )

;)