delphi 添加xml cdata

  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);

posted @ 2012-10-16 18:12  马儿快跑  阅读(1183)  评论(0编辑  收藏  举报