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

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;

我想创建一个实例计数器，并将一些类变量设置为private。问题很简单，看看这张图片：

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

Answer 1

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

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