写xml文件的方法DEMO

猫工

2. var
3.   xdoc: TXMLDocument;                                  // variable to document
4.   noraiz, nopai, nofilho: TDOMNode;                    // variable to nodes
5. begin
6.   //create a document
8.   xdoc := TXMLDocument.create;
9.   xdoc.Encoding := 'utf-8';
10.   //create a root node
11.   noraiz := xdoc.CreateElement('cadastro');
12.   Xdoc.Appendchild(noraiz);                           // save root node
13.   //create a parent node
14.   noraiz:= xdoc.DocumentElement;
15.   nopai := xdoc.CreateElement('usuario');
16.   TDOMElement(nopai).SetAttribute(ANSITOUTF8('你'), ANSITOUTF8('好'));       // create atributes to parent node
17.   noraiz.Appendchild(nopai);                          // save parent node
18.   //create a child node
19.   nopai := xdoc.CreateElement('nome');                // create a child node
20.   //TDOMElement(nopai).SetAttribute('sexo', 'M');     // create atributes
21.   nofilho := xdoc.CreateTextNode('Fernando');         // insert a value to node
22.   nopai.Appendchild(nofilho);                         // save node
23.   noraiz.ChildNodes.Item[0].AppendChild(nopai);       // insert child node in respective parent node
24.   //create a child node
25.   nopai := xdoc.CreateElement('idade');               // create a child node
26.   //TDOMElement(nopai).SetAttribute('ano', '1976');   // create atributes
27.   nofilho := xdoc.CreateTextNode('32');               // insert a value to node
28.   nopai.Appendchild(nofilho);                         // save node
29.   noraiz.ChildNodes.Item[0].AppendChild(nopai);       // insert a childnode in respective parent node
30.   writeXMLFile(xDoc,'teste.xml');                     // write to XML
31.   Xdoc.free;

复制代码

brucezhao

这个不会是像Delphi中的那样，也是COM吧？