在form上加上XMLDocument控件name为mXML
从文件读取xml文档:
mXML.LoadFromFile(FILENAME);
然后可以用mXml.DocumentElement[NODENAME]读取数据，
或用mXml.DocumentElement[NODENAME]:=...改变或添加数据，
最后，将文档保存到文件mXML.SaveToFile(FILENAME);
如果想在程序中直接生成xml文档，
可以参考下面的代码：
mXMl.xml:=‘<xml></xml>‘;//设置ROOTNAME;
mXMl.active:=true;
mXml..DocumentElement[NODENAME]:=....;//赋值
mXMl.SaveToFile(FILENAME);
以上的都是根下的node的值的获得和修改，
对于Xml的树形结构，可以参考下面的代码：
xmlnode:=mXMl.DocumentElement.ChildNodes.FindNode(NODENAME); 获得name为NODENAME的node
childnode:=xmlnode.ChildNodes.FindNode(CHILDNAME); 获得xmlnode的name为CHILDNAME的childnode;
..
..
然后,用TTreeView来显示XML文档的所有树结构:
procedure TForm1.ReadXMLTree(RootTreeNode:TTreeNode; XMLTreeNode:IXMLNode);
var i:integer; c:TTreeNode;
begin
for i:=0 to XMLTreeNode.ChildNodes.Count-1 do
begin
c:=xmltree.Items.AddChild(RootTreeNode,XMLTreeNode.ChildNodes.Nodes[i].NodeName);
ReadXMLTree(c,XMLTreeNode.ChildNodes.Nodes[i]);
end;
end;
