Delphi NativeXml

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

 

NativeXml的方法属性:

 

ANativeXml                   := TNativeXml.Create（Self）;//创建

 

ANativeXml.XmlFormat        := xfReadable; //格式

 

ANativeXml.EncodingString   := ""UTF-8"";//编码

 

ANativeXml.ExternalEncoding := seUTF8;

 

ANativeXml.LoadFromFile（）;//从文件夹中导入XML文件

 

ANativeXml.SaveToFile（）;//XML文件保存到文件夹

 

节点的方法属性:

 

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

 

ANativeXml.Root.NodeByName（‘节点名’）;//通过节点名获得节点

 

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

 

NativeXml.Root.ChildContainers;//节点的字节点对象

 

NativeXml.Root.NodeNew（）;//增加新的子节点

 

NativeXml.Root.Name;//节点名

 

NativeXml.Root.Value;//节点值

 

 

var
  Form1: TForm1;
   xml:TNativeXml;
  const
   xmlstr= '' +
           '' +
           '张三' +
           '李四' +
           '王五' +
           '';

procedure TForm1.btn1Click(Sender: TObject);
var
node:TXmlNode;
i:Integer;

begin

for i := 0 to xml.Root.NodeCount-1  do
  begin
    node:=xml.Root[i];
    mmo2.Lines.Add(node.Value);
    mmo2.Lines.Add(node.AttributeByName['age'].Value);
    mmo2.Lines.Add(node.Attributes[0].WriteToString);


  end;
end.

输出结果：张三
21
ID="No.1"
李四
22
ID="No.2"
王五
33
ID="No.3"