如何在TPersistent类中实现支持子类的通用Clone()方法？

当然可以做到！而且完全不用在每个子类里重复编写Clone逻辑——核心就是借助TPersistent的Assign方法，再结合Delphi的动态类创建能力就能轻松实现，完美适配所有遵循Assign规范的子类。

核心思路 #

TPersistent体系的子类本来就需要重写Assign方法来处理自身的字段/属性，我们可以利用这一点：在基类中实现一个通用的Clone方法，它会动态创建当前实例的实际类型对象，然后通过Assign把当前实例的所有数据复制过去，最后返回这个新对象。这样子类只要正确实现了Assign，就自动拥有了Clone能力，完全不用再写一遍Clone代码。

基类实现代码 #

type
  TMyPersistentBase = class(TPersistent)
  public
    function Clone: TMyPersistentBase; virtual;
  end;

function TMyPersistentBase.Clone: TMyPersistentBase;
begin
  // 创建当前实例的实际类型对象（子类调用时会创建子类实例）
  Result := TMyPersistentBase(Self.ClassType.Create);
  try
    // 用Assign复制所有数据
    Result.Assign(Self);
  except
    // 如果Assign失败，释放刚创建的对象避免内存泄漏
    Result.Free;
    raise;
  end;
end;

子类实现示例 #

子类只需要专注于正确重写Assign方法，完全不用管Clone：

type
  TMyConcretePersistent = class(TMyPersistentBase)
  private
    FUserName: string;
    FUserAge: Integer;
  public
    procedure Assign(Source: TPersistent); override;
    // 这里不需要重新定义Clone！
  end;

procedure TMyConcretePersistent.Assign(Source: TPersistent);
begin
  if Source is TMyConcretePersistent then
  begin
    // 先调用父类的Assign处理父类字段
    inherited;
    // 复制子类自己的字段
    FUserName := TMyConcretePersistent(Source).FUserName;
    FUserAge := TMyConcretePersistent(Source).FUserAge;
  end
  else
    // 不是同类型，交给父类处理
    inherited;
end;

为什么这能生效？ #

• Self.ClassType.Create会根据当前实例的实际类型创建对象：比如当你调用TMyConcretePersistent实例的Clone时，创建的是TMyConcretePersistent对象，而不是基类对象。
• 子类重写的Assign方法会负责复制自己的所有字段，加上父类的Assign处理父类字段，最终得到的就是完整的独立副本。
• 异常处理确保了如果复制过程出错，不会留下内存泄漏的对象。

注意事项 #

1. 确保所有子类都遵循TPersistent的Assign规范：重写Assign时先判断类型，再处理自身字段，最后调用inherited。
2. 如果子类需要带参数的构造函数，你可能需要调整基类的Clone逻辑（比如添加虚方法来创建实例），但大部分TPersistent子类都是用无参构造，所以这个方案完全适用。

内容的提问来源于stack exchange，提问作者maf-soft