添加后 delphi TCollection 计数不增加

Question

我有类型

• TNotifyReply = 类(TCollectionItem)
• TNotifyReplylist = 类(TOwnedCollection)

NotifyReplylist := TNotifyReplylist.Create(self, TNotifyReply);

调用此函数后(任意次数)，计数仍然为零

function TNotifyReplylist.addItem: TNotifyReply;
 begin
   Result := inherited Add as TNotifyReply;
   OutputDebugString(PAnsiChar('Count > '+ inttostr(count)));
 end;

知道这里发生了什么吗？

Answer 1

发现问题了，TNotifyReply.Create是

constructor TNotifyReply.Create(ACollection: TCollection);
begin
  inherited Create(Collection);
  ....

更改为

inherited Create(ACollection);