delphi - 如何从 Delphi 10.1 Berlin 中的类助手访问私有(private)字段？

Question

我想使用 Gabriel Corneanu 的 jpegex ，jpeg.TJPEGImage 的类帮助器。正在阅读this和this我了解到，除了 Delphi Seattle 之外，您无法再像 jpegex 那样访问私有(private)字段(下面示例中的 FData)。像 David Heffernan 提议的那样研究 VMT 远远超出了我的能力范围。有没有更简单的方法来完成这个任务？

   type
  // helper to access TJPEGData fields
  TJPEGDataHelper = class helper for TJPEGData
    function  Data: TCustomMemoryStream; inline;
    procedure SetData(D: TCustomMemoryStream);
    procedure SetSize(W,H: integer);
  end;

// TJPEGDataHelper
function TJPEGDataHelper.Data: TCustomMemoryStream;
begin
  Result := self.FData;
end;

Answer 1

今天，我使用 with 语句找到了解决此错误的巧妙方法。

function TValueHelper.GetAsInteger: Integer;
begin
  with Self do begin
    Result := FData.FAsSLong;
  end;
end;

此外，内河码头在 build 围墙来保护私有(private)部位方面做得很好，这可能就是他们将其命名为 10.1 柏林的原因。