核心库类之TPersistent类

 

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

    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的抽象父类。

转载于:https://www.cnblogs.com/sideandside/archive/2007/04/11/709111.html