Problem beim Schreiben/Lesen mit "doNodeAutoIdent"

**---Bernhard---**

Hallo!

Versuche mich derzeit in XML einzuarbeiten. Die ersten Tests klappten bisher auch ganz gut. Ich verwende die Komponente TXMLDocument, die bei Delphi standardmäßig mit dabei ist.
Leider war die Ausgabe-XML-Datei nicht formatiert, darum habe ich "doNodeAutoIdent" auf true gesetz. Jedoch habe ich nun Probleme mit dem Auslesen der XML Datei, nachdem(!) ich etwas hineingeschrieben habe. Speicher ich die XML-Datei und lade sie nochmal neu, dann klappt es wieder ohne Probleme.

Meine Vorgehensweise kurz erläutert:
In meiner XML Datei befinden sich beliebig viele Nodes mit dem Namen "<person>". Diese sind in weitere einzelne Punkte Unterteilt, in dem Demoprojekt nur "vorname".
In meinem Programm lass ich die Vornamen in einer Listbox anzeigen, indem ich mit einer for-Schleife alle Einträge druchgehe.
Das klappt auch ganz Problemlos.
Wenn ich einen Eintrag hinzufüge (doNodeAutoIdent=false) und danach wieder einlesen möchte klappt diese ohne Probleme.
Sobald doNodeAutoIdent=true ist, wird beim darauffolgendem Auslesen ein FEhler ausgegeben:

Zitat:

---------------------------
Project1
---------------------------
This operation can not be performed with a Node of type PCDATA.
---------------------------
OK
---------------------------

Hier mein Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

			[...]

var

  Form1: TForm1;

  savepath: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  //EINTRAG HINZUFÜGEN

  XMLDocument1.DocumentElement.AddChild('person').AddChild('vorname').Text:= edit1.Text;

  Showmessage('Eintrag hinzugefügt, jetzt auf "LESEN" klicken');

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  i: Integer;

begin

  //EINLESEN

  memo1.Lines:= XMLDocument1.XML;

  Listbox1.Items.BeginUpdate;

  try

    Listbox1.Clear;

    for i := 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do

      Listbox1.Items.Add(XMLDocument1.DocumentElement.ChildNodes[i].ChildNodes['vorname'].Text);

  finally

    Listbox1.Items.EndUpdate;

  end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  try

    XMLDocument1.SaveToFile(savepath);

  except

    Showmessage('Fehler beim Speichern!');

  end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  savepath:= ExtractFilePath(ParamStr(0)) + 'test_db.xml';

  if fileexists(savepath) then

    XMLDocument1.LoadFromFile(savepath)

  else

  begin

    XMLDocument1.Create(savepath);

  end;

  XMLDocument1.Active:= true;

end;

end.

Wenn ich vor dem Einlesen "XMLDocument1.Active:= false; XMLDocument1.Active:= true;" schreibe, tritt der Fehler nicht mehr auf.
Dieses "Workaround" gefällt mir aber nicht besonders und suche deshalb nach einer anständigen Lösung.

Hoffe ihr könnt mir helfen.

Bernhard

Problem beim Schreiben/Lesen mit "doNodeAutoIdent"

Problem beim Schreiben/Lesen mit "doNodeAutoIdent"

Forumregeln