摘要： uses NativeXml; var xml: TNativeXml; const xmlStr = '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1" age="11">张三</item>' + '<item ID="No.2" age="22">李四</item 阅读全文

摘要： var xml: TNativeXml; const xmlStr = '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1" age="11">张三</item>' + '<item ID="No.2" age="22">李四</item>' + ' 阅读全文

摘要： uses NativeXml;procedure TForm1.Button1Click(Sender: TObject);var xml: TNativeXml; node: TXmlNode;begin xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; node := xml.NodeNewTextType('注释名称', '注释内容', xeComment); xml.Root.NodeAdd(node); node := xml.NodeNewTextTy 阅读全文

摘要： uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; node: TXmlNode; begin xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; node := xml.Root.NodeNew('item'); node.AttributeAdd('ID', '1'); node.AttributeAdd('age' 阅读全文

摘要： uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; node: TXmlNode; begin xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; // node := xml.Root.NodeNew('item'); node.Value := '张三'; // with xml.Root.NodeNew('item') do b 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, NativeXml{!};type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private p 阅读全文

摘要： uses NativeXml;const xmlFile = 'C:\Temp\xml_test_files\basic.xml'; //测试文件var xml: TNativeXml;procedure TForm1.FormCreate(Sender: TObject);begin xml := TNativeXml.Create(nil); xml.LoadFromFile(xmlFile);end;{获取根节点的类名及类的继承关系}procedure TForm1.Button1Click(Sender: TObject);var str: string; myClas 阅读全文

摘要： uses NativeXml;var xml: TNativeXml;procedure TForm1.FormCreate(Sender: TObject);begin xml := TNativeXml.CreateName('MyRoot'); ChDir('C:\Temp');end;procedure TForm1.Button1Click(Sender: TObject);begin xml.SaveToFile('Test_Default.xml'); //encoding="UTF-8" xml.Externa 阅读全文

摘要： 相关方法与属性：TNativeXml.Create(...);TNativeXml.CreateEx(...);TNativeXml.CreateName(...);Obj.New;Obj.ReadFromString(...);Obj.VersionString;Obj.EncodingString;测试代码：uses NativeXml; //!const xmlFile = 'C:\Temp\xml_test_files\basic.xml'; //测试文件{使用 Create 建立时可指定属主并随属主一同释放}procedure TForm1.Button1Click( 阅读全文

摘要： 终于又能挤出点时间学点 Delphi 了。学习 NativeXml 的目的：1、以后再用到 Xml 就准备用它了。2、学习其内存处理机制。3、更多了解 Xml 的相关细节。刚刚下载到最新的 NativeXml328，发现竟是 3 天前刚刚更新的。相关地址：http://www.simdesign.nl/xml.html http://www.simdesign.nl/forum/viewforum.php?f=2 NativeXml328 安装：把 general 下的 4 个文件和 nativexml 下的 3 个文件复制在一起，然后通过 Tools > Options > De 阅读全文