class - 如何将数据从一个类复制到另一个类

Question

如何使用DELPHI运算符重载将数据从一类复制到第二类？

我的虚拟应用程序如下所示：

type
  TClass_A = class
    a: String;
  end;
  TClass_B = class(TClass_A)
    b: String;
  end;

implementation    

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TClass_A;
  b: TClass_B;
begin
  a := TClass_A.Create;
  b := TClass_B.create;

  b := a;  // <<-- What code should be here? Can I overload := operator?
end;

Answer 1

赋值运算符不能在Delphi中重载。

您将需要介绍一种执行复制的方法。 TPersistent.Assign是该操作的一个示例。从TPersistent派生并重写虚拟Assign方法以实现所需的功能是完全合理的。