20.2.3 TReader对象　

　　TReader对象是可实例化的用于从相联系的流中读取数据的Filer对象。TReader对象从TFiler继承下来，除了从TFiler继承的属性和方法外，TReader声明了不少属性、方法和事件。

　 Owner和Parent属性用于表示从Reader对象的流中读取的部件的拥有者和双亲结点。OnError，OnFindMethod和OnSetName事件使应用程序在运行中读数据时能定制响应方式。除了覆盖了一些从TFiler对象中继承的方法外，TReader对象还定义大量的读不同类型的数据和触发事件的方法。

20.2.3.1 TReader对象的属性和方法

　　1. Owner属性

　　声明：property Owner: TComponent;

Reader对象的Owner属性存储了将用来给从Reader的流中读出的部件的Owner属性赋值的部件。

　　2. Parent属性

　　声明：property Parent: TComponent;

Parent属性存储将用来给从Reader的流中读出所有控制的Parent属性赋值的部件。

　　3. Position属性

　　声明：propertion: Longint;

Reader对象的Position属性表示相联的流中读的当前位置。Position的值还应包括读缓冲区的大小。对于Reader 对象，Position的值大于流的Position 的值。如果将Position的值设得超过当前缓冲区，将引起调用FlushBuffer。

　　4. BeginReferences方法

　　声明：procedure BeginReferences;

BeginReferences方法启动一连串关于读部件的命令，这些部件包含相互间的交叉引用。在使用上通常和FixupReferences和EndReferences一起放在Try…finally程序块中。

　　在调用了BeginReferences后，Reader对象创建读取所有对象和名字的列表。所有的独立对象被读出后，调用FixupReferences方法将名字的相互从流中转移到对象实例中。最后调用EndReferences方法释放列表。

　　处理部件相互引用的程序块形式如下：

BeginReferences; { 创建临时列表 }

try

{ 读出所有部件并将它们的名字放在一临时列表中 }

…

FixupReferences; { 分 解 }

finally

EndReferences; { 释放临时列表 }

end;

　　5. FixUpReferences方法

　　声明：procedure FixupReferences;

FixupReferences方法分解从流中读出的存在各种相互依赖部件的引用关系。FixupReferences总在try…finally块中并配合BeginReferences和EndReferences一起使用。

　　6. EndReferences方法

　　声明：procedure EndReferences;

EndReferences方法终止处理相互引用的块操作，释放对象列表。它总配合BeginReferences和FixupReferences一起使用。

　　7. ReadListBegin方法

　　声明：procedure ReadListBegin;

ReadListBegin方法从Reader对象相联的流中读取列表开始标志。如果流中紧接着要读取的项目不是一个由WritelistBegin方法写入的列表起始标志，ReadListBegin将引起一个读异常事件。

　　通常在调用ReadlistBegin方法之后，紧跟着一个读项目的循环，循环以EndfList方法返回True 终止条件。这时，预示流中的下一个项目是列表结束标志，需要调用ReadListEnd方法。

　　8. ReadListEnd方法

　　声明：procedure ReadListEnd;

ReadListEnd 方法从流中读取列表结束标志。如果所读的项目不是一个列表结束标志，ReadListEnd方法引发一个EReadError异常事件。

　　9. EndOfList方法

　　声明：function EndOfList: Boolean;

如果Reader对象读到项目列表结果标志，EndOfList方法返回True。

　　TStrings对象在从Reader对象读取项目列表时使用了ReadListBegin和ReadListEnd方法。下面的ReadData是TStrings的方法，用于在DefineProperties方面中读string数据。

procedure TStrings.ReadData(Reader: TReader);

begin

Reader.ReadListBegin; { 读列表开始标志 }

Clear; { 清除已有的字符串 }

while not Reader.EndOfList do { 只要还有数据 … }

Add(Reader.ReadString); { …读一个字符串并将其加在列表中 }

Reader.ReadListEnd; { 越过列表结束标志 }

end;

10. ReadSignature方法

　　声明：procedure ReadSignature;

ReadSignature方法从流中读取部件之前首先调用ReadSignature方法。在载入对象之前检测标签。Reader对象就能防止疏忽大意，导致读取无效或过时的数据。Filer标签是四个字符，对于Delphi 2.0，该标签是“TPF0”。

[1] [2] [3] [4] [5] [6] [7] [8] 下一页