RTTI: Puis-je obtenir un type par nom?

Question

Étant donné une chaîne de texte contenant un nom de type, existe-t-il un moyen d'obtenir le type approprié?

Je cherche à faire quelque chose comme ceci:

type 
    TSomeType<T> = class 
    // yadda yadda 
    end; 

procedure DoSomething; 
var 
    obj : TObject; 
begin 
    o := TSomeType<GetTypeByName('integer')>.Create; 
    // do stuff with obj 
end; 

J'ai regardé plusieurs explications RTTI en ligne et regardé à travers les unités Delphi et ne vois pas ce que je cherche. Est-ce possible?

Answer 1

Non, les génériques sont entièrement compiletime.

Answer 2

Vous pouvez toujours enregistrer vos types dans un type de registre (géré par une liste de chaînes ou un dictionnaire) et créer une fonction usine pour retourner ensuite l'objet approprié. Malheureusement, vous devez savoir à l'avance de quels types vous auriez besoin. Quelque chose de similaire aux fonctions Delphi RegisterClass et FindClass (dans l'unité de classes). Ma pensée est de mettre le type de modèle générique dans la liste directement.

Un exemple d'utilisation possible:

RegisterCustomType('Integer',TSomeType<Integer>); 
RegisterCustomType('String',TSomeType<String>); 

if FindCustomType('Integer') <> nil then 
    O := FindCustomType('Integer').Create; 

EDIT: Voici une implémentation spécifique simple en utilisant un TDictionary de Generics.Collections pour gérer le stockage de registre ... Je vais laisser cela en extraire utile méthodes comme un exercice simple pour le lecteur.

var 
    o : TObject; 
begin 
    TypeDict := TDictionary<String,TClass>.Create; 
    TypeDict.Add('integer',TList<integer>); 
    if TypeDict.ContainsKey('integer') then 
    o := TypeDict.Items['integer'].Create; 
    if Assigned(o) then 
    ShowMessage(o.ClassName); 
end; 

Une autre EDIT: Je donne cette une a été pensée hier soir, et a découvert une autre technique que vous pouvez fusionner dans ce concept. Interfaces Voici un exemple de ne rien faire rapide, mais peut facilement être étendu:

TYPE 
    ITest = interface 
    ['{0DD03794-6713-47A0-BBE5-58F4719F494E}'] 
    end; 

    TIntfList<t> = class(TList<T>,ITest) 
    public 
    function QueryInterface(const IID: TGUID; out Obj): HRESULT; stdcall; 
    function _AddRef: Integer; stdcall; 
    function _Release: Integer; stdcall; 
    end; 

procedure TForm1.Button7Click(Sender: TObject); 
var 
    o : TObject; 
    fTestIntf : ITest; 
begin 
    TypeDict := TDictionary<String,TClass>.Create; 
    TypeDict.Add('integer',TIntfList<integer>); 
    if TypeDict.ContainsKey('integer') then 
    o := TypeDict.Items['integer'].Create; 
    if Assigned(o) and Supports(o,ITest,fTestIntf) then 
    ShowMessage(o.ClassName); 
end; 

Bien sûr, vous auriez à mettre en œuvre les méthodes QueryInterface, _AddRef et _Release et étendre l'interface pour faire quelque chose de plus utile.

Answer 3

Si vous oubliez les génériques et les types de base, la fonction "RegisterClass" serait utile. Mais cela ne fonctionne pas pour les génériques ou les types de base.

Answer 4

La nouvelle unité RTTI de Delphi 2010 permet de récupérer les types déclarés dans la section interface des unités. Pour tout type donné, représenté par une instance TRttiType, la propriété TRttiType.QualifiedName renvoie un nom qui peut être utilisé avec TRttiContext.FindType ultérieurement pour récupérer le type. Le nom qualifié est le nom complet de l'unité (y compris les espaces de noms, s'ils existent), suivi d'un '.', Suivi du nom complet du type (y compris les types externes s'il est imbriqué). Par conséquent, vous pouvez récupérer une représentation du type Integer (sous la forme TRttiType) avec context.FindType('System.Integer').

Mais ce mécanisme ne peut pas être utilisé pour extraire des instanciations de types génériques qui n'ont pas été instanciés au moment de la compilation; L'instanciation à l'exécution nécessite la génération de code d'exécution.