为什么我能够从类外部访问私有类变量,我该如何防止它？

Question

我正在使用此代码

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;

我想创建一个实例计数器,并将一些类变量设置为私有.问题很简单,看看这张图:

正如您在红色框中看到的那样,我声明为私有的类变量.我不希望它们出现.我只希望公共类函数能够显示计数器.我能做什么？

Answer 1

如文档中所述,private可以从定义该类的单元内的任何位置访问类的部分.为了避免这种情况,并从同一单元中的其他地方取消对这些私有类成员的访问,请strict private改为使用.

当然,如果您的应用程序的设计需要它,您也可以将此类移动到另一个单元,这反过来也会产生您正在寻找的效果.