Tipos Genericos

[Caminante]

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