文件名称:Delphi向XML中添加节点数据.rar
文件大小:7KB
文件格式:RAR
更新时间:2022-07-30 06:22:45
Delphi源码-文件操作
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; 你还可以点击源码下载按钮,下载本示例完整源码。
【文件预览】:
srcfans.com
----Delphi向XML中添加节点数据()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(6KB)
--------Unit1.dfm(920B)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(3KB)
--------Unit1.pas(2KB)