用lazarus快速创建xml格式文件

uses
......
Laz2_DOM, laz2_XMLRead, laz2_XMLWrite,
......

var
Doc: TXMLDocument;                                  // variable to document
RootNode, LeftNode, RightNode, parentNode: TDOMNode;                    // variable to nodes
i: integer;
begin
// Create a document
Doc := TXMLDocument.Create;

// Create a root node
RootNode := Doc.CreateElement('ROOT');
Doc.Appendchild(RootNode);                           // save root node

//
RootNode:= Doc.DocumentElement;
LeftNode := Doc.CreateElement('left');
RootNode.Appendchild(LeftNode);

parentNode := Doc.CreateElement('element');
TDOMElement(parentNode).SetAttribute('name', PanelMainLeft.Controls[i].Name);       // create atributes to parent node
TDOMElement(parentNode).SetAttribute('left', intToStr(PanelMainLeft.Controls[i].Left));
TDOMElement(parentNode).SetAttribute('width', intToStr(PanelMainLeft.Controls[i].Width));
TDOMElement(parentNode).SetAttribute('top', intToStr(PanelMainLeft.Controls[i].Top));
TDOMElement(parentNode).SetAttribute('height', intToStr(PanelMainLeft.Controls[i].Width));
LeftNode.Appendchild(parentNode);

writeXMLFile(Doc, 'test.xml');                     // write to XML
Doc.Free;                                          // free memory
end;