tlist的使用求教

Question

TMyClass = class
  ...
end;var
  a: TMyClass;
  l: TList;begin
  ...
  a:=TMyClass.create;
  l.add(@a);
  a:=TMyClass.create;     //  此处会将前面创建的对象覆盖
  l.add(@a);
end;想实现将多个对象加入一个列表中，请问如何实现？多谢了。

Answer 1

@a是a的地址，当然会覆盖了，换成l.add(a)就行了。
TMyClass = class
  ...
end;var
  a: TMyClass;
  l: TList;begin
  ...
  a:=TMyClass.create;
  l.add(a);
  a:=TMyClass.create;
  l.add(a);
end;

Answer 2

我知道了，一个低级错误。谢谢sysu
怎么散分？