¿Cómo ocultar un procedimiento protegido de un objeto?

Question

En una clase base, existe un procedimiento protegido. Al heredar esa clase, quiero ocultar que ese procedimiento no se use desde el exterior. Traté de sobreescribirlo desde las privadas e incluso secciones privadas estrictas, pero todavía se puede llamar desde el exterior. La clase Original no es mía, así que no puedo cambiar cómo se define TOriginal.

¿Es posible ocultar este procedimiento en mi clase heredada? ¿Y cómo?

type 
    TOriginal = class(TObject) 
    protected 
    procedure SomeProc; 
    end; 

    TNew = class(TOriginal) 
    strict private 
    procedure SomeProc; override; 
    end; 

Answer 1

métodos protegidas son ya oculta desde el exterior. (En su mayoría; consulte más abajo.) No puede reducir la visibilidad de un miembro de la clase. Si la clase base declaró el método protegido, todos los descendientes de esa clase pueden usar el método.

---

En Delphi, otro tipo de código dentro de la misma unidad como clase pueden tener acceso los miembros protegidos de esa clase, incluso el código de clases no relacionadas. Eso puede ser útil a veces, pero generalmente para evitar otras deficiencias de diseño. Si tiene algo que "realmente, realmente" se supone que está protegido, puede hacerlo estricto protegido, y luego la regla de acceso a la misma unidad especial no se aplica.

Answer 2

Una vez expuesto no se puede ocultar, pero se puede hacer esto al lugar donde se le llama en modo alguno limitar

TOriginalClass = class 
public 
    procedure Foo; 
end; 

TNewClass = class(TOriginalClass) 
public 
    procedure Foo; reintroduce; 
end; 

implementation 

procedure TNewClass.Foo; 
begin 
    Assert(False, 'Do not call Foo from this class'); 
    inherited Foo; 
end; 

var Obj: TNewClass; 
Obj := TNewClass.Create; 
Obj.Foo; // get assert message 

Will not get Assert error if declared as TOriginalClass 
var Obj: TOriginalClass; 
Obj := TNewClass.Create; 
Obj.Foo; // Never get the assert message