如何使用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;
最佳答案
赋值运算符不能在Delphi中重载。
您将需要介绍一种执行复制的方法。 TPersistent.Assign
是该操作的一个示例。从TPersistent
派生并重写虚拟Assign
方法以实现所需的功能是完全合理的。
关于class - 如何将数据从一个类复制到另一个类,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23220836/