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>