Hola tod@s:
Tengo una lista genérica:
Código Delphi
[-]
cLista = class(tList)
private
Incremento : Integer;
Elementos : Integer;
Primero : array of tObject;
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