delphi - derivadas - ¿Cómo uso los ayudantes de clase para acceder a miembros privados estrictos de una clase?

clase padre e hijo en java

Question

Esta es una pregunta de seguimiento a: ¿Cómo ocultar un procedimiento protegido de un objeto?
(Estoy un poco confuso en el concepto de ayudante de clase)

Supongamos que tengo una clase como:

type
TShy = class(TObject)
strict private
procedure TopSecret;
private
procedure DirtyLaundry;
protected
procedure ResistantToChange;
end;

Sé que puedo acceder al método privado si tengo el código fuente al agregar una clase descendiente en la misma unidad.

Tengo 2 preguntas:
- ¿Cómo empleo un ayudante de clase para acceder al miembro strict private ?
- ¿Puedo usar un ayudante de clase en una unidad separada para acceder a miembros privados (estrictos)?

Answer 1

El acceso a miembros private y strict private de una clase con class helpers fue eliminado en Delphi 10.1 Berlín. Consulte Cómo cerrar el Loophole de acceso privado de Class Helpers .

Pero todavía hay una laguna abierta:

unit Shy;
interface
type
TShy = class(TObject)
strict private
procedure TopSecret;
private
procedure DirtyLaundry;
protected
procedure ResistantToChange;
end;
implementation
procedure TShy.DirtyLaundry;
begin
WriteLn(''DirtyLaundry'');
end;
procedure TShy.ResistantToChange;
begin
WriteLn(''ResistantToChange'');
end;
procedure TShy.TopSecret;
begin
WriteLn(''TopSecret'');
end;
end.

Program TestClassHelpers;
{$APPTYPE CONSOLE}
Uses
Shy;
type
TNotShy = class helper for TShy
public
procedure LetMeIn;
end;
procedure TNotShy.LetMeIn;
var
P : procedure of object;
begin
TMethod(P).Code := @TShy.TopSecret;
TMethod(P).Data := Self;
P; // Call TopSecret
TMethod(P).Code := @TShy.DirtyLaundry;
TMethod(P).Data := Self;
P; // Call DirtyLaundry;
Self.ResistantToChange; // Protected access works without problems
end;
var
myObj: TShy;
begin
myObj := TShy.Create;
try
myObj.LetMeIn;
ReadLn;
finally
myObj.Free;
end;
end.

Answer 2

Hasta, e incluyendo Delphi 10.0 Seattle, puedes usar un ayudante de clase para acceder a miembros strict private y strict protected , como este:

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;

Sin embargo, comenzando con Delphi 10.1 Berlin, ¡ esto ya no funciona ! Los ayudantes de clase ya no pueden acceder a miembros strict protected , strict private , strict private o private . Esta "característica" fue en realidad un error de compilación que Embarcadero ya ha corregido en Berlín. Estás fuera de suerte.