delphi - 检查对象是否继承自泛型类

Question

我有一个通用列表类:

TMyObjectlist<T: TMyObject> = class(TObjectList<T>);

和派生列表类:

TMyDerivedObjectList = class(TMyObjectList<TMyDerivedObject>);

我想检查 TMyDerivedObjectList 的实例 MyList 是否继承自 TMyObjectList，但是:

MyList.InheritsFrom(TMyObjectlist<TMyObject>)

返回 False。

事实证明，MyList.Classparent 的类型为 TMyObjectList<TMyDerivedObject> .

有人知道在这种情况下如何检查 InheritsFrom 吗？

Answer 1

只需为两个列表对象制定继承方案，您就会清楚地明白为什么 InheritsFrom 不起作用。在 Generics.Collections 中，我们有:

TEnumerable<T> = class abstract;
TList<T> = class(TEnumerable<T>);
TObjectList<T> = class(TList<T>);

在您的示例中，我们有:

TMyObject = class;
TMyDerivedObject = class(TMyObject);

所以我们得到了这两个继承树:

TObject
|
TEnumerable<TMyDerivedObject>
|
TList<TMyDerivedObject>
|
TObjectList<TMyDerivedObject>

然后我们有:

TObject
|
TEnumerable<TMyObject>
|
TList<TMyObject>
|
TObjectList<TMyObject>

如您所见，这两种列表类型的唯一共同祖先是 TObject!