如何为对象进行复制呢
类增加一个Assign方法，以进行对象间的复制。例如修改以上的TExample类：
type
TExample = class
Member1 : Integer;
Member2 : Char;
public
procedure Assign(Src : TExample);
end;
实现该类的Assign方法如下：
procedure TExample.Assign(Src: TExample);
begin
Member1 := Src.Member1;
Member2 := Src.Member2;
end;
如此便可以进行TExample类实例对象间的复制
var
A, B : TExample;
begin
A := TExample.Create();
B := TExample.Create();
A.Member1 := 1;
A.Member2 := 'A';
B.Assign(A);
......
