NativeXml使用方法

NativeXml可以在官网上下载，下载后将文件夹放在指定地方，打开DELPHI在其环境变量中引用NativeXml路径，然后在程序中引用NativeXml单元，我们就可以使用NativeXml了。

NativeXml的方法属性:

xml:= TNativeXml.Create(Self);//创建

xml.XmlFormat        := xfReadable; //格式

//xml.EncodingString   := 'UTF-8';//编码

xml.ExternalEncoding := seUTF8;

xml.LoadFromFile();//从文件夹中导入XML文件

xml.SaveToFile();//XML文件保存到文件夹

节点的方法属性:

xml.Root;//XML文件的根节点，注意一切都从根开始

xml.Root.NodeByName(‘节点名’);//通过节点名获得节点

xml.Root.Attributes;//节点的属性对象

xml.Root.ChildContainers;//节点的子节点对象

xml.Root.NodeNew();//增加新的子节点

xml.Root.Name;//节点名

xml.Root.Value;//节点值

实例创建新的xml文件：

procedure TForm1.btn1Click(Sender: TObject);
var xml:TNativeXml;
    node:TXmlNode;
    fname:string;
    root:TXmlNode;
begin
  xml:=TNativeXml.CreateName('root');
  try
    xml.XmlFormat        := xfReadable; //格式
    xml.ExternalEncoding := seUTF8;

    fname:= ExtractFilePath(Application.ExeName)+ 'tt.xml';
    if not FileExists(fname) then
    begin
      FileClose(FileCreate(fname));
    end;
    root:=xml.Root;
    node:=root.NodeNew('n1');
    node.Value:='testV';
    node.AttributeAdd('p1','v1');
  finally
    xml.SaveToFile(fname);
    xml.Free;
  end;
end;