前端之家收集整理的这篇文章主要介绍了
用lazarus快速创建xml格式文件,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
uses
......
Laz2_DOM,laz2_XMLRead,laz2_XMLWrite,......
@H_
403_2@
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;