delphi TCollection计数添加后不增加

Question

我有这些类型的

class(TCollectionItem)

• TNotifyReplylist = class(TOwnedCollection)

=

• TNotifyReply

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);