Como obtener las variables de un objeto

[TEO127]

Ves Dec que sucedio lo que yo dije, no queria caer en la discucion de quien debe o no liberar la memoria (en lo cual estamos totalmente de acuerdo) y porque es necesario un recolector de basura. ahora estoy obligado a explicar mas en detalle lo que intento hacer, pretendo liberar de la memoria variables u objetos Activex que estan declarados dentro de un formulario o un objeto cualquiera. y tu me diras pero no se supone que estos Activex se liberan por si solos o con un metodo dispose? y yo te dire que lo que sucede es que estos activex generan un memory Leak ya que no estan muy bien implementados o carecen de un dispose y encontre una forma de liberarlos, pero quiero automatizar el proceso y no estar referenciandolos uno a uno, es por eso que necesito recorrer cualquier objeto y comprobar si hay en el una variable u objeto de tipo "activex" y si es asi lo libero.

Saludos.

[Neftali [Germán.Estévez]]

El truco 42 se titula: "Mostrar las propiedades de uncomponente en Runtime", aunque vale perfectamente para cualquier otro objeto.
Usa RTTI que es la única forma de hacerlo sin programar nada especial (NOTA1); Lo más importante para hacerlo así es que las propiedades que deseas recorrer sean published.

En el caso que has puesto:

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

Habría que modificarlo para que fuera así:

Código Delphi [-]
TFormExtb :  TClass  = (TForm)
.
.
Private
  _d : Tipox;//-> esta variable quiero capturar 
  _e : Tipoy;//-> esta variable quiero capturar
  _f  : Tipoz;//-> esta variable quiero capturar
Published
  property d:Tipox read _d write _d;
  property e:Tipoy read _e write _e;
  property f:Tipoz read _f write _f;
end;

Aunque habría que saber más de lo que necesitas hacer.
(NOTA1) La otra opción, si consigues que todas las clases deriven de una clase base, es programar en la clase Base una lista de variables/propiedades y que cada una de las clases derivadas añada las suyas en el Create (por ejemplo). En la clase basedeberás programar el método que recorra la lista y te las devuelve (no se si me explico...)