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>