Werte in einer XML datei überschreiben

[t0mmy]

Man möge den Kommentar beachten.
Was mach ich falsch??

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');
//lxml.Active := True;
app.ChildNodes['family_name'].text:='Schiefer'; // Hier die Fehlermeldung bzw. die Zugriffsverletzung
lxml.SaveToFile('C:\Users\Tomi\Test1\test_geändert.xml');
end;
end.

Hier die XML-Datei:

XML-Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<test>
   <applicant_1>
      <family_name>Meyer</family_name>
      <given_name>Harald</given_name>
      <testdate>13.03.2009</testdate>
      <language>english</language>
      <WR_RW>229</WR_RW>
   </applicant_1>
</test>

Also warum app.ChildNodes könnte mir klar sein, weil ich nämlich nicht den ganzen XML-Code einlese aber warum funktioniert nicht app.ChildValues['family_name']:='Schiefer'; oder app.SetAttribute('family_name','Schiefer'); ??

[himitsu]

Wo hast du app einen Node aus der XML zugewiesen?

Bei dir ist app "leer" (bei Interfaces ist es glücklicher Weile mit nil initialisiert) und dadurch entsteht natürlich die Zugriffsverletzung.
PS: sollte da nicht eigentlich Delphi irgendwas von "nicht initialisierter Variable" faseln? also in den Compilerwarnungen.


PSS: Zugriffsverletzungen auf Adresse $000000xx sollte dich immer stuzig machen und du solltest dich da mal nach einem NIL (als Inhalt) umsehen.

[t0mmy]

Nein, also der Compiler meldet nichts

[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

[t0mmy]

Danke vielmals...
Ich hab gedacht man muss nicht den knoten suchen sonder ein Befehl findet den Knoten von selber und ändert den Inhalt...

Sehr gut Kommentiert

[himitsu]

Soeinen Eierlegenwollmilschsaubefehl gibt es (also fast)

Diese Angelegenheut nennt sich XPath > XPath XPath oder XPath

[t0mmy]

Da hab ich noch ne kleine frage...

wie kann ich aber beim knote Order eine variable ändern

also zum Beispiel hier:

<Order No="2058003995" DispDate="22.07.2010" Basket="3995">

möchte ich No ändern.