Más problema padrón observador

[adpa]

Hola
la llamada la hago en la siguiente funcion

Código Delphi [-]
procedure cTienda.pedirVez(c:cConsumidor);
{
DESCRIPCION -> El consumidor pide la vez en la tienda a la que desea ir
 se le asigna su turno.
PRECONDICIÓN -> Lista de tiendas esté creada.
PARAMETROS -> Consumidor que pide la vez
}
begin
     if (c.ClassName = 'cConsumidor') then
     {Mirar si es especial o normal}
     {Es normal}
 begin
 c.setTurno(self.visor.GetTiketN);
        self.visor.SetTiketN(self.visor.GetTiketN+1);
 end
     {Es especial}
     else            
 begin
   c.setTurno(self.visor.GetTiketE);
         self.visor.SetTiketE(self.visor.GetTiketE+1);  
 end;
     self.Attach(c);
end;

c si qué está cargado con los datos del consumidor.

Tengo que reescribir alguna funcion de tObserver en el consumidor.

Muchas Gracias, es muy urgente

[kakarotv5]

Otro en apuros ...

[[maeyanes]]

Bueno, pues yo tampoco veo nada raro en el código...

Todo indica que debería ir bien la cosa...

[[Lepe]]

La clase está bien, la culpa la tendrá este individuo:

Código Delphi [-]
fObservers.Insertar(Observer);

¿puedes mostrar el código de insertar?

PD: Puedes usar FreeAndNil(fObservers) en lugar de estas dos lineas:

Código Delphi [-]
        fObservers.Free;
        fObservers := nil;

pues precisamente hace lo mismo, además de controlar una posible excepción al liberar fobservers, que en tu caso, se quedaría apuntando a memoria residual.

Edito: Lo siento, pero en un foro no hay nada urgente.... a saber cuando voy a conectarme de nuevo .

Saludos