Question

delphi关于XML文件的生成......................

我已经利用delphi将xml成功解析，现在又想利用delphi生成xml文件！ 问具体应该如何操作，那些像Addchild等等这样的函数怎么使用？？ 新手请详细解答，分不是问题...

Answer 1

XML文件必须要有也最多有1个根节点

var
XMLDocument1:IXMLDocument;
pNode,cNode:IXMLNode; {假设pNode为根节点，另外一个为子节点}
begin
if FileExists('test.xml') then DeleteFile('test.xml');{检测文件是否存在}

XMLDocument1:=NewXMLDocument;
XMLDocument1.Active := True; {必须先激活}
XMLDocument1.Version := '1.0'; {设置版本}
XMLDocument1.Encoding := 'GB2312'; {设置语言}
pNode := XMLDocument1.AddChild('根节点名'); {添加的第一个节点是根节点, 现在的 pNode 是根节点}
cNode := pNode.AddChild('test1'); {为 pNode 添加子节点, 返回值 cNode 指向了新添加的节点}
cNode.Text := 'test1子节点的内容';
cNode := pNode.AddChild('test2'); {为 pNode 添加子节点, 返回值 cNode 指向了新添加的节点}
cNode.Text := 'test2子节点的内容';
end;

如果你还想向子节点再加一个子节点可以定义多一个变量，如dNode：
dNode := cNode.AddChild('test3'); {为 cNode 添加子节点, 返回值 dNode 指向了新添加的节点}
dNode.Text := 'test3子节点的内容';

希望能够帮助你