Wert in XML finden?

[Klaus01]

.. mit Ergebnis meinte ich die erstellt XML Datei.
Werden die Konten zu den falschen Knoten hinzugefügt?

Grüße
Klaus

[LPascal]

Zitat von Klaus01:

.. mit Ergebnis meinte ich die erstellt XML Datei.
Werden die Konten zu den falschen Knoten hinzugefügt?

Grüße
Klaus

Dazu kommt es gar nicht, das Prog stürzt ab, mit der Meldung "EDOMHierarchyRequest in Document.Insert.Before".

[Klaus01]

.. wann kommt die Fehlermeldung (bitte mal mit F8 durch den Code gehen)?

Das Tutorial https://wiki.freepascal.org/XML_Tutorial kenst Du wahrscheinlich schon -oder?

Grüße
Klaus

[LPascal]

Zitat von Klaus01:

.. wann kommt die Fehlermeldung (bitte mal mit F8 durch den Code gehen)?

Das Tutorial https://wiki.freepascal.org/XML_Tutorial kenst Du wahrscheinlich schon -oder?

Grüße
Klaus

Ja, der Fehler kommt hier schon. Ja...

Delphi-Quellcode:

    RootNode := Doc.CreateElement('Personen');
    Doc.Appendchild(RootNode);

Das Tutorial kenne ich, da gucke ich auch, bin aber in dem Thema XML noch nicht ganz drin.

[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.