XML malwieder

[sakura]

Dann machen wir es ähnlich:

Delphi-Quellcode:

procedure NextPair(var Deutsch, Latein: AnsiString); 
var 
  I: Integer;
  XMLPair: IXMLDOMNode; 
  XMLPairs: IXMLDOMNodeList; 
  XSL: WideString;
begin 
  // alle Einträge der Listbox wählen, welche markiert sind (Text des Eintrags = Lektionsnummer)
  XSL := '';
  for I := 0 to Pred(ListBox1.Items.Count) do
    if ListBox1.Selected[I] then
      XSL := XSL + ' or (Lektion="' + ListBox1.Items[I] + '")';
  // führendes " or " entfernen
  Delete(XSL, 1, 4);
  // XML Nodes auswählen, welche zu den Lektionen gehören
  XMLPairs := FXMLDoc.documentElement.selectNodes('/vokabeln/vokabel[' + XSL + ']');
  // weiter gehts...
  XMLPair := XMLPairs.item[Random(XMLPairs.length)]; 
  with XMLPair do 
  begin 
    Deutsch := selectSingleNode('Deutsch').text; 
    Latein := selectSingleNode('Latein').text; 
  end; 
end;

......