免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

 在form上加上XMLDocument控件name為mXML

從文件讀取xml文檔:
mXML.LoadFromFile(FILENAME);

然后可以用mXml.DocumentElement[NODENAME]讀取數(shù)據(jù)，
或用mXml.DocumentElement[NODENAME]:=...改變或添加數(shù)據(jù)，

最后，將文檔保存到文件mXML.SaveToFile(FILENAME);

如果想在程序中直接生成xml文檔，
可以參考下面的代碼：

mXMl.xml:=‘<xml></xml>‘;//設(shè)置ROOTNAME;
mXMl.active:=true;

mXml..DocumentElement[NODENAME]:=....;//賦值

mXMl.SaveToFile(FILENAME);

以上的都是根下的node的值的獲得和修改，

對(duì)于Xml的樹形結(jié)構(gòu)，可以參考下面的代碼：

xmlnode:=mXMl.DocumentElement.ChildNodes.FindNode(NODENAME);   獲得name為NODENAME的node
childnode:=xmlnode.ChildNodes.FindNode(CHILDNAME);  獲得xmlnode的name為CHILDNAME的childnode;
..
..

然后,用TTreeView來顯示XML文檔的所有樹結(jié)構(gòu):
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;