doc := LoadXMLData('<?xml version="1.0" encoding="GBK"?><root/>');
doc.Active := true;
root := doc.DocumentElement;
_node:=root.AddChild('a');
vNode:=doc.CreateNode('abc',ntCData,'xxxx');
_node.ChildNodes.Add(vNode);
doc := LoadXMLData('<?xml version="1.0" encoding="GBK"?><root/>');
doc.Active := true;
root := doc.DocumentElement;
_node:=root.AddChild('a');
vNode:=doc.CreateNode('abc',ntCData,'xxxx');
_node.ChildNodes.Add(vNode);
转载于:https://www.cnblogs.com/ywangzi/archive/2012/10/16/2726480.html