如何复制类？

[nevid]

我有一个类
TID = class(TComponent)
public
id: integer;
name: string;
end;

var
aid,bid: TID;

aid := TID.Create(nil);
bid := TID.Create(nil);
aid.id := 4;
aid.name := 'aa';

现在我想把aid的所有内容复制到bid

bid.assign(aid);

上一句总是报错 Cannot assign a TID to a TID.什么原因？

[birdhaha]

你的TID类没有assign()这个方法吧？

[bee2518]

自定义类的Assign是自己定义的方法才可以用
你去看看那些TFont之类的例子

[birdhaha]

写个assign()方法吧。
TID = class(TComponent)
public
id: integer;
name: string;
procedure assign(myId:Tid);
end;

procedure assign(myId:Tid);
begin
id:=myId.id;
name:=myId.name;
end;

[nevid]

那有没有办法将任意两个相同的类互相复制？

[zeroxing]

深度拷贝，恩，目前好不知道怎么去做。

[yinzhiw]

你必须自己去覆盖这个Assign()方法

[赖皮鹏]

Assign()方法继承自TPERSISTENT，BUT NOT TCOMPONENT。

[nieyc]

“那有没有办法将任意两个相同的类互相复制？”
相同的类怎么理解，父类与子类算相同吧？没有关系的两个类算相同吗？再思考一下，谁便写个Assign会出错的。

[largewang]

TID = class(TComponent)
published
property id: integer read FID write FID;
property name: string read FID write FID;
end;


用assign()

[tjkjdx]

mark~~~~~