Como instanciar objetos de los cuales solo se conoce su clase ancestro

[[Al González]]

¡Hola César!

Primero que nada, acá te esperamos, la fiesta durará hasta el martes : http://www.clubdelphi.com/foros/showthread.php?t=58049

No sé mucho de modelos (casi todo lo programo según los astros ). Pero me salta la siguiente pregunta al leer tu planteamiento:

¿No te sirve pasarle al controlador la clase de objeto que deseas instanciar? Algo así como:

Código Delphi [-]
Controlador.SetView (TfmCliente);

Dentro del método SetView, el objeto controlador podría ejecutar la instanciación sin problemas:

Código Delphi [-]
Procedure TControlador.SetView (Const Clase :TFormClass);
Var
  F :TForm;
Begin
  { En lugar de Nil, puede especificarse otro valor como "Owner"
    (por ejemplo Self si TControlador es descendiente de
    TComponent) }
  F := Clase.Create (Nil);
  
  { Hacer x cosa con la instancia F }
End;

Recuerda que también los métodos constructores pueden ser virtuales, y ese es el caso del constructor Create que TForm hereda de la clase TComponent. Por lo tanto se estará llamando al constructor que corresponda en caso de que lo hayas redefinido (Override) en algunas de tus clases de formularios.

Espero te resulte oportuna mi aportación. No dejes de comentarnos sobre tus avances.

Saludos.

Al González.