摘要: 4.1.3.TPersistentAccess类 TPersistentAccess =class(TPersistent)4.1.4.TReaderAccess类 TReaderAccess =class(TReader)4.1.5.TsdBufferedReadStream类 TsdBufferedReadStream =class(TStream) TsdBufferedReadStream是一个流的缓冲,它为另外的TStream建立读取缓冲区,并从流读取到缓冲区。此流类型只能支持读取。4.1.5.1.Create constructor Create(AStream:TSt... 阅读全文
posted @ 2012-02-15 10:59 步履蹒跚 阅读(419) 评论(0) 推荐(0) 编辑
摘要: 符号引用(Symbol Reference)4.1.类(Classes)4.1.1.TComponentAccess类 TComponentAccess =class(TComponent)4.1.1.1.ComponentState property ComponentState;4.1.1.2.SetComponentState procedureSetComponentState(const AState: TComponentState);4.1.2.TNativeXml类 TNativeXml =class(TPersistent) TNativeXml是XML文件的载体... 阅读全文
posted @ 2012-02-15 10:58 步履蹒跚 阅读(930) 评论(0) 推荐(1) 编辑
摘要: 引自百度使用NativeXml的例子3.1.例子A:XML的装载、存储和导出 这个例子显示如何加载一个XML文档,然后以可读格式导出到一个TMemo领域。 拖放一个TEdit(Edit1),TButton(Button1)和一个TMemo到你的窗体,然后连接到下面的按钮的OnClick事件代码。填写文件名到Edit1,然后按一下按钮,您会看到在memo控件中列出XML文件的内容。procedure TForm1.Button1Click(Sender: TObject);var ADoc: TNativeXml;begin Memo1.Lines.Clear; ADoc := TNati... 阅读全文
posted @ 2012-02-15 10:52 步履蹒跚 阅读(668) 评论(0) 推荐(0) 编辑
摘要: xml.FloatSignificantDigits := 7;这用来控制浮点类型的小数位数,经测试,发现:value:=123.123456789(共13个数字,不含点)如果 xml.FloatSignificantDigits:=1,则为100;为2,则为120,为3则为123,为4,则为123.1.....为7,则为123.1234.....是不是有点怪异?呵呵以下引自万一:安装包中的 NativeXmlObjectStorage.pas 是 NativeXml 的扩展应用,可以把组件、对象和窗体序列化为 Xml 文件。其中方便使用的是两个类:TsdXmlObjectWriter、Ts. 阅读全文
posted @ 2012-02-15 10:40 步履蹒跚 阅读(453) 评论(0) 推荐(0) 编辑
摘要: 以下引自万一:关于NativeXML的编辑操作:SourceURL:http://www.cnblogs.com/del/archive/2011/03/25/1995863.htmlXml (10)锛氱紪杈� - 涓囦竴 - 鍗氬鍥�uses NativeXml; var xml: TNativeXml; const xmlStr = '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1 阅读全文
posted @ 2012-02-15 10:31 步履蹒跚 阅读(454) 评论(0) 推荐(0) 编辑
摘要: 八、属性、注释以及内容的添加添加属性:node := xml.Root.NodeNew('item'); node.AttributeAdd('ID', '1'); node.AttributeAdd('age', '11'); node.Value := '张三'; node := xml.NodeNewTextAttr('item', '张三', [xml.AttrText('ID', '1'), xml.AttrInt(' 阅读全文
posted @ 2012-02-15 10:28 步履蹒跚 阅读(1242) 评论(0) 推荐(0) 编辑
摘要: 继续研究NativeXML:NativeXml的方法属性:ANativeXml := TNativeXml.Create(Self);//创建ANativeXml.XmlFormat := xfReadable; //格式ANativeXml.EncodingString := 'UTF-8';//编码ANativeXml.ExternalEncoding := seUTF8;ANativeXml.LoadFromFile();//从文件夹中导入XML文件ANativeXml.SaveToFile();//XML文件保存到文件夹节点的方法属性:ANativeXml.Root;/ 阅读全文
posted @ 2012-02-15 10:12 步履蹒跚 阅读(900) 评论(0) 推荐(0) 编辑
摘要: 原来自己是个一个菜鸟。 Delphi操作XMl,只要使用 NativeXml。我是用的版本是4.02。NativeXML的使用方法比较简单,但是功能很强大。XE2的话,要在simdesign.inc后面加上: // Delphi XE2 / 16 {$ifdef VER230} {$define D7UP} {$defineD10UP} {$define D15UP} {$endif}一、使用 1) Copy the NativeXml files from the NativeXml directory into your project folder. Copy additional .. 阅读全文
posted @ 2012-02-15 00:17 步履蹒跚 阅读(1423) 评论(0) 推荐(0) 编辑