как вызвать унаследованный конструктор TObjectDictionary в Delphi

Question

Я создал следующий класс, после прочтения о значительном улучшении производительности TDictionary над TStringList:

TAnsiStringList = class(TObjectDictionary<AnsiString,TObject>) 
    public 
     constructor Create(const OwnsObjects: Boolean = True); reintroduce; 
     destructor Destroy; override; 
     procedure Add(const AString: AnsiString); 
     procedure AddObject(const AString: AnsiString; AObject: TObject); 
    end; 

Я закодировал конструктор так:

{ TAnsiStringList } 

    constructor TAnsiStringList.Create(const OwnsObjects: Boolean = True); 
    begin 
     if OwnsObjects then 
     inherited Create([doOwnsKeys,doOwnsValues]) 
     else 
     inherited Create; 
    end; 

... ожидая, что этот конструктор TObjectDictionary будет называться:

constructor Create(Ownerships: TDictionaryOwnerships; ACapacity: Integer = 0); overload; 

... если указан параметр Ownerships. Если домовладений параметр не указан, я ожидал, что следующий унаследовали TDictionary конструктор будет называться:

constructor Create(ACapacity: Integer = 0); overload; 

код компилируется и работает, но когда я называю

inherited Create([doOwnsKeys,doOwnsValues]) I get the following error: 

Недопустимый класс типаж

Кто-нибудь видит, что я делаю неправильно, и есть ли способ сделать это?

ТИА

Answer 1

Проблема заключается в том, что вы просите контейнер позвонить Free на ключи, когда элементы будут удалены. Но ваши ключи не являются классами, и поэтому это неверный запрос. Это ловушка во время выполнения, а не времени компиляции, поскольку владение не определяется до времени выполнения.

Необходимо только doOwnsValues и должен удалить doOwnsKeys.

if OwnsObjects then 
    inherited Create([doOwnsValues]) 
else 
    inherited Create; 

---

Для чего это стоит, если вы пытаетесь цветовым AnsiString эквивалентно TStringList, то ваш подход является ошибочным. Строковый список - это упорядоченный контейнер, но словаря нет. Вы не сможете индексировать по целому числу, итерировать по порядку и так далее. Я также не понимаю, почему вы хотите заставить всех потребителей этого класса объявить объекты типа TObject. Вы должны оставить этот параметр бесплатным, чтобы потребитель указал. Это красота дженериков.

Возможно, вам не нужен заказный контейнер, и в этом случае вам нужен словарь. Но в этом случае вам просто не нужно создавать новый класс. Вы можете просто использовать TObjectDictionary как есть.

Если вы мертв набор на создание класса к югу, то я бы сделал это так:

type 
    TAnsiStringDict<T: class> = class(TObjectDictionary<AnsiString, T>) 

Это позволит потребителю класса решить, какой тип объектов они положили в словаре, и поддерживать безопасность типа времени компиляции.

Итак, если вы хотите, словарь списков ваш объявить переменную как это:

var 
    ListBoxDict: TAnsiStringDict<TListBox>;