y ¿por qué no usas Self?
Self es un puntero a memoria donde está instanciada. De hecho todos las variables de tipo TObject son punteros a memoria (y dado que todo hereda de TObject, todos son punteros excepto records, integer y demás tipos de datos simples), así que ya tienes lo que necesitas.
Y si lo que quieres es guardar esas instancias que estás creando en memoria, nada mejor que un TObjectList (de la unidad Contnrs).
Saludos.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|