Acceso a campos privados de un objeto

[dec]

En ocasiones he visto la necesidad de acceder a campos privados de un objeto, ya se para leer o para modificar su valor. Por ejemplo, si tenemos una variable objeto "O" de clase "TClase", donde la parte inicial de la definición de esa clase es

Código Delphi [-]
TClase = Class
  Private
    CampoPrivado1 :Integer;
    CampoPrivado2 :String;
    CampoPrivado3 :Word;
    {...}

Una referencia "O.CampoPrivado2" es inválida si la declaración de la variable O está fuera de la unidad de la clase

Código Delphi [-]
O :TClase

Para forzar el acceso al campo privado "CampoPrivado2" puede crearse lo que denomino Molde de Acceso. Un molde de acceso es la definición de una clase bajo la misma estructura de la clase que tiene el campo privado en cuestión, pero sin especificar la palabra reservada Private:

Código Delphi [-]
TMoldAcceTClase = Class
  CampoPrivado1 :Integer;
  CampoPrivado2 :String;
  { Sólo se requiere especificar hasta el campo que que desea }
End;

Entonces se utiliza la nueva clase para moldear el objeto, así que mientras la expresión

Código Delphi [-]
O.CampoPrivado2

... es inválida para el compilador, la expresión con molde

Código Delphi [-]
TMoldAcceTClase (O).CampoPrivado2

si es válida y con ello puede ya sea leerse o modificarse el valor de ese campo.

Código Delphi [-]
TMoldAcceTClase (O).CampoPrivado2 := 'Otra cosa';

Este tip no es una práctica muy recomendada de programación, pero de vez en cuando saca de apuros.

Espero sirva de ayuda en alguno de sus proyectos.