核心库类之TPersistent类

 

 1TPersistent = class(TObject)
 2  private
 3    procedure AssignError(Source: TPersistent);
 4  protected
 5    procedure AssignTo(Dest: TPersistent); virtual;
 6    procedure DefineProperties(Filer: TFiler); virtual;
 7    function  GetOwner: TPersistent; dynamic;
 8  public
 9    destructor Destroy; override;
10    procedure Assign(Source: TPersistent); virtual;
11    function  GetNamePath: string; dynamic;
12  end;

     在TPersistent的声明中，有两个Public的方法（Destroy在此不讨论），其中GetNamePath是Delphi的集成开发环境内部使用的，VCL不推荐直接对它的调用。而Assign方法则是为完成对象复制而存在的，并且被声明为虚方法，以允许每个派生类定义自己的复制对象的方法。
    如果正在设计的类需要有这种允许对象复制的能力，则让类从TPersistent派生并重写Assign方法。
    如果没有重写Assign方法，则TPersistent的Assign方法会将复制动作交给源对象来 进行：
procedure TPersistent.Assign(Source: TPersistent);
begin
   if Source <> nil then
       Source.AssignTo(Self) // 调用源对象的AssignTo方法
   else
      AssignError(nil);
end;
可以在TPersistent类的声明的protected节中找到AssignTo方法的声明，它也是一个虚方法。
如果将复制动作交给源对象来完成，那么必须保证源对象的类已经重写了AssignTo方法，否则将抛出一个“Assign Error”异常：

 1{ TPersistent }
 2
 3destructor TPersistent.Destroy;
 4begin
 5  RemoveFixups(Self);
 6  inherited Destroy;
 7end;
 8
 9procedure TPersistent.Assign(Source: TPersistent);
10begin
11  if Source <> nil then Source.AssignTo(Self) else AssignError(nil);
12end;
13
14procedure TPersistent.AssignError(Source: TPersistent);
15var
16  SourceName: string;
17begin
18  if Source <> nil then
19    SourceName := Source.ClassName else
20    SourceName := 'nil';
21  raise EConvertError.CreateResFmt(@SAssignError, [SourceName, ClassName]);
22end;
23
24procedure TPersistent.AssignTo(Dest: TPersistent);
25begin
26  Dest.AssignError(Self);
27end;
28
29procedure TPersistent.DefineProperties(Filer: TFiler);
30begin
31end;
32
33function TPersistent.GetNamePath: string;
34var
35  S: string;
36begin
37  Result := ClassName;
38  if (GetOwner <> nil) then
39  begin
40    S := GetOwner.GetNamePath;
41    if S <> '' then
42      Result := S + '.' + Result;
43  end;
44end;
45
46function TPersistent.GetOwner: TPersistent;
47begin
48  Result := nil;
49end;

    AssignError是一个private方法，仅仅用于抛出赋值错误的异常。
在TPersistent的声明中，GetOwner方法是被前面所述由Delphi内部使用的GetNamePath所调用。
最后还剩下一个虚方法DefineProperties()，它则是为TPersistent的另一个使命而存在：对象持久。一个对象要持久存在，就必须将它流化（Streaming），保存到一个磁盘文件（.dfm文件）中。TPersistent也使得其派生类具有这种能力，但它作为抽象类只是定义接口而并没有给出实现。可以看到，DefineProperties是一个空的虚方法：
procedure TPersistent.DefineProperties(Filer: TFiler);
begin
end;
这留待其派生类来实现。
对于对象持久的实现类，最典型的就是TComponent，每个组件都具有保存自己的能力。
2.持久化的核心类：TFiler、TReader、TWriter，并使用继承的方式来实现。
TFiler抽象类，定义持久化基本的服务接口，同是TReader、TWriter的抽象父类。