Question

我有一个从TPersistent继承3度的对象，我想用Assign程序克隆它。

MyFirstObj := GrandSonOfPersistent.Create();
//I modify the objects inside MyFirstObj
MySecondObj := GrandSonOfPersistent.Create();
MySecondObj.Assign(MyFirstObject);

我如何检查它是否有效？当对象有许多其他对象时它是否有效？

我正在尝试克隆一个对象，这是正确的方法吗？

Answer 1

Assign是一种虚拟方法。从TPersistent继承的任何后代类都应覆盖Assign以处理在基类之上添加的任何新成员的深度复制。如果您的类没有覆盖Assign来处理这些深层副本，那么使用Assign制作此类副本将不会成功。 Assign调用AssignTo的基本实现，它尝试使用源对象的实现来执行复制。如果源和目标对象都不能处理副本，则会引发异常。

请参阅：The Documentation

例如：

unit SomeUnit;

 interface

 uses Classes;

 type
   TMyPersistent = class(TPersistent)
   private
     FField: string;         
   public
     property Field: string read FField write FField;
     procedure Assign (APersistent: TPersistent) ; override;
   end;

 implementation

 procedure TMyPersistent.Assign(APersistent: TPersistent) ;
 begin        
    if APersistent is TMyPersistent then
      Field := TMyPersistent(APersistent).Field          
    else         
      inherited Assign (APersistent);
 end;

end.

请注意，任何继承自TPersistent的类只有在无法处理inherited调用时才应调用Assign。但是，后代类应始终调用inherited，因为父级也可以执行操作，如果没有，将处理调用基类inherited的传递：

type
  TMyOtherPersistent = class(TMyPersistent)
  private
    FField2: string;         
  public
    property Field2: string read FField2 write FField2;
    procedure Assign (APersistent: TPersistent) ; override;
  end;

implementation

procedure TMyPersistent.Assign(APersistent: TPersistent) ;
begin 
  if APersistent is TMyOtherPersistent then
    Field2 := TMyOtherPersistent(APersistent).Field2;     
  inherited Assign (APersistent);  
end;

在这个例子中，我显示了字符串。对于对象成员，您需要使用他们的Assign方法或以其他方式执行复制。

我可以使用assign来复制对象的对象吗？

1 个答案: