开发Delphi对象式数据管理功能（八）

20.2.3.2 TReader对象的实现

　　Filer对象的作用主要是Delphi用来在DFM文件中读写各种类型的数据（包括部件对象）。这些数据的一个本质特征是变长，而且Filer对象将读写数据操作抽象化，包装成对象提供了大量的读写方法，方便了程序的调用。因此在应用程序中可以广泛使Filer对象，充分利用Delphi的面向对象技术。而且Filer对象与Stream对象捆绑在一起，一方面可以在各种存储媒介中存取任意格式的数据；另一方面，由于充分利用面向对象的动态联编，各种读写方法的使用方法是一致的，因此，方法调用很简单。下面我们着重介绍Reader 对象中与读写数据操作有关的属性和方法的实现。

　　1. TReader属性的实现

　　在TReader对象的属性实现中我们重点介绍Position的实现。

　　Position属性的定义了使用了读写控制，它们分别是GetPosition和SetPosition方法。

TReader = class(TFiler)

…

function GetPosition: Longint;

procedure SetPosition(Value: Longint);

public

…

property Position: Longint read GetPosition write SetPosition;

Postition的读写控制方法如下：

function TReader.GetPosition: Longint;

在TReader的父对象TFiler对象中介绍过FBufPos和FBufEnd变量。Filer对象内部分配了一个BufSize大小的缓冲区FBufPos就是指在缓冲区中的相对位置，FBufEnd是指在缓冲区中数据结束处的位置(缓冲区中的数据不一定会充满整个缓冲区)。

　在GetPosition方法中可以看到Reader对象的Position值和Stream对象的Position值是不同的。Reader对象多了一个FButPos的编移量。

　　2. Defineproperty和DefineBinaryproperty方法的实现

这两个方法是虚方法，在TFiler中是抽象方法，在TReader和TWriter对象中才有具体的实现。

　　它们在TReader中的实现如下：

procedure TReader.DefineProperty(const Name: string; ReadData: TReadERProc;