Neuen Knoten einfügen

[tobu]

Ich habe jetzt den Code wie folgt abgeändert.

Delphi-Quellcode:

procedure TForm1.BSpeichernClick(Sender: TObject);
  var
  NewScript: IXMLNode;
  ValueScript: IXMLNode;
begin
  XMLDocument1.LoadFromFile(FileName);
  NewScript := XMLDocument1.DocumentElement.AddChild('Script');

  //Erstellen der Attribute
  if CBDBTyp.ItemIndex = 0 then
     NewScript.Attributes['DB-Typ'] := 'SQL-Server'
  else
    NewScript.Attributes['DB-Type'] := 'Oracle';

  NewScript.Attributes['Nummer'] := ENummer.Text;

  if CBAuthor.ItemIndex = 0 then
    NewScript.Attributes['Author'] := 'CD';
  if CBAuthor.ItemIndex = 1 then
    NewScript.Attributes['Author'] := 'FV';
  if CBAuthor.ItemIndex = 2 then
    NewScript.Attributes['Author'] := 'JSP';

  //Erstellen der Elemente
  ValueScript := NewScript.AddChild('Beschreibung');
  ValueScript.Text := MBeschreibung.Text;
  ValueScript := NewScript.AddChild('Befehl');
  ValueScript.Text := MSQL.text;
  XMLDocument1.SaveToFile(FileName);
end;

Jetzt bekomme ich aber eine Fehlermeldung Exception der Klasse EDOMParserError. Ich gehe mal davon aus das die XML-Datei fehlerhaft ist, aber im Browser wird sie richtig dargestellt.