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


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


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:


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


O.CampoPrivado2


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


TMoldAcceTClase (O).CampoPrivado2


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


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.