XML-Datei manipulieren

[Jasocul]

Ich habe gerade kein Delphi zur Hand. Daher also nur das für mich offensichtliche:

1. Du lädst die XML-Datei
2. Du suchst dir den Knoten
3. Du lädst die XML-Datei und meinst, die Adresse für den Knoten hat sich nicht geändert.

Ich habe mal die Zeilen auskommentiert, die hier stören.

Delphi-Quellcode:

procedure TForm1.Button_ReadClick(Sender: TObject);
var
  nodeLcsdb : IXMLNode;
  XMLDocument1 : iXMLDocument;
  app : iXMLNode;

begin
   Memo1.Clear;

   XMLDocument1 := TXMLDocument.Create(nil);
   XMLDocument1.LoadFromFile('C:\Users\kuipers.patrick\Desktop\XML\test.xml');

   app := XMLDocument1.ChildNodes.FindNode('lcsdb').ChildNodes.FindNode('db').ChildNodes.FindNode('alias');

//   XMLDocument1.LoadFromFile('C:\Users\kuipers.patrick\Desktop\XML\test.xml');
   nodeLcsdb := XMLDocument1.ChildNodes.FindNode('lcsdb');


   if app <> nil then
   begin
     app.Text := 'Erfolgreich';
     showMessage(app.Text);
     XMLDocument1.SaveToFile('test.xml');
     Memo1.Lines.Add(nodeLcsdb.ChildNodes.FindNode('db').ChildValues['alias']);
     Memo1.Lines.Add(nodeLcsdb.ChildNodes.FindNode('db').ChildValues['databasename']);

   end else
   begin
     showMessage('Node not found');
   end;