Delphi 2010: ¿qué pasó con TRTTIConstructor?

Question

Tengo dos preguntas (de los cuales al menos uno es con respecto a RTTI en D2010 y la creación de instancias dinámico)

1. estaba leyendo lo que parece ser las láminas para una conference talk por Barry Kelly, y conocer en p. 13 algo que parecía realmente interesante: TRTTIConstructor.Invoke. En un punto de viñeta adyacente, se encuentra "Crear instancias dinámicamente sin necesidad de constructores virtuales y metaclases". ¡Esto parece una gran característica (y exactamente lo que necesito, por cierto)! Sin embargo, cuando miro en los documentos D2010 (ms-help: //embarcadero.rs2010/vcl/Rtti.html), no puedo encontrarlo. ¿Fue revocado?
2. ¿Cuál es la forma mínima de crear una instancia de una clase, siempre que el nombre de clase esté almacenado en una cadena?

Answer 1

Creo que la funcionalidad ha sido absorbida por TRttiMethod. Tiene las propiedades IsConstructor, IsDestructor e IsClassMethod para que pueda usarse tanto para métodos "especiales" como normales.

En cuanto a la pregunta 2, intentar algo como esto:

function GetConstructor(val: TRttiInstanceType): TRttiMethod; 
var 
    method: TRttiMethod; 
begin 
    for method in val.GetMethods('Create') do 
    begin 
     if (method.IsConstructor) and (length(method.GetParameters) = 0) then 
     exit(method); 
    end; 
    raise EInsufficientRTTI.CreateFmt('No simple constructor available for class %s ', 
            [val.MetaclassType.ClassName]); 
end; 

Esto encuentra el mayor constructor llamado Create que no toma ningún parámetro. Puede modificarlo para buscar otros constructores con otras firmas, si sabe lo que está buscando. Entonces simplemente llame al Invoke en el resultado.

Answer 2

Aunque puede llamar a .GetMethod() para obtener el constructor, también puede hacer lo siguiente para construir instancias de objetos sin parámetros para el constructor.

function CreateInstance(aType : TRttiType) : TObject; 
begin 
    // Option #1 
    result := aType.AsInstance.MetaclassType.Create; 
    // Option #2 
    result := aType.GetMethod('Create').Invoke(aType.AsInstance.MetaclassType,[]); 
end; 

Si conoce el tipo de base, puede escribir el tipo de conversión para pasar los parámetros si lo desea. He aquí un ejemplo de cómo crear un componente

result := TComponentClass(aType.AsInstance.MetaClassType).Create(OwnerValue);