现有一个类Class1,继承自TObject,里面有东西要在堆上分配内存
SameFun(Obj1:Class1)
var
Obj2:Class1;
begin
Obj1:=Class1.Create;
//如何把Obj1深拷贝给Obj2 ? 试过Obj1:=Obj2不行,两个会指向同一个实例,是不是要在构造函数里写什么东西?
end;
...全文
1044打赏收藏
如何在Delphi实现如C++里的深拷贝
现有一个类Class1,继承自TObject,里面有东西要在堆上分配内存 SameFun(Obj1:Class1) var Obj2:Class1; begin Obj1:=Class1.Create; //如何把Obj1深拷贝给Obj2 ? 试过Obj1:=Obj2不行,两个会指向同一个实例,是不是要在构造函数里写什么东西? end;