mehrere XML Dateien erstellen

[nahpets]

Zitat von FlorianWolf:

Danke für die vielen Tipps.
Ich habe es mit XMLDocument1.XML.Clear versucht, aber es ist immer noch das gleiche Problem.
Wenn jemand eine ganz andere Idee hat bin ich dafür auch dankbar.

Sorry, aber das verstehe ich nicht, habe mir ein Programm gebaut, in das ich Deinen Quelltext kopiert habe und dann die übrigen Komponenten noch hinzugefügt habe. Und mit dem XML.Clear tritt kein Fehler auf. Es sieht jetzt also so aus:

Delphi-Quellcode:

procedure TForm1.Button9Click(Sender: TObject); 
var 
  root                       :IXMLNode; 
  node                       :IXMLNode; 
  unterknoten                :IXMLNode; 
  cData                      :IDOMCDATASection; 
  x, y                       :integer; 
begin 
  if SaveDialog1.Execute then begin 
    XMLDocument1.Active := true; 
    XMLDocument1.Create(SaveDialog1.FileName); 
    XMLDocument1.Version := '1.0'; 
    XMLDocument1.Encoding := 'iso-8859-1'; 

    root := XMLDocument1.AddChild('Baugruppe');
    node := root.AddChild('Part-ID'); 
    cData := XMLDocument1.DOMDocument.createCDATASection(LabeledEdit1.Text); 
    node.DOMNode.appendChild(cData); 

    node := root.AddChild('FA-ID'); 
    node.Text := LabeledEdit2.Text; 
    node := root.AddChild('Part-Nr'); 
    node.Text := Vari.Pruefung.SoftwareVersion; 
    node := root.AddChild('Strom'); 
    node.Text := IntToStr(Vari.Pruefung.Strom); 

    XMLDocument1.SaveToFile(SaveDialog1.FileName); 
    XMLDocument1.XML.Clear;
  end; 
end;

Und nun kann ich beim Klick auf den Button jedesmal ohne Fehlermeldung eine Datei erstellen.