Wie erweitere ich eine generische Sammlung in Delphi?

Question

Ich habe eine generische Sammlung wie folgt aus:

TFoo = class; 

TFooCollection<T: TFoo> = class(TObjectDictionary<string, T>) 
    procedure DoSomething; 
end; 

Es funktioniert gut.

Jetzt brauche ich TFooCollection wie folgt zu erweitern:

TBar = class(TFoo); 

TBarCollection<T: TBar> = class(TFooCollection) 
    procedure DoSomethingElse; 
end; 

Und der Compiler beschwert sich, dass TFooCollection nicht definiert ist. Da TBar von TFoo erbt, möchte ich die TFooCollection-Methoden (die mit TFoo und TBar-Elementen funktionieren würden) nutzen und etwas anderes nur mit TBar Collections tun.

Ist es in Delphi möglich?

Answer 1

Sie wussten, wie Sie die generische Sammlung erweitern können TObjectDictionary, wenden Sie einfach die gleiche Technik an, wenn Sie die generische Sammlung TFooCollection erweitern. TObjectDictionary gibt keinen Typ selbst an - Sie mussten Werte für die beiden generischen Typparameter angeben. Eine, die Sie fest auf string codiert haben, und die andere, die Sie durch Weiterleiten des generischen Typparameters erhalten haben, der in TFooCollection empfangen wird.

Ebenso wird, wenn der Basistyp für TBarCollection angeben, können Sie entweder eine hartcodierte Wert für den TFooCollection Typparameter oder der Parameter von TBarCollection weiterleiten kann. Wahrscheinlich möchten Sie Letzteres tun:

type 
    TBarCollection<T: TBar> = class(TFooCollection<T>) 
    end; 

Answer 2

Denken Sie daran, dass die Typdeklarationen in generischen Klassen Teil des Typnamens sind. Der Compiler ist ziemlich korrekt besagt, dass Sie keinen TFooCollection-Typ definiert haben. Sie haben einen Typ namens TFooCollection (oder TFooCollection) definiert.