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

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方法以实现所需功能是完全合理的.