用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;