XML Node löschen

[Saulmann]

Hi leute,
ich möchte aus meiner XML einige Nodes löschen. Es sollen nur die Nodes gelöscht werden, die den Eintrag "blau" enthalten.
So wollte ich es realisieren:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  XML: IXML;

  begin
    XML := GetXML(XMLDocument1);

    for i := 0 to XML.Node.Count - 1 do
      if XML.Node[i].Farbe = 'blau' then
        XML.Node.Remove(IXMLNode(XML.Node[i]));
        //XML.Node.Delete(i);

    XMLDocument1.Refresh;
    XMLDocument1.SaveToFile('C:\...\meine.xml');
  end;

Bekomme aber eine Zugriffsverletzung beim Aufruf von XMLDocument1.Refresh;
Kann mir da jemand weiterhelfen?

Viele Grüße,
Saul

[shmia]

Immer rückwärts löschen!!!

Delphi-Quellcode:

for i := XML.Node.Count - 1 downto 0 do // <==
  if XML.Node[i].Farbe = 'blau' then
     XML.Node.Remove(IXMLNode(XML.Node[i]));
     //XML.Node.Delete(i);

[himitsu]

Wenn man nur Einwas löschen will, dann geht auch vorwärts, aber dann muß man auch mit Break aus der Schleife raus, wenn gelöscht wurde.