delphi – 为什么我可以从课外访问私有类变量,如何防止它？

我正在使用这个代码

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;

我想做一个实例计数器,我将一些类变量设置为私有的.这个问题很简单,只要看看这张照片：

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

解决方法

如 documentation中所述,A类的私有部分可以从定义该类的单元中的任何位置访问.为了避免这种情况,并从同一单位的其他地方消除对这些私人类成员的访问权限,请改用严格的私有组件.

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

原文地址：https://www.jb51.cc/delphi/102577.html