Wert in XML finden?

[Klaus01]

.. kommentiere doch mal " Doc.Appendchild(RootNode); " aus.

Grüße
Klaus

[LPascal]

Zitat von Klaus01:

.. kommentiere doch mal " Doc.Appendchild(RootNode); " aus.

Grüße
Klaus

Ne, bringt nichts... immer der selbe Fehler.

[LPascal]

Ich hab's jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  Doc: TXMLDocument;
  RootNode, ParentNode, DatenNode, VarElemen, ElementNode, ItemNode, TextNode: TDOMNode;
begin
  try
    ReadXMLFile(Doc, 'Muster.xml');

    //Doc := TXMLDocument.Create;
    //RootNode := Doc.CreateElement('Daten2');
    //Doc.Appendchild(RootNode);
    //RootNode:= Doc.DocumentElement;

    ElementNode := Doc.CreateElement('Personen');

    ItemNode:=Doc.CreateElement('Anrede');
    TextNode:=Doc.CreateTextNode('Herr');
    ItemNode.AppendChild(TextNode);
    ElementNode.AppendChild(ItemNode);

    ItemNode:=Doc.CreateElement('Vorname');
    TextNode:=Doc.CreateTextNode('Tim');
    ItemNode.AppendChild(TextNode);
    ElementNode.AppendChild(ItemNode);

    ItemNode:=Doc.CreateElement('Alter');
    TextNode:=Doc.CreateTextNode('19');
    ItemNode.AppendChild(TextNode);
    ElementNode.AppendChild(ItemNode);

    //RootNode.AppendChild(ElementNode);

    DatenNode := Doc.DocumentElement.FindNode('Header');
    DatenNode.AppendChild(ElementNode);

    WriteXMLFile(Doc, 'MusterNeu2.xml')
  finally
    Doc.Free;
  end;
end;

Der Nachteil ist nur, dass für den <Personen>-Knoten es keinen <Root>-Knoten gibt, man kann somit nicht mehrere Personen anlegen, des weiteren erscheint die neue Person im <Header>-Knoten statt <Daten>-Konoten.

[LPascal]

Es scheint an dieser Zeile zu scheitern - "Doc.Appendchild(RootNode);"
Das mach wohl den Knoten RootNode zum Root-Knoten im Doc, und das muss bereits vorhanden bzw. besetzt sein, und daher der Fehler.
Kann das sein?

[Klaus01]

Guten Abend,

das Teilmacht was Du ihm sagst

Delphi-Quellcode:

    DatenNode := Doc.DocumentElement.FindNode('Header');
    DatenNode.AppendChild(ElementNode);

Demnach wird der neue <Personen> Knoten an den Header angehängt.
Der gemeinsame Aufhänger für die Personen ist aber der <Daten> Knoten.

Grüße
Klaus

[LPascal]

Zitat von Klaus01:

Guten Abend,

das Teilmacht was Du ihm sagst

Delphi-Quellcode:

    DatenNode := Doc.DocumentElement.FindNode('Header');
    DatenNode.AppendChild(ElementNode);

Demnach wird der neue <Personen> Knoten an den Header angehängt.
Der gemeinsame Aufhänger für die Personen ist aber der <Daten> Knoten.

Grüße
Klaus

Mit <Daten> stürzt das Programm mit einem Exception-Fehler ab. Ich verstehe jetzt nur Bahnhof.

[Klaus01]

Delphi-Quellcode:

DatenNode := Doc.DocumentElement.FindNode('Header').FindNode('Daten');
DatenNode.AppendChild(ElementNode);

macht das obige einen Unterschied?

Grüße
Klaus

[LPascal]

Das geht? Klasse, jetzt funkt es! Riiiiiesen Dank Dir!
Jetzt aber noch eine Hürde. Ich muss ja zwei Personen einfügen. Wie kann ich das gleiche Element bzw. <Personen>-Konoten noch einmal anlegen, ohne das erste zu überschrieben?

[Klaus01]

ElementNode := Doc.CreateElement('Personen'); erstellt doch bei jedem Aufruf einem neuen Knoten oder?
Damit wird der alte nicht überschrieben.

Ich würde das ganze anfügen in eine Methode mit entsprechenden Parametern auslagern.

Grüße
Klaus

[LPascal]

Zitat von Klaus01:

ElementNode := Doc.CreateElement('Personen'); erstellt doch bei jedem Aufruf einem neuen Knoten oder?
Damit wird der alte nicht überschrieben.

Ich würde das ganze anfügen in eine Methode mit entsprechenden Parametern auslagern.

Grüße
Klaus

Ja, ich weiß nicht wieso, aber bei wird wird das überschrieben.
Wahrscheinlich weil ich keinen Root-Knoten habe. Aber wenn ich diesen anlege, dann kann ich mein Konstrukt nicht in die bestehende XML einfügen, da es wohl zu Root-Konflikten kommt.