Cita:
Empezado por doctorhd
...la idea de este parámetro es que acepte clases que descienden de una clase en común...
|
Hola
Puedes crear una referencia de clase como campo en tu clase generica.
Me explico.
En lazarus cree una clase que representa una lista generica a objectos (TClientes, TArticulos, etc). Para eso defini un campo privado
Código Delphi
[-]Private
FTipoClass=TBaseClass;
Que esta definido asi:
Código Delphi
[-]TBaseClass=Class of TClaseBase;
En el codigo para crear los objectos de la lista hago asi
Código Delphi
[-]ItemList:=FTipoClass.create;
Claro que de todas formas es necesario hacer un cast para obtener la clase que deseo
Código Delphi
[-]MiCLiente:=TCliente(Items[1]).UnMetodo
Espero sea de utilidad
Saludos