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 ”。
11. ReadPrefix 方法
声明：procedure ReadPrefix(var Plags: TFilerFlags; var AChild, Pos: Integer);
ReadPrefix 方法的功能与ReadSignature 的很相象，只不过它是读取流中部件前面的标志(PreFix) 。当一个Write 对象将部件写入流中时，它在部件前面预写了两个值，第一个值是指明部件是否是从祖先窗体中继承的窗体和它在窗体中的位置是否重要的标志; 第二个值指明它在祖先窗体创建次序。ReadComponent 方法自动调用ReadPrefix 。但如果需要独立读取部件的预读标志，也可直接调用该方向。
12. OnFindMethod事件
声明：property OnFindMethod: TFindMethodEvent;
OnFindMethod事件，发生在Reader 对象读取对象的方法指针时，属性为方法指针的通常都是事件。
响应OnFindMethod事件的理由，通常是处理过程找不到方法的情况。在FindMethod 方法没有找到由Name指定的方法的情况下，如果它将OnFindMethod 方法的Error 参数设为True ，将引起ReadError异常事件；反之，将Error 参数置为False ，将防止FindMethod 方法引发异常事件。
13. Error 方法
声明：function Error(const Message: String): Boolean; virtual;
Error 方法定义在Reader 对象的protected 部分，它是用于Reader 对象的OnError事件。其返回值决定是否继续错误处理过程。如果返回值为True ，则表示用程序应当继续错误处理；如果返回值为False ，则表示错误情况被忽略。
如果读部件或属性出错。Reader 对象调用Error 方法。缺省情况下，Error 将返回值设为False ，然后调用OnError事件处理过程。
TReader 对象总是在try …except 程序块的except 部分，并提供用户忽略错误的机会。Error 的使用方法如下：
try
… { 读部件 }
except
on E: Exception do
begin
…{ 执行一些清除操作 }
if Error(E.Message) then raise;
end;
end;
14. OnError事件
声明：property OnError: TReaderError;
当Reader 对象读取数据出错时将引发OnError事件。通过处理OnError事件，可以有选择地处理或忽略错误。
传给OnError事件处理过程的最后一个参数是名为Handled 的var 参数。在缺省情况下，Error 方法将Handled置为True。这将阻止错误更进一步处理。如果事件处理过程仍旧将Handled置为False ，Reader 对象将引发一个EReadError异常事件。
15. SetName 方法
声明：procedure SetName(Component: TComponent; var Name: String virtual);
SetName 方法允许Reader 对象在将从流中读取的部件的Name值赋给部件的Name属性前修改Name值。ReadComponent 方法在读取部件的属性值和其它数据前先读部件的类型和名字在读完名字后，ReadComponent 将所读的名字作为Name 参数传给SetName ，Name 是个var 参数，因此SetName能在返回前修改字符串值。SetName 还调用了OnSetName事件处理过程，将名字字符串作为var 参数传入事件处理过程中，因此，事件处理过程也可修改字符串的值。
16. OnSetName事件
声明：property OnSetName: TSetNameEvent;
OnSetName事件发生在Read 对象设置部件的Name属性前，OnSetName事件处理过程的var 参数Name 参数是一个var 参数，因此，事件处理过程再将Name 赋给部件前，可以修改Name 的值。这对于想过滤窗体中部件的名字是很有帮助的。
下面的OnSetName事件处理过程，命名了名字中包含“Button ”的部件，并用“PushButton ”替代。
procedure TForm1.ReaderSetName(Reader: TReader; Component: TComponent;
var Name: string);
var
ButtonPos: Integer;
begin
ButtonPos := Pos('Button', Name);
if ButtonPos <> 0 then
Name := Copy(Name, 1, ButtonPos - 1) + 'PushButton' +
Copy(Name, ButtonPos + 6, Length(Name));
end;
17. ReadValue 方法
声明：function ReadValue: TValueType;
ReadValue 方法读取流中紧着的项目的类型，函数返回后，流的指针移到值类型指示符之后。
TValueType是枚举类型。存储在Filer 对象的流中的每个项目之前都有一个字节标识该项目的类型，在读每个项目之前都要读取该字节，以指导调用哪个方法来闱取项目。该字节的值就TValuetype 定义的值类型之一。
18. NextValue 方法
声明：function Nextvalue: TValuetype;
Nextvalue 方法的作用也是返回Reader 对象流中紧接着的项目的类型，它与ReadValue 的区别在于并不移动指针位置。
19. ReadBoolean 方法
声明：function ReadBoolean: Boolean;
ReadBoolean 方法从Reader 对象的流中读取一个布尔值，并相应地移动流位置指针。
20 、ReadChar 方法
声明：function ReadChar: char;
ReadChar 方法从Reader 对象的流中读取一个字符。
21. ReadFloat 方法
声明：function ReadFloat: Extended;
ReadFloat 方法从流中读取浮点数。
20. ReadIdent 方法
声明：function ReadIdent: string;
ReadIdent 方法从流中读取标识符。
23. ReadInteger 方法
声明：function ReadInteger: Longin
ReadInteger 方法从流中读取整型数字。
24.ReadString 方法
声明：function Read String: string;
ReadString 方法从Reader 对象的流中读取一个字符串，并返回字符串中的内容。该字符串是由Writer 对象的WriteString 方法写入。
20.2.3.2 TReader 对象的实现
Filer 对象的作用主要是Delphi用来在DFM文件中读写各种类型的数据（包括部件对象）。这些数据的一个本质特征是变长，而且Filer 对象将读写数据操作抽象化，包装成对象提供了大量的读写方法，方便了程序的调用。因此在应用程序中可以广泛使Filer 对象，充分利用Delphi 的面向对象技术。而且Filer 对象与Stream 对象捆绑在一起，一方面可以在各种存储媒介中存取任意格式的数据；另一方面，由于充分利用面向对象的动态联编，各种读写方法的使用方法是一致的，因此，方法调用很简单。下面我们着重介绍Reader 对象中与读写数据操作有关的属性和方法的实现。
1. TReader属性的实现
在TReader 对象的属性实现中我们重点介绍Position 的实现。
Position属性的定义了使用了读写控制，它们分别是GetPosition 和SetPosition 方法。
TReader = class(TFiler)
private
…
function GetPosition: Longint;
procedure SetPosition(Value: Longint);
public
…
property Position: Longint read GetPosition write SetPosition;
end;
Postition 的读写控制方法如下：
function TReader.GetPosition: Longint;
begin
Result := FStream.Position + FBufPos;
end;
procedure TReader.SetPosition(Value: Longint);
begin
FStream.Position := Value;
FBufPos := 0;
FBufEnd := 0;
end;
在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;
WriteData: TWriterProc; HasData: Boolean);
begin
if CompareText(Name, FPropName) = 0 then
begin
ReadData(Self);
FPropName := '';
end;
end;
procedure TReader.DefineBinaryProperty(const Name: string;
ReadData, WriteData: TStreamProc; HasData: Boolean);
var
Stream: TMemoryStream;
Count: Longint;
begin
if CompareText(Name, FPropName) = 0 then
begin
if ReadValue <> vaBinary then
begin
Dec(FBufPos);
SkipValue;
FCanHandleExcepts := True;
PropValueError;
end;
Stream := TMemoryStream.Create;
try
Read(Count, SizeOf(Count));
Stream.SetSize(Count);
Read(Stream.Memory^, Count);
FCanHandleExcepts := True;
ReadData(Stream);
finally
Stream.Free;
end;
FPropName := '';
end;
end;
在两个方法都将Name 参数值与当前的属性名比较，如果相同则进行读操作。在DefineBinaryproperty中，创建了一个内存流。先将数据读到内存流中然后调用ReadData 读取数据。
3. FlushBuffer 的实现
FlushBuffer 方法用于清除Reader 对象的内部缓冲区中的内容，保持Reader 对象和流在位置（Position ）上的同步，其实现如下：
procedure TReader.FlushBuffer;
begin
FStream.Position := FStream.Position - (FBufEnd - FBufPos);
FBufPos := 0;
FBufEnd := 0;
end;
4. ReadListBegin 、ReadListEnd 和EndOfList 方法
这三个方法都是用于从Reader 对象的流中读取一连串的项目，并且这些项目都由WriteListBegin写入的标志标定开始和WriteListEnd写入标志，标定结束，在读循环中用EndOfList 进行判断。它们是在Reader 对象读取流中数据时经常用于的。它们的实现如下：
procedure TReader.ReadListBegin;
begin
CheckValue(vaList);
end;
procedure TReader.ReadListEnd;
begin
CheckValue(vaNull);
end;
function TReader.EndOfList: Boolean;
begin
Result := ReadValue = vaNull;
Dec(FBufPos);
end;
项目表开始标志是VaList ，项目表结束标志是VaNull ，VaList和VaNull 都是枚举类型TValueType 定义的常量。
它们实现中调用的CheckValue是TReader的私有方法，其实现如下：
procedure TReader.CheckValue(Value: TValueType);
begin
if ReadValue <> Value then
begin
Dec(FBufPos);
SkipValue;
PropValueError;
end;
end;
CheckValue 方法的功能是检测紧接着要读的值是否是Value指定的类型。如果不是则跳过该项目并触发一个SInvalidPropertyValue 错误。
EndOfList 函数只是简单地判断下一字节是否是VaNull 将判断结果返回，并将字节移回原来位置。
5. 简单数据类型读方法的实现
简单数据类型指的是布尔型、字符型、整型、字符串型、浮点型、集合类型和标识符。将它们放在一起介绍是因为它们的实现方法类似。
因为它们的实现都用到了ReadValue 方法，因此先来介绍ReadValue 方法的实现：
function TReader.ReadValue: TValueType;
begin
Read(Result, SizeOf(Result));
end;
该方法调用私有方法Read ，从Reader 对象流中读一个字节，并移动位置指针。
ReadValue 方法专门从流中读取值的类型的，所有的数据读写方法中在读取数据前都要调用ReadValue 方法判断是否是所要读的数据。如果是，则调用Read 方法读取数据；否则触发一个异常事件，下面看Integer类型的读方法：
function TReader.ReadInteger: Longint;
var
S: Shortint;
I: Smallint;
begin
case ReadValue of
vaInt8:
begin
Read(S, SizeOf(Shortint));
Result := S;
end;
vaInt16:
begin
Read(I, SizeOf(I));
Result := I;
end;
vaInt32:
Read(Result, SizeOf(Result));
else
PropValueError;
end;
end;
因为Delphi 2.0中，整型可分8位、16位和32位，因此读取整型数据时分别作了判断。
布尔类型的数据是直接放在值类型标志上，如果类型为VaTrue ，则值为True ；如果类型为VaFalse ，则值为False 。
function TReader.ReadBoolean: Boolean;
begin
Result := ReadValue = vaTrue;
end;
ReadString 方法也利用ReadValue 方法判断是字符串还是长字符串。
function TReader.ReadString: string;
var
L: Integer;
begin
L := 0;
case ReadValue of
vaString:
Read(L, SizeOf(Byte));
vaLString:
Read(L, SizeOf(Integer));
else
PropValueError;
end;
SetString(Result, PChar(nil), L);
Read(Pointer(Result)^, L);
end;
如果VaString类型紧接着一个字节存有字符串的长度；如果是VaLString类，则紧接着两个字节存放字符串长度，然后根据字符串长度用SetString 过程给分配空间，用Read 方法读出数据。
ReadFloat 方法允许将整型值转换为浮点型。
function TReader.ReadFloat: Extended;
begin
if ReadValue = vaExtended then Read(Result, SizeOf(Result)) else
begin
Dec(FBufPos);
Result := ReadInteger;
end;
end;
字符类型数据设有直接的标志，它是根据VaString 后面放一个序值为1 的字节来判断的。
function TReader.ReadChar: Char;
begin
CheckValue(vaString);
Read(Result, 1);
if Ord(Result) <> 1 then
begin
Dec(FBufPos);
ReadStr;
PropValueError;
end;
Read(Result, 1);
end;
出于读取DFM文件需要，Filer 对象支持读取标识符。
function TReader.ReadIdent: string;
var
L: Byte;
begin
case ReadValue of
vaIdent:
begin
Read(L, SizeOf(Byte));
SetString(Result, PChar(nil), L);
Read(Result[1], L);
end;
vaFalse:
Result := 'False';
vaTrue:
Result := 'True';
vaNil:
Result := 'nil';
else
PropValueError;
end;
end;
一般说来，各种复杂的数据结构都是由这些简单数据组成; 定义了这些方法等于给读各种类型的数据提供了元操作，使用很方便。例如，读取字符串类型的数据时，如果采用传流方法还要判断字符串的长度，使用ReadString 方法就不同了。但应该特别注意的是这些类型数据的存储格式是由Delphi设计的与简单数据类型有明显的不同。因此，存入数据时应当使用Writer 对象相应的方法，而且在读数据前要用NextValue 方法进行判断，否则会触发异常事件。
6. 读取部件的方法的实现
Reader 对象中用于读取部件的方法有ReadSignature 、ReadPrefix 、ReadComponent 、ReadRootComponent 和ReadComponents 。
ReadSignature 方法主要用于读取Delphi Filer 对象标签一般在读取部件前，都要用调用ReadSignature 方法以指导部件读写过程。
procedure TReader.ReadSignature;
var
Signature: Longint;
begin
Read(Signature, SizeOf(Signature));
if Signature <> Longint(FilerSignature) then ReadError(SInvalidImage);
end;
FilerSignature 就是Filer 对象标签其值为“TPF0 ” ，如果读的不是“TPF0 ” ，则会触发SInValidImage异常事件。
ReadPrefix 方法是用于读取流中部件前的标志位，该标志表示该部件是否处于从祖先窗体中继承的窗体中和它在窗体中的位置是否很重要。
procedure TReader.ReadPrefix(var Flags: TFilerFlags; var AChildPos: Integer);
var
Prefix: Byte;
begin
Flags := [];
if Byte(NextValue) and $F0 = $F0 then
begin
Prefix := Byte(ReadValue);
Byte(Flags) := Prefix and $0F;
if ffChildPos in Flags then AChildPos := ReadInteger;
end;
end;
TFilerFlags 的定义是这样的：
TFilerFlag = (ffInherited, ffChildPos);
TFilerFlags = Set of TFilerFlag;
充当标志的字节的高四位是$F ，低四位是集合的值，也是标志位的真正含义。如果ffChildPos置位，则紧接着的整型数字中放着部件在窗体中的位置序值。
ReadComponent 方法用于从Reader 对象的流中读取部件。Component 参数指定了要从流中读取的对象。函数返回所读的部件。
function TReader.ReadComponent(Component: TComponent): TComponent;
var
CompClass, CompName: string;
Flags: TFilerFlags;
Position: Integer;
…
begin
ReadPrefix(Flags, Position);
CompClass := ReadStr;
CompName := ReadStr;
Result := Component;
if Result = nil then
if ffInherited in Flags then
FindExistingComponent else
CreateComponent;
if Result <> nil then
try
Include(Result.FComponentState, csLoading);
if not (ffInherited in Flags) then SetCompName;
if Result = nil then Exit;
Include(Result.FComponentState, csReading);
Result.ReadState(Self);
Exclude(Result.FComponentState, csReading);
if ffChildPos in Flags then Parent.SetChildOrder(Result, Position);
FLoaded.Add(Result);
except
if ComponentCreated then Result.Free;
raise;
end;
end;
ReadCompontent 方法首先调用ReadPrefix 方法，读出部件标志位和它的创建次序值(Create Order) 。然后用ReadStr 方法分别读出部件类名和部件名。如果Component 参数为nil ，则执行两个任务：
● 如果ffInberited 置位则从Root 找已有部件，否则，就从系统的Class 表中找到该部件类型的定义并创建
● 如果结果不为空，将用部件的ReadState 方法读入各种属性值，并设置部件的Parent 属性，并恢复它在Parent 部件的创建次序。
ReadComponent 方法主要是调用ReadComponent 方法从Reader 对象的流中读取一连串相关联的部件，并分解相互引用关系。
procedure TReader.ReadComponents(AOwner, AParent: TComponent;
Proc: TReadComponentsProc);
var
Component: TComponent;
begin
Root := AOwner;
Owner := AOwner;
Parent := AParent;
BeginReferences;
try
while not EndOfList do
begin
ReadSignature;
Component := ReadComponent(nil);
Proc(Component);
end;
FixupReferences;
finally
EndReferences;
end;
end;
ReadComponents首先用AOwner 和AParent 参数给Root,Owner 和Parent赋值，用于重建各部件的相互引用。然后用一个While循环读取部件并用由Proc 传入的方法进行处理。在重建引用关系时，用了BeginReferences 、FixUpReferences 和EndReferences嵌套模式。
ReadRootComponent方法从Reader对象的流中将部件及其拥有的部件全部读出。如果Component 参数为nil ，则创建一个相同类型的部件，最后返回该部件：
function TReader.ReadRootComponent(Root: TComponent): TComponent;
function FindUniqueName(const Name: string): string;
begin
…
end;
var
I: Integer;
Flags: TFilerFlags;
begin
ReadSignature;
Result := nil;
try
ReadPrefix(Flags, I);
if Root = nil then
begin
Result := TComponentClass(FindClass(ReadStr)).Create(nil);
Result.Name := ReadStr;
end else
begin
Result := Root;
ReadStr; { Ignore class name }
if csDesigning in Result.ComponentState then
ReadStr else
Result.Name := FindUniqueName(ReadStr);
end;
FRoot := Result;
if GlobalLoaded <> nil then
FLoaded := GlobalLoaded else
FLoaded := TList.Create;
try
FLoaded.Add(FRoot);
FOwner := FRoot;
Include(FRoot.FComponentState, csLoading);
Include(FRoot.FComponentState, csReading);
FRoot.ReadState(Self);
Exclude(FRoot.FComponentState, csReading);
if GlobalLoaded = nil then
for I := 0 to FLoaded.Count - 1 do TComponent(FLoaded[I]).Loaded;
finally
if GlobalLoaded = nil then FLoaded.Free;
FLoaded := nil;
end;
GlobalFixupReferences;
except
RemoveFixupReferences(Root, '');
if Root = nil then Result.Free;
raise;
end;
end;
ReadRootComponent首先调用ReadSignature读取Filer 对象标签。然后在try …except循环中执行读取任务。如果Root 参数为nil ，则用ReadStr 读出的类名创建新部件，并以流中读出部件的Name属性；否则，忽略类名，并判断Name属性的唯一性。最后用Root 的ReadState 方法读取属性和其拥有的拥有并处理引用关系。
7. SetName 方法和OnSetName事件
因为在OnSetName事件中，Name参数是var型的，所以可以用OnSetName事件处理过程修改所读部件的名字。而OnSetName事件处理过程是在SetName 方法中实现的。
procedure TReader.SetName(Component: TComponent; var Name: string);
begin
if Assigned(FOnSetName) then FOnSetName(Self, Component, Name);
Component.Name := Name;
end;
SetName 方法和OnSetName事件在动态DFM文件的编程中有很重要的作用。
8. TReader 的错误处理
TReader 的错误处理是由Error 方法和OnError事件的配合使用完成的。OnError 事件处理过程的Handled 参数是var型的布尔变量，通过将Handled设为True 或False 可影响TReader 的错误处理。OnError事件处理过程是在Error 方法中调用的。
function TReader.Error(const Message: string): Boolean;
begin
Result := False;
if Assigned(FOnError) then FOnError(Self, Message, Result);
end;
9. FindMethod 和OnFindMethod事件
有时，在程序运行期间，给部件的方法指针(主要是事件处理过程) 动态赋值是很有用的，这样就能动态地改变部件响应事件的方式。在流中读取部件捍做到一点就要利用OnFindMehtod事件。OnFIndMethod事件是在FindMethod 方法中被调用的。
function TReader.FindMethod(Root: TComponent;
const MethodName: string): Pointer;
var
Error: Boolean;
begin
Result := Root.MethodAddress(MethodName);
Error := Result = nil;
if Assigned(FOnFindMethod) then FOnFindMethod(Self, MethodName, Result,
Error);
if Error then PropValueError;
end;
OnFindMethod 方法除了可以给部件的MethodName所指定的方法指针动态赋值外，还可修改Error 参数来决定是否处理Missing Method 错误。方法中调用的MehtodAddress 方法定义在TObject中，它是个很有用的方法，它可以得到对象中定义的public 方法的地址。FindMethod 方法和OnFindMethod事件在动态DFM 的编程中有很重要的作用。
20.3 Delphi 对象式数据管理应用实例
Delphi 2.0无论是其可视化设计工具，还是可视化部件类库(VCL) ，都处处渗透了对象存储技术，本节将从Delphi 可视化设计内部机制、VCL中的数据存储、BLOB数据操作和动态生成部件的存储几方面介绍对象存储功能的实例应用。
20.3.1 Delphi 动态DFM文件及部件的存取在超媒体系统中的应用
Delphi 的可视化设计工具是同其部件类库紧密结合在一起的。
每个部件只有通过一段注册程序并通过Delphi 的Install Component 功能，才能出现在Component Palette上；部件的属性才有可能出现在Object Inspector 窗口中；部件的属性编辑器才能被Delphi 环境使用。因为这种浑然天成的关系，DFM文件存取必然得到VCL在程序上的支持。
DFM文件的部件存取是Delphi 可视化设计环境中文件存取的中心问题。因为Delphi 可视化设计的核心是窗体的设计。每个窗体对应一个库单元，是应用程序的模块，窗体在磁盘上的存储就是DFM文件。
DFM文件结构我们前面介绍过了。它实际上是存储窗体及其拥有的所有部件的属性。这种拥有关系是递归的。问题在于如何将这些属性数据与程序中的变量(属性) 代码联系起来。
在Delphi中处理这种联系的过程分为两种情况：设计时和运行时。
在设计时，建立联系表现为读取DFM 文件，建立DFM文件中的部件及其属性与可视化设计工具(Object Inspector 、窗体设计窗口和代码编辑器) 的联系，也就是说让这些部件及其属性能出现在这些窗口中，并与代码中的属性定义联系起来；分解联系表现为存储DFM文件，将窗体窗口中的部件及其属性写入DFM文件。
在运行时，主要是建立联系的过程，即读取DFM文件。这时，DFM文件不是作为独立的磁盘文件，而是以应用程序资源中的RCDATA类型的二进制数据存在。建立联系的过程表现为将资源中的部件及其属性与应用程序中的对象及其数据域联系起来。其过程为：根据DFM中的部件类名创建对象，再将用DFM中的部件属性值给程序中的部件属性赋值。当然要完成这一过程，还必须在代码中有相应的窗体定义，因为方法等代码是不存入部件的。
VCL 对读取DFM文件在代码上的支持是通过Stream 对象和Filer 对象达到的。在20. 1 和20.1 节中，我们可以看到Stream 对象和Filer 对象中有大量的用于存取部件及其属性的方法，尤其在TReader 对象中，还有关于错误处理和动态的方法赋值的方法。下面我们就通过程序实例介绍存取DFM文件方法、步骤和注意事项。