Más problema padrón observador
 

Hola:
Tengo el siguiente sujeto y observador declarado.

Código Delphi [-]
type
TObserver  = CLASS
   public
    procedure Update(const Subject: TObject); virtual; abstract;
  end;
  TSubject = class
  private
    fController: TObject;
    fObservers: cLista;
  public
    constructor Create(Controller: TObject);overload;
    procedure Attach(Observer: TObserver);
    procedure Detach(Observer: TObserver);
    procedure Notify;
  end;

implementation
constructor TSubject.Create(Controller: TObject);
  begin
    inherited Create;
    fController := Controller;
  end;
  procedure TSubject.Attach(Observer: TObserver);
  begin
    if (fObservers = nil) then
      fObservers := cLista.Create(5);
    fObservers.Insertar(Observer);
  end;
  procedure TSubject.Detach(Observer: TObserver);
  begin
    if fObservers <> nil then
    begin
      fObservers.Remove(Observer);
      if (fObservers.Longitud) = 0 then
      begin
        fObservers.Free;
        fObservers := nil;
      end;
    end;
  end;
  procedure TSubject.Notify;
  var
    i: Integer;
  begin
    if (fObservers <> nil) then
      for i := 0 to Pred(fObservers.Longitud) do
        TObserver(fObservers[i]).Update(fController);
  end;

end.

El objeto consumidor hereda de tObserver y tienda de tSubject.
Pero cuando hago el attach
self.Attach(c);
dentro de procedure TSubject.Attach(Observer: TObserver); la variable observer
nil por lo tanto no me inserta.
¿Como puedo solucionarlo? ¿Tengo que redefinir attach en algún sitio o añadirle algo más a TObserver.

Muchas Gracias,

No comprendo muy bien el planteamiento. Dices que Observer = nil cuando usas el procedimiento TSubject.Attach(Observer)???. No he examinado a fondo el código pero me pareció que estaba bien implementado, asi que pienso que el problema esta en el contexto en el que llamas o usas la función Subject.Attach(Observer) y no en la declaración de la clase, si pudieses poner un poco de ese código donde haces esa llamada...

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

Otro en apuros ...

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

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

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