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;