Tại sao tôi có thể truy cập các biến lớp riêng tư từ bên ngoài lớp học, và làm cách nào để ngăn chặn nó?

Question

Tôi đang sử dụng mã này

type 
TSomeClass = class(TOBject) 
private 
    class var InstanceCount : integer; 
    class var TotalInstanceCount : integer; 
public 
    class function instances: integer; 
    class function totalInstances: integer; 
    constructor Create; 
    destructor Destroy; 
end; 

constructor TSomeClass.Create; 
begin 
inherited Create; 
Inc(InstanceCount); 
Inc(TotalInstanceCount); 
end; 

destructor TSomeClass.Destroy; 
begin 
Dec(InstanceCount); 
inherited; 
end; 

class function TSomeClass.instances; 
begin 
    Result := InstanceCount; 
end; 

class function TSomeClass.totalInstances; 
begin 
    Result := TotalInstanceCount; 
end; 

Tôi muốn làm một quầy dụ và tôi đặt một số biến lớp học như tư nhân. Câu hỏi đặt ra là rất dễ dàng, chỉ cần nhìn vào hình ảnh này:

Như bạn có thể nhìn thấy trong hộp màu đỏ, có các biến lớp mà tôi đã khai báo là tư nhân. Tôi không muốn họ xuất hiện. Tôi chỉ muốn các hàm lớp công khai có thể hiển thị các quầy. Tôi có thể làm gì?

Answer 1

Như được giải thích trong documentation, phần của lớp A private có thể được truy cập từ bất kỳ đâu trong đơn vị mà lớp đó được xác định. Để tránh điều này và loại bỏ quyền truy cập vào các thành viên lớp học tư nhân này từ nơi khác trong cùng một đơn vị, hãy sử dụng strict private để thay thế.

Tất nhiên, nếu thiết kế ứng dụng của bạn gọi, bạn cũng có thể di chuyển lớp này sang đơn vị khác, do đó sẽ tạo ra hiệu ứng bạn đang tìm kiếm.