这篇文章主要为大家展示了“Delphi NativeXml怎么用”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“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= '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1" age="21">张三</item>' + '<item ID="No.2" age="22">李四</item>' + '<item ID="No.3" age="33">王五</item>' + '</List>'; 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"
以上是“Delphi NativeXml怎么用”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注亿速云行业资讯频道!
原创文章,作者:254126420,如若转载,请注明出处:https://blog.ytso.com/237754.html