in XML reinschreiben...

[spacewolf]

eine etwas andere Herangehensweise...

Delphi-Quellcode:

procedure XMLAdd;
var
  XMLDoc : TXMLDocument;
  iNode : XMLNode;
begin
  XMLDoc := TXMLDocument.Create(nil);
  XMLDoc.LoadFromFile('c:\test.xml');

  iNode := XMLDoc.CreateNode('test'); // AddChild('tree2xml');

  iNode.AddChild('einitem');
  iNode.Attributes['text'] := 'der text';
  iNode.Attributes['imageIndex'] := 'einindex';
  iNode.Attributes['stateIndex'] := 'einstatus';

  //will leider DOMNode: XMLDoc.DocumentElement.DOMNode.appendChild(iNode);

  XMLDoc.SaveToFile('c:\neutest.xml');

  XMLDoc := nil;
end;

aber geht auch net