Mal angenommen, Deine Datei sieht wie folgt aus (dt/eng):
Code:
<vokabeln>
<pair><dt>ich</dt><en>I</en></dt></pair>
<pair><dt>du</dt><en>you</en></dt></pair>
<pair><dt>er</dt><en>he</en></dt></pair>
<pair><dt>sie</dt><en>she</en></dt></pair>
<pair><dt>es</dt><en>it</en></dt></pair>
</vokabeln>
dann würde folgender Code helfen (FXMLDoc: IXMLDOMDocument2; Deine
XML Datei)
Code:
procedure NextPair(var Deutsch, Englisch: AnsiString);
var
XMLPair: IXMLDOMNode;
begin
with FXMLDoc.documentElement do
XMLPair := childNodes.item[Random(childNodes.length)];
with XMLPair do
begin
Deutsch := selectSingleNode('dt').text;
Englisch := selectSingleNode('dt').text;
end;
end;
...
...