如何为对象进行复制呢

类增加一个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);

......