Jak ukryć chronioną procedurę obiektu?

Question

W jednej klasie bazowej jest chroniona procedura . Odziedziczyjąc tę ​​klasę, chcę ukryć tę procedurę przed użyciem z zewnątrz. Próbowałem przesłonić go z poziomu prywatnych, a nawet ściśle prywatnych sekcji, ale nadal można go wywoływać z zewnątrz. Klasa Oryginalna nie jest moja, więc nie mogę zmienić jej definicji.

Czy można ukryć tę procedurę w mojej odziedziczonej klasie? I jak?

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

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

Answer 1

Chronione metody są już ukryty z zewnątrz. (Głównie, patrz poniżej.) Nie można zmniejszyć widoczności członka klasy. Jeśli klasa bazowa zadeklarowała, że ​​metoda jest chroniona, wówczas wszyscy jej potomkowie mogą używać tej metody.

---

W Delphi, inny kod w tej samej jednostce jako klasy mogą uzyskać dostęp do chronionych członków tej klasy, nawet kod z niepowiązanych klas. Może się to czasem przydać, ale zwykle pozwala obejść inne niedociągnięcia w projektowaniu. Jeśli masz coś, co "naprawdę, naprawdę" powinno być chronione, możesz go chronić, a następnie nie będzie obowiązywać specjalna reguła dostępu do tego samego urządzenia.

Answer 2

Raz wystawiony nie można go ukryć, ale można to zrobić na miejscu, gdzie jest nazywany w krańcowym sposób

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