2011 年 3月 25 日随笔档案 - 万一

2011年3月25日

摘要：安装包中的 NativeXmlObjectStorage.pas 是 NativeXml 的扩展应用，可以把组件、对象和窗体序列化为 Xml 文件。其中方便使用的是两个类：TsdXmlObjectWriter、TsdXmlObjectReader，也可使用下面三组函数：ComponentCreateFromXmlFile();ComponentCreateFromXmlNode();ComponentCreateFromXmlStream();ComponentCreateFromXmlString();ComponentSaveToXmlFile();ComponentSaveToXmlNo 阅读全文

posted @ 2011-03-25 22:59 万一阅读(4201) 评论(2) 推荐(0)

NativeXml (11)：浮点数的有效位数

摘要： uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; fVal: Double; begin fVal := 123.456789; xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; //xml.FloatSignificantDigits := ; with xml.Root.NodeNew('item') do begin WriteString('Na 阅读全文

posted @ 2011-03-25 21:21 万一阅读(3004) 评论(0) 推荐(0)

NativeXml (10)：编辑

摘要： 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 阅读全文

posted @ 2011-03-25 20:44 万一阅读(4336) 评论(2) 推荐(0)

NativeXml (9)：读取

摘要： 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>' + ' 阅读全文

posted @ 2011-03-25 17:05 万一阅读(12441) 评论(2) 推荐(1)

NativeXml (8)：其它添加

摘要： 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 阅读全文

posted @ 2011-03-25 13:19 万一阅读(5012) 评论(2) 推荐(1)

NativeXml (7)：添加属性

摘要： 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' 阅读全文

posted @ 2011-03-25 11:09 万一阅读(4605) 评论(0) 推荐(1)