Làm thế nào để ẩn một thủ tục được bảo vệ của một đối tượng?

Question

Trong một lớp cơ sở, có một thủ tục được bảo vệ. Khi kế thừa lớp đó, tôi muốn ẩn thủ tục đó khỏi bị sử dụng từ bên ngoài. Tôi đã cố gắng ghi đè nó từ trong số riêng tư và thậm chí các phần riêng tư nghiêm ngặt nhưng vẫn có thể được gọi từ bên ngoài. Lớp gốc không phải của tôi, vì vậy tôi không thể thay đổi cách TOriginal được xác định.

Có thể ẩn quy trình này trong lớp được kế thừa của tôi không? Và làm thế nào?

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

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

Answer 1

phương pháp bảo vệ là đã ẩn từ bên ngoài. (Chủ yếu; xem bên dưới.) Bạn không thể giảm khả năng hiển thị của thành viên lớp học. Nếu lớp cơ sở khai báo phương thức được bảo vệ, thì tất cả các hậu duệ của lớp đó có thể sử dụng phương thức.

---

Trong Delphi, mã khác trong cùng một đơn vị với lớp học có thể truy cập các thành viên được bảo vệ của lớp đó, thậm chí là mã từ các lớp không liên quan. Điều đó đôi khi có thể hữu ích, nhưng thường làm việc xung quanh những thiếu sót thiết kế khác. Nếu bạn có thứ gì đó "thực sự, thực sự" được bảo vệ, bạn có thể bảo vệ nó nghiêm ngặt và sau đó quy tắc truy cập cùng một đơn vị đặc biệt không áp dụng.

Answer 2

Khi tiếp xúc với bạn không thể giấu nó nhưng bạn có thể làm điều này để phát hiện nơi nó được gọi là trong giới hạn cách

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