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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!