Comment vérifier si TypeIdenitifier (T) est un objet?

Question

Je crée une classe de liste générique qui a un membre de type Array (Array of). Le problème est la destruction de classe, car la classe est supposée être utilisée pour les types d'octets vers les types héritant de TObject.

Plus précisément:

destructor Destroy; 
var elem:T; 
begin 
    /*if(T is Tobject) then //Check if T inherits TObject {Compiler error!} 
    for elem in FData do TObject(elem).Free;*/ // do not know how to do it 

    SetLength(FItems,0); //FItems : Array of T 
    inherited Destroy; 
end; 

Comment puis-je vérifier si T est TObject donc je peux libérer tous les membres si le typeidenitifier est une classe, par exemple?

Answer 1

Vous pouvez obtenir les informations de type de votre type T avec la fonction magique du compilateur TypeInfo. Il renvoie un pointeur que vous pouvez convertir en PTypeInfo, qui est déclaré dans l'unité TypInfo. Donc:

if PTypeInfo(typeInfo(T)).Kind = tkClass then 
    //do whatever