delphi TCollection compte pas augmenter après Ajouter

Question

j'ai les types

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

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

Après avoir appelé cette fonction (nombre de fois Tous), Comptez encore zéro

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

Toute idée ce qui se passe ici?

Answer 1

trouvé le problème, TNotifyReply.Create était

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

changé à

inherited Create(ACollection);