4

根据对较早帖子的一个回答,我正在调查以下设计的可能性

TChildClass = class(TObject)
private
  FField1:  string;
  FField2:  string;
end;

TMyClass = class(TObject)
private
  FField1:  TChildClass;
  FField2:  TObjectList<TChildClass>;
end;

现在,在现实世界中,TMyClass 将有 10 个这样的不同列表,所以我希望能够使用 RTTI 来处理这些列表。但是,我对这个类的其他字段不感兴趣,所以我需要检查某个字段是否是某种 TObjectList。这是我到目前为止所得到的:

procedure InitializeClass(RContext: TRttiContext; AObject: TObject);
var
  ROwnerType:   TRttiType;
  RObjListType: TRttiType;
  RField:       TRttiField;
  SchInf:       TSchemaInfoDetail;
begin
ROwnerType := RContext.GetType(AObject.ClassInfo);
RObjListType := RContext.GetType(TObjectList<TObject>);
for RField in ROwnerType.GetFields do begin
  // How do I check if the type of TMyClass.FField2 (which is TObjectList<TChildClass>) is some sort of TObjectList?
end;

很明显,RField.FieldType <> RObjListType.FieldType. 但是,他们确实有一些关系,不是吗?对常见功能进行非常精细的检查以使其很可能RField.FieldType实际上是TObjectList.

老实说,我对泛型感到很不舒服,所以这个问题可能非常幼稚。但是,我很乐意学习。上述解决方案是否可以实施?蒂亚!

4

2 回答 2

6

每个通用实例化都是唯一的,并且在 RTTI 方面与其他实例化没有关系。因为 Delphi 不能在运行时实例化泛型类型,所以没有与 .NET 等价的GetGenericTypeDefinition. 您能做的最好的事情就是查看类型的形状 - 例如它是否实现GetEnumeratorAdd

这也可以足够灵活地处理一般集合类型,而不仅仅是从TObjectList<T>. C# 对其集合初始化器做了类似的事情——它寻找一个Add方法并插入对它的调用:

http://msdn.microsoft.com/en-us/library/bb384062.aspx

于 2010-04-01T10:18:58.793 回答
2

Delphi 可以在运行时实例化泛型类型。问题是,泛型类型通常不包含在运行时信息中。如果您持有特定类型的全局变量(在您的情况下为 TObjectList< TChildClass >),请在初始化部分实例化(并释放)它,该特定类的运行时信息不会被链接器剥离,您将能够实例化它以后动态。(您需要为 context.findType() 提供类的完整限定名才能正常工作。)我花了一些时间弄清楚如何做到这一点,我绝对不满意,但因为我还没有找到我现在必须以另一种方式处理它。如果有人知道更好的方法,请告诉我。

于 2010-12-11T15:24:40.433 回答