diff --git a/Source/Collections.Dictionary.pas b/Source/Collections.Dictionary.pas index 52528ec..85f5fae 100644 --- a/Source/Collections.Dictionary.pas +++ b/Source/Collections.Dictionary.pas @@ -266,7 +266,7 @@ constructor TObjectDictionary(Ownerships: TDictionaryOwnerships; co constructor TObjectDictionary(Ownerships: TDictionaryOwnerships; ACapacity: Integer; const AComparer: IEqualityComparer); begin - constructor(ACapacity, AComparer); + inherited constructor(ACapacity, AComparer); FOwnerships := Ownerships; end;