IndexOf Funktion bei TJVSimpleXML

[Yheeky]

Hi,

ich habe 2 XML Dateien und möchte diese miteinander abgleichen d.h. wenn ein Eintrag in der einen Datei nicht vorhanden ist, dann soll sie in die andere kopiert werden. Leider bekomme ich die IndexOf Funktion irgendwie nicht hin. Sie sieht bei mir so aus:

Code:

      for XMLItem := 1 to XML1.Root.Items.Count - 1 do
        begin
        if XML1.Root.Items.IndexOf(XML2.Root.Items[XMLItem].Items.ItemNamed[XMLText]) = -1 then
        ShowMessage('Nicht gefunden');

XMLText bezieht sich auf das Feld, was verglichen werden soll. Ich denke mir eigentlich, dass das auch noch in den ersten Teil rein muss, also bei XML1.Root.Items.IndexOf aber dann kommt eine Exception.

Kann mir da zufällig jemand helfen? Wäre super, danke!

[shmia]

Delphi-Quellcode:

//for XMLItem := 1 to XML1.Root.Items.Count - 1 do  // Falsch
for XMLItem := 1 to XML2.Root.Items.Count - 1 do // Richtig (oder zumindest weniger falsch)
begin 
  if XML1.Root.Items.IndexOf(XML2.Root.Items[XMLItem].Items.ItemNamed[XMLText]) = -1 then 
    ShowMessage('Nicht gefunden');

[Yheeky]

Zitat:

Zitat von shmia

Delphi-Quellcode:

//for XMLItem := 1 to XML1.Root.Items.Count - 1 do  // Falsch
for XMLItem := 1 to XML2.Root.Items.Count - 1 do // Richtig (oder zumindest weniger falsch)
begin 
  if XML1.Root.Items.IndexOf(XML2.Root.Items[XMLItem].Items.ItemNamed[XMLText]) = -1 then 
    ShowMessage('Nicht gefunden');

Okay, ja das war ein Schreibfehler. In diesem Fall ist´s aber "weniger falsch" ;)
Noch jemand eine Idee?