德爾福TCollection數不增加添加後

Question

我有類型

• TNotifyReply = A類（TCollectionItem）
• TNotifyReplylist = A類（TOwnedCollection）

NotifyReplylist：= TNotifyReplylist.Create（個體經營， 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);