Как скрыть защищенную процедуру объекта?

Question

В одном базовом классе есть защищенный метод. При наследовании этого класса я хочу скрыть эту процедуру от использования извне. Я попробовал переопределить его в пределах частных и даже строгих частных секций, но его все еще можно вызвать извне. Класс Original не мой, поэтому я не могу изменить способ определения TOriginal.

Можно ли скрыть эту процедуру в моем унаследованном классе? И как?

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

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

Answer 1

Защищенные методы уже скрыты от внешней стороны. (В основном, см. Ниже.) Вы не можете уменьшить видимость члена класса. Если базовый класс объявил метод защищенным, то все потомки этого класса могут использовать этот метод.

---

В Delphi, другой код в той же единице, как класс, может получить доступ к защищенным членам данного класса и даже код из несвязанных классов. Иногда это может быть полезно, но обычно для работы с другими недостатками дизайна. Если у вас есть что-то, что «действительно, действительно» должно быть защищено, вы можете сделать его строгим, а затем специальное правило доступа одного и того же устройства не применяется.

Answer 2

После того, как подвергается вы не можете скрыть это, но вы можете сделать это на месте, где его называют предельным образом

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