delphi – 为什么我可以从课外访问私有类变量,如何防止它?
发布时间:2020-12-15 03:34:07 所属栏目:大数据 来源:网络整理
导读:我正在使用这个代码 type TSomeClass = class(TOBject) private class var InstanceCount : integer; class var TotalInstanceCount : integer; public class function instances: integer; class function totalInstances: integer; constructor Create; de
我正在使用这个代码
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类的私有部分可以从定义该类的单元中的任何位置访问.为了避免这种情况,并从同一单位的其他地方消除对这些私人类成员的访问权限,请改用严格的私有组件.
当然,如果您的应用程序的设计需要它,您也可以将此类移到另一个单元,这反过来也会产生您要查找的效果. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |