在USERS里面引用
XMLIntf，XMLDoc
/// <code>
/// 创建子节点/// </code>
procedure TForm1.btn1Click(Sender: TObject);
var
xml:TXMLDocument;
RootNode,node:IXMLNode;
begin
xml:= TXMLDocument.Create(nil); //创建对象
xml.Active:=True; //设置为活动的
Xml.Version := '1.0';
xml.Encoding:='UTF-8';
RootNode:=xml.CreateNode('Root'); //创建根节点
xml.DocumentElement:=RootNode;//指向子节点
node:= xml.CreateNode('ChildNode0'); //创建子节点
node.Text:='child data';
RootNode.ChildNodes.Add(node);//添加子节点
node:= xml.CreateNode('ChildNode'); //创建子节点
node.Text:='child data1';
RootNode.ChildNodes.Add(node);//添加子节点
xml.SavetoFile('f:\dd.xml');
end;
执行结果图
<?xml version="1.0" encoding="UTF-8"?> <Root><ChildNode0>child data</ChildNode0><ChildNode>child data1</ChildNode></Root>
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。