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;b : Tipo2;c : Tipo3;
end;
TFormExtb : TClass = (TForm)
.
.
.
Private
.
.
Public
d : Tipox;e : Tipoy; f : Tipoz;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