这是一个后续问题:
How to hide a protected procedure of an object?
(我对整个类帮助器概念有点模糊)
(我对整个类帮助器概念有点模糊)
type TShy = class(TObject) strict private procedure TopSecret; private procedure DirtyLaundry; protected procedure Resistanttochange; end;
我知道我可以访问私有方法,如果我有源代码通过在同一单元中添加一个派生类。
我有2个问题:
– 如何使用类助手访问严格的私有成员?
– 我可以在单独的单元中使用类辅助程序来访问(严格)私有成员吗?
解决方法
直到,包括Delphi 10.0 Seattle,你可以使用类助手来访问严格的受保护和严格的私有成员,像这样:
unit Shy; interface type TShy = class(TObject) strict private procedure TopSecret; private procedure DirtyLaundry; protected procedure Resistanttochange; end;
unit NotShy; interface uses Shy; type TNotShy = class helper for TShy public procedure LetMeIn; end; implementation procedure TNotShy.LetMeIn; begin Self.TopSecret; Self.DirtyLaundry; Self.Resistanttochange; end; end.
uses ...,Shy,NotShy; procedure TestShy; var Shy: TShy; begin Shy := TShy.Create; Shy.LetMeIn; Shy.Free; end;
然而,从德尔福10.1柏林开始,这不再工作!类助手不能再访问严格受保护的,严格的私人或私人成员。这个“功能”实际上是Embarcadero现在在柏林修复的一个编译器错误。你失去了运气。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。