Como obtener las variables de un objeto

[TEO127]

Hola amigos mi consulta es la siguiente. dado un objeto cualquiera
ej :

Código Delphi [-]
type
MyObjeto = Class(TObject)

Private
_Data : TDataset;
_Serial: Tlist;
_Floop: TObject;
Public
function   Extv : Double;
Procedure opc1;
Procedure opc2;
End;

Como puedo obtener una referencia a las variables declaradas en este

algo asi como

Var
M : MyObject;
..
..
for i:=0 M.Variables.Count-1 do
...
.
.


Ando en busca de un simil de components o controls, pero que me liste las variables contenidas en mi objeto (no los componentes ni los controles).

Cualquier sugerencia se agradecera.

Saludos.

[dec]

Hola,

Hasta donde yo llego es posible acceder a las propiedades de un objeto siempre que estas sean públicas; es posible enumerar sus propiedades, "recorrerlas", acceder a sus valores e incluso cambiarlos, pero, tratando con variables... no se me ocurre la forma.

Además creo que lo que planteas es cuando menos raro. Quiero decir que es posible que existan otras soluciones para lo que quieres conseguir. Si lo explicas tal vez alguien pueda echarte un cable.

[TEO127]

Dec gracias por tomarte la molestia de responder a mi incognita lo que puedo agregar a mi consulta es lo siguiente "dado un objeto cualquiera, recorrer sus variables una a una" .
Tengo una funcion que realiza un proceso sobre las variables (dependiendo de su tipo) de los objetos , pero cada objeto que proceso aunque decienden de la misma clase , en su implementacion cada uno tiene sus propias variables.

Ejemplo :

Código Delphi [-]
type
TFormExta :  TClass  = (TForm)
.
.
.
Private
.
.
Public
a : Tipo1;//-> esta variable quiero capturar
b : Tipo2;//-> esta variable quiero capturar
c : Tipo3;//-> esta variable quiero capturar

end;

TFormExtb :  TClass  = (TForm)
.
.
.
Private
.
.
Public
d : Tipox;//-> esta variable quiero capturar
e : Tipoy;//-> esta variable quiero capturar
 f  : Tipoz;//-> esta variable quiero capturar
end;


MyProc (Obj :TForm) 
Begin
¡¡¡¡¡¡¡¡aqui tengo que recorrer el Obj y analizar cada variable!!!!!!!!!!!
.
.
.
End;

Var
A : TFormExta;
B : TFormExtb; 
C : TFormExtb; 
Begin
MyProc (A); 
MyProc (B); 
MyProc (C); 
End.

Espero haber aclarado mas el asunto.
Saludos

[dec]

Hola,

Pues no sé que se pueda acceder a las variables de un objeto, aun siendo estas públicas. Lo que sí sé es que puede accederse a las propiedades de un objeto, mediante Run-time Type information. Tal vez deberías plantearte añadir propiedades a tus objetos. O tal vez algún otro compañero sepa darte una respuesta mejor.

[TEO127]

Gracias por tus comentarios DEC, ya habia intentado por el lado de la RTTI pero no he logrado encontrar la solucion.

Espero que a alguien se le ocurra algo.

Saludos

[roman]

Con RTTI me parece que sólo podrás acceder a la propiedades publicadas (published). Por curiosidad, ¿qué es lo que quieres hacer? Vamos, que no es usual querer hacer algo así en un lenguaje como delphi.

// Saludos