访问Delphi类的严格保护属性？

type
  TMyOrgClass = class
  strict private
    FMyPrivateProp: Integer;
  strict protected
    property MyProtectedProp: Integer read FMyPrivateProp;
  end;

  TMyClassHelper = class helper for TMyOrgClass
  private
    function GetMyProtectedProp: Integer;
  public
    property MyPublicProp: Integer read GetMyProtectedProp;
  end;

function TMyClassHelper.GetMyProtectedProp: Integer;
begin
  Result:= Self.FMyPrivateProp;  // Access the org class with Self
end;

有关课堂助手的更多信息可以在这里找到：should-class-helpers-be-used-in-developing-new-code

更新

从Delphi 10.1柏林开始,使用类助手访问私人或严格的私人会员不行.它被认为是一个编译器错误,并已被更正.仍然允许访问受保护或严格保护的成员与类帮助者.

在上面的例子中,说明了对私有成员的访问.下面显示了访问严格受保护成员的工作示例.

function TMyClassHelper.GetMyProtectedProp: Integer;
begin
  Result:= Self.MyProtectedProp;  // Access strict protected property
end;