使用虚拟类访问私有字段

我有以下声明:

Type

  TmyObjA = class
  private
    FieldA: integer;
    FieldB: integer;
  public
    ...
  end;

  TmyObjB = class(TmyObjA)
  private
    FieldC: integer;
    FieldD: integer;
  public
    ...
  end;

  var MyObjB = TmyObjB 

我现在想访问 私人领域 FieldA 属于 MyObjB . 我喜欢这样:

  TmyObjAPrivateAccess = class
  public
    FieldA: integer;
    FieldB: integer;
  end;

  TmyObjAPrivateAccess(MyObjB).FieldA := something;

  TmyObjBPrivateAccess = class
  public
    FieldA: integer;
    FieldB: integer;
    FieldC: integer;
    FieldD: integer;
  end;

  TmyObjBPrivateAccess(MyObjB).FieldA := something;

编辑/注释

关于我为什么需要访问私有成员:我想要访问私有成员的类是 TTexture :

  TTexture = class(TInterfacedPersistent, ITextureAccess)
  private
    FWidth: Integer;
    FHeight: Integer;
    FPixelFormat: TPixelFormat;
    FHandle: TTextureHandle;
    FStyle: TTextureStyles;
    FMagFilter: TTextureFilter;
    FMinFilter: TTextureFilter;
    FTextureScale: Single;
    FRequireInitializeAfterLost: Boolean;
    FBits: Pointer;
    FContextLostId: Integer;
    FContextResetId: Integer;
  protected
  public
    property BytesPerPixel: Integer read GetBytesPerPixel;
    property MinFilter: TTextureFilter read FMinFilter write SetMinFilter;
    property MagFilter: TTextureFilter read FMagFilter write SetMagFilter;
    property PixelFormat: TPixelFormat read FPixelFormat write SetPixelFormat;
    property TextureScale: Single read FTextureScale; // hi resolution mode
    property Style: TTextureStyles read FStyle write SetStyle;
    property Width: Integer read FWidth write SetWidth;
    property Height: Integer read FHeight write SetHeight;
    property Handle: TTextureHandle read FHandle;
  end;

这是我的 TmyObjA

然后我将这个类更新为

TALPlanarTexture = class(TTexture)
  private
    FSecondTexture: TTexture;
    FThirdTexture: TTexture;
    FFormat: TALTextureFormat;
  protected
  ....
  end;

TmyObjB TALBiPlanarTexture = class(TALTexture) 等这就是为什么我只想要一个 通道 为他们所有人上课:

  {************************}
  {$IF CompilerVersion > 32} // tokyo
    {$MESSAGE WARN 'Check if FMX.Types3D.TTexture still has the exact same fields and adjust the IFDEF'}
  {$ENDIF}
  TALTextureAccessPrivate = class(TInterfacedPersistent)
  public
    FWidth: Integer;
    FHeight: Integer;
    FPixelFormat: TPixelFormat;
    FHandle: TTextureHandle;
    FStyle: TTextureStyles;
    FMagFilter: TTextureFilter;
    FMinFilter: TTextureFilter;
    FTextureScale: Single;  
    FRequireInitializeAfterLost: Boolean;
    FBits: Pointer;
    FContextLostId: Integer;
    FContextResetId: Integer;
  protected
  public
  end;

TTExture ? 纹理 是一个由所有OpenGL delphi框架使用的非常简单的类。所以替换这个类意味着。。。我的意思是重新绘制所有openGL firemonkey框架:)这项工作相当复杂,但我同意它有可能 纯粹主义者 不想访问私人成员的人。

我有另一个框架(视频播放器),它在每个视频帧上都给了我一个带有/高度和比例的openGL纹理ID。因此,对于每个新的帧事件,我需要更新 纹理 加上 With height 并将其发送到canvas.drawTexture(仅接受 纹理 )

有没有办法在每一帧上进行更新 具有给定值的对象 Handle / width / 高度 和 scale ? 简单回答:不!是的,他们是一种方式,但我发现更多 hazardous 而不是直接访问私人成员。这种方法包括使用 ITextureAccess setwith 和 setheight 这将最终确定纹理,然后只有在设置回手柄等。。。

:)