delphi - 追加後に 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);