Jak uzyskać odwołanie do typu klasy po nazwie w Delphi XE?

Question

Właściwie to próbuję użyć Rtti do implentacji ogólnej metody invokera. Powinno to działać tak:

• będę podać nazwę klasy, metody i argumenty
• wywołującego zrobi swoją pracę, powołując się na określoną metodę tej klasy

Więc potrzebujesz odwołania do klasy, aby uzyskać informacje o Rtti i szukać metody, którą chcę wywołać.

Czy jest jakiś sposób, aby to zrobić bez implementacji listy referencyjnej klas klas, z którymi chcę pracować?

Answer 1

Aby uzyskać odwołanie do klasy przy użyciu jego nazwy, należy użyć funkcji TRttiContext.FindType przekazując nazwę klasy i pobrać instancję za pomocą właściwości AsInstance, a następnie można wywołać konstruktor klasy.

var 
    Instance : TRttiInstanceType; 
    ctx : TRttiContext; 
    mClass : TValue; 
begin 
    ctx := TRttiContext.Create; 
    Instance := ctx.FindType(ClassName).AsInstance; //ClassName is something like 'Classes.TStringList'; 
    mClass := Instance.GetMethod('Create').Invoke(Instance.MetaclassType,[]); 

    //do your stuff here 


end;