Pregunta complicada...

[marto]

Wop!

Solo dos cosas, primero, montar un class factory es más sencillo que todo eso. Segundo, creo que que lo que el compañero quería era una función que instanciase "cualquier cosa". Ejemplo:

Código Delphi [-]
var
  e: TEdit;
  m: TMemo;
begin
  e := Instanciar('TEdit');
  m := Instanciar('TMemo');
end;

Y como bien se ha comentado, eso no se puede hacer en Delphi.

[mamcx]

Obvio, por eso puse la version facil y la completa.

Sin embargo, pensando que DELPHI HACE LO MISMO pues resulta que hay unas cuantas funciones bien interesantes:

VENTAJA: Tenemos listo un Factory con Delphi y no toca armar el codigo que puse arriba (al menos, para cosas no muy complejas)

Código Delphi [-]
  FindClass ('TButton') //Para cualquier clase basada en TPersistent, busca por el tipo de clase
  GetClass('TButton') //La busca por el nombre del componente, basado en TPersistent
 FindComponent ('Un Nombre') //Lo busca por el nombre como MiControlEdit, debe estar DENTRO de otro control Forma1.FindControl....
  
 RegisterClasses([TIcon, //Registra clases que no estan montadas aun en los forms o dentro de las clases de los forms y sus hijas, incluso LAS QUE UNO CREE EN BASE A TPersistent!
  
  //Ejemplo:
  procedure TForm1.BitBtn1Click(Sender: TObject);
  
  begin
     { make sure the classes are registered so that GetClass will work -- }
     { Usually, this goes in the initialization section where it is only executed once }
    RegisterClasses([TIcon, TBitmap, TJPEGImage, TMetafile]);
    Edit1.Text := GraphicExtension(TGraphicClass(GetClass(Edit2.Text)));
   end;

Con eso y el RTTI se hace mucha magia. Sin embargo la maxima flexibilidad es con un componente de Script Engine. Como el DWS o el TMS Script o el Pascal Script.

[roman]

Empezado por marto

Y como bien se ha comentado, eso no se puede hacer en Delphi.

Bueno, puede hacerse con GetClass pero la clase debe estar previemente registrada con RegisterClass que, a fin de cuentas viene a ser el registro en la fábrica.

Por otro lado la implementación que esboza mamcx no se me hace particularmente complicada o no veo forma de reducirla mucho.

De cualquier manera aprovecho este hilo para copiar la fábrica que menciona Federico del otro hilo:

Código Delphi [-]
unit fab;

interface

uses
  Classes, Forms;

type
  TFabrica = class
  private
   Lista : TStringList;
   function GetClase(Nombre: String): TFormClass;

  public
   property Clases[Nombre: String]: TFormClass read GetClase; default;

   constructor Create;
   destructor Destroy; override;
   procedure Registrar(Clase: TFormClass);
  end;

var
  Fabrica: TFabrica;

implementation

constructor TFabrica.Create;
begin
  inherited;
  Lista := TStringList.Create;
end;

destructor TFabrica.Destroy;
begin
  Lista.Free;
  inherited;
end;

procedure TFabrica.Registrar(Clase: TFormClass);
var
  I : Integer;

begin
  I := Lista.IndexOf(Clase.ClassName);

  // Registrar si no lo está ya
  if I = -1 then Lista.AddObject(Clase.ClassName, TObject(Clase));
end;

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;

initialization
  Fabrica := TFabrica.Create;

finalization
  Fabrica.Free;
end.

ya que en el hilo original han aparecido montones de líneas en blanco.

Está pensada para formularios pero se puede adaptar a otras clases base.

// Saludos

[oliverinf]

Gracias, por responder a mi pregunta. Voy a ponerme a investigar sobre el tema y despues les contaré como me fue.

saludos....