Was ist ...?
Denn so wie der Code da steht, funktioniert er einwandfrei.
Delphi-Quellcode:
var
MyXML_DOC: TXMLDocument;
map_liste, new_node: IXMLNode;
begin
MyXML_DOC := TXMLDocument.Create(nil);
MyXML_DOC.Active:= True;
MyXML_DOC.Version := '1.0';
MyXML_DOC.StandAlone := 'yes';
MyXML_DOC.Encoding := 'UTF-8';
map_liste := MyXML_DOC.AddChild('map_liste');
new_node := map_liste.AddChild('adresse');
MyXML_DOC.SaveToFile('C:\Users\Frank\Desktop\a.xml');
MyXML_DOC.Free;
XML-Code:
<?
xml version="1.0" encoding="UTF-8" standalone="yes"?>
<map_liste><adresse/></map_liste>