Obtención de clases en runtime.
 

Hola a todos,

Siguiendo con el tema de la Fábrica de clases , que me ha solucionado gran parte del problema (gracias a todos), me surge otra duda (esta ya más por comodidad de implementación que otra cosa), basada en la ley del mínimo esfuerzo.

Con las implementaciones que he visto de la fábrica, el registro de las clases se tenía que hacer de forma explícita, llamando a la función registrar. La cosa es que si se posee una aplicación con una jerarquía de formularios que heredan unos de otros, pero que a pesar de ello existen un buen porrón de formularios (200 o más...), registrar las clases (Formularios) de forma manual es algo así como una tarea lenta, aburrida, y susceptible de cometer más de un error u olvido.

La pregunta:

¿Existe alguna forma de llenar / obtener las clases (Formularios) disponibles en un proyecto en runtime? Por supuesto se entiende que estas clases no se crean al inicio de la aplicación, sino que serán creadas como se explica en el hilo que he mencionado antes (Fábrica de Clases).

Gracias por adelantado.

Saludos.

Bueno, demas que es posible pero una manera practica es usar la clausula:

Código Delphi [-]
    initialization
          LaClaseFabrica.Registrar(......

No tan automatico, pero mas control. Otra opcion seria hacer:

Código Delphi [-]
      Forma[1]:='Forma1';
      Forma[2]:='Forma2';

      for i:=0 to ...
          LaClaseFabrica.Registrar(......

Si le hechas una mirada al codigo fuente del archivo de proyecto, podras extraer la lista de forms y sus clases....

Por ahora no se me ocurre nada mas. Por ejemplo, hacer un metodo en la clase padre no serviria, ni tampoco la inicializacion solo en el padre, por que se ejecuta por Unit no por clase.

No creo que esto sea posible. Después de todo, si lo fuera no necesitarías la fábrica. En algún momento debes hacer la asociación entre el nombre y la clase. El IDE lo hace automáticamente para las clases de los controles que insertas en un formulario pero para otras clases (descendientes de TPersistent) debes usar RegisterClass o RegisterClasses que a fin de cuentas es lo mismo (una fábrica).

Yo pienso que lo más prolijo es como indica mamcx, hacer el registro en la sección initialization de cada undad de formulario. Además, si te fijas método GetClase de la fábrica que puse:

Código Delphi [-]
function TFabrica.GetClase(Nombre: String): TFormClass;
var
  I : Integer;

begin
  I := Lista.IndexOf(Nombre);
  Assert(I <> -1, 'Clase no registrada');
  Result := TFormClass(Lista.Objects[i]);
end;

puedes cambiar el Assert por

Código Delphi [-]
Assert(I <> -1, 'La clase ' + Nombre + ' no está registrada');

de manera que si por alguna razón olvidas alguna, durante la ejecución detectarás inmediatamente cuál fue (por su nombre) y podrás hacer el cambio rápidamente.

// Saludos