Werte in einer XML datei überschreiben

[ChrisE]

Hallo t0mmy,

ist zwar nicht all zu elegant, aber das könnte dir weiter helfen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lXML : iXMLDocument;
  app : IXMLNode;
begin
  lXML := TXMLDocument.Create(nil);
  lxml.LoadFromFile('C:\Users\Tomi\Test1\test.xml');
  // als erstes den Knoten 'test' finden
  app := lxml.ChildNodes.FindNode('test');
  // jetzt den knoten 'applicant_1' finden
  if app <> nil then
  begin
    app := app.ChildNodes.FindNode('applicant_1');
  end;
  // jetzt den Knoten 'family_name' finden
  if app <> nil then
  begin
    app := app.ChildNodes.FindNode('family_name');
  end;

  // prüfen, ob wir den Knoten gefunden haben -> wenn <> nil 
  if app <> nil then
  begin
    app.text:='Schiefer'; // Hier die Fehlermeldung bzw. die Zugriffsverletzung
    lXML.SaveToFile('testXML.xml');
    ShowMessage('OK');
  end else
  begin
    ShowMessage('Node not found');
  end;
end;

Gruß, Chris