delphi操作XML

在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>