Ver Mensaje Individual
  #1  
Antiguo 25-01-2006
bismarck_sierra bismarck_sierra is offline
Miembro
 
Registrado: ene 2004
Ubicación: Morelia, Michoacán, México
Posts: 70
Reputación: 23
bismarck_sierra Va por buen camino
No ejecutar código de la clase hijo

Tengo el siguiente caso

Código Delphi [-]
procedure TClasePadre.Metodo;
begin
  // Algunas sentencias SQL y otras operaciones

  if(Propiedad = 'Algo') then
  begin
    // En este caso no quiero que se ejecute el código del hijo
    exit; 
  end;
end;

procedure TClaseHijo.Metodo;
begin
  inherited;
  // Sentencias SQL
  // Demás cosas
end;
Cuando creo un hijo de la clase, y sobreescribo este procedimiento quisiera que en algunos casos no ejecutar el codigo que esta en la clase hijo.
¿Como puedo hacer esto?.

Por el momento solucioné preguntando por el valor de la propiedad en la clase hijo, pero quisiera saber si se puede hacer algo desde la clase padre.

Código Delphi [-]
procedure TClaseHijo.Metodo;
begin
  inherited;

  if(Propiedad = 'Algo) then
    exit;

  // Sentencias SQL
  // Demás cosas
end;

Saludos
Bismarck
Responder Con Cita