使用Delphi检查字段是否为TList

Question

使用Delphi如何检查对象的字段是否为TList？

我tryed使用此

var 
    c : TRttiContext; 
    t : TRttiType; 
    f : TRttiField; 
begin 
    c := TRttiContext.Create; 
    t := c.GetType(Self.ClassType); 
    for f in t.GetFields do begin 
     //check if the field is TList<T> 
     //check also the Generic type T 
    end; 
end; 

Answer 1

你，如果你想检查TList（一个从System.Classes）使用IsType<T>方法。

如果你想检查它是否为TList<T>你必须做一些类名解析。如果你想检查T的具体类型，更是如此。这是因为Delphi没有关于泛型类型的特殊RTTI，并且它不支持开放泛型类型。

你可以看看Spring4D的Spring.Helpers单元如何解决这个问题。

使用这方面的一些示例代码：

if f.FieldType.IsGenericType then 
    if f.FieldType.GetGenericTypeDefinition = 'TList<>' then 
    if f.FieldType.GetGenericArguments[0].Handle = TypeInfo(TMyClass) then 
     Writeln('found'); 

Answer 2

可以检查对象包含ToArray()方法：

var 
    method: TRttiMethod; 
begin 
    ... 
    method := f.FieldType.GetMethod('ToArray'); 
    if Assigned(method) then 
    begin 
    //... 
    end; 

但是请注意，这将返回True所有TList<>后代了。