Problemas con herencia

[adpa]

Hola tod@s:

Tengo una lista genérica:

Código Delphi [-]
cLista = class(tList)
                 private
                        Incremento     : Integer; { número de elementos a incrementar el array }
                        Elementos      : Integer;
                        Primero        : array of tObject;  { lista sobre array dinámico }
                        procedure   IncrementarArray( Cantidad : integer);
                        function    Obtener ( Posicion : integer): tObject;
                        procedure   Actualizar ( Posicion : integer; Nuevo:tObject);
                  public
                       constructor Create (Incremento : Integer);
                       destructor  Destroy;override;
                       procedure   Insertar( Informacion: tObject);
                       procedure   Eliminar( Posicion : integer);
                       function    EsVacia : boolean;
                       function    Longitud : Integer;
                       property    Objetos[ Indice : Integer]: tObject read Obtener write Actualizar;
                end;

y otra que hereda de ella
cListaConsumidores = class (cLista)

y cuando intento hacer la siguiente operación
consumidor:=self.salaOcio.Objetos[1];
----Me dice que no se puede convertir de tObject a consumidor;

cConsumidor = CLASS(TObserver)

TObserver = class
public
procedure Update(const Subject: TObject); virtual; abstract;
end;

He probado ha hacer que TObserver herede de tObject pero me da el mismo error.

Hecharme una mano. Gracias

[jachguate]

Hola. He editado tu mensaje para añadir la etiqueta delphi, que es de uso obligatorio al publicar trozos de código. Si no sabes como se usa, referite a la ayuda de la etiqueta code (vínculo en mi firma) o editá tu mensaje para ver lo que yo he añadido.

Con respecto de tu pregunta, a mi no me ha quedado claro en que parte del código es donde decís que te da problema, ni si es en tiempo de ejecución o de diseño.

Hasta luego.

[roman]

Código Delphi [-]
consumidor := cConsumidor(self.salaOcio.Objetos[1]);

Por cierto, te recomendaría ajustarte a los estándares: las clases y otro tipos de datos se prefijan con T, no con C.

// Saludos

[adpa]

Hola, ya he tomado nota como se pone lo del código delphi.
Román una pregunta cConsumidor(....) hago una conversión de tipo verdad?. ¿Para ello tiene que heredar de tObject.?

Muchas Gracias.

[jachguate]

En delphi, todas las clases heredan de TObject.

[[Al González]]

¡Hola a todos!

Adpa: Te invito a que nos plantees tu caso diciéndonos cuál es el objetivo de las clases que has definido y dándonos otros detalles de contexto. Encuentro un tanto rebuscado el código que has expuesto.

Gracias.

Al González.