delphi dom创建节点方法

Delphi7向常用的XML文件中添加内容，按照XML的节点规则依次写入内容，自定义各个节点及节点内容，具体的操作代码如下示： 　　var 　　 iXml: IDOMDocument; 　　 iRoot, iNode, iNode2, iChild, iAttribute: IDOMNode; 　　begin 　　 XMLDocument1.Active := False; 　　 XMLDocument1.XML.Text := ''; 　　 XMLDocument1.Active := True; 　　 iXml := XMLDocument1.DOMDocument; 　　 iRoot := iXml.appendChild (iXml.createElement ('xml')); 　　 iNode := iRoot.appendChild (iXml.createElement ('test')); 　　 iNode.appendChild (iXml.createElement ('test2')); 　　 iChild := iNode.appendChild (iXml.createElement ('test3')); 　　 iChild.appendChild (iXml.createTextNode('simple value')); 　　 iNode.insertBefore (iXml.createElement('test4'), iChild); 　　 iNode2 := iNode.cloneNode (True); 　　 iRoot.appendChild (iNode2); 　　 iAttribute := iXml.createAttribute ('color'); 　　 iAttribute.nodeValue := 'red'; 　　 iNode2.attributes.setNamedItem (iAttribute); 　　 Memo1.Lines.Text := FormatXMLData (XMLDocument1.XML.Text); 　　end; 　　你还可以点击源码下载按钮，下载本示例完整源码。