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

Desde el ancestro no es posible controlar el comportamiento de las clases descendientes de la forma que lo proponés. La solución de establecer alguna propiedad que los descendientes puedan observar y en base a eso decidan si ejecutar su código o no es la mas atinada, a mi forma de ver.

Hasta luego.

;)