FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Crear una clase descendiente de TInifile
Hola a todos
Estoy intentando crear una clase descendiente de TIniFile, con la idea de tener una unidad para gestionar la configuración de laS aplicaciones de tal forma que si se le pasa alguna clase descendiente de un TINIFILE, trabaje con esta clase, en caso de no declara nada que trabaje con la clase general de TINIFile. Este es el código para la unidad de configs.pas
Y la forma de utilizarlo en cualquier parte del programa:
y así es como redefino una nueva clase descendiente de TInifile
Y aquí es donde viene el problema, tal como esta todo esto declarado, el código del constructor de la clase descendiente (TMyIniFile.Create) no se ejecuta al crear la instancia del objeto desde la variable ClassIniFile y pasa directamente a ejecutar el constructor de la clase padre (TiniFile.create). Por el contrario si en el procedimiento config lo pusiera de esta forma, entonces si que funciona perfectamente:
Pero de esta forma no quiero ponerlo, por que así estaría forzado a tener que añadir siempre en el uses de la unidad configs la unidad que contiene la clase descendiente, pudiendo estar unas veces incluida en el proyecto y otras veces no. Me explico mas, mi idea es si en una determinada aplicación que utiliza la unidad CONFIGS le agrego la otra unidad con la clase descendiente, entonces esa aplicación usara esa clase descendiente para gestionar como y donde guardar la configuración, pero si en otra aplicación distinta que también usa la misma unidad CONFIGS, no tiene agregada ninguna unidad descendiente de TINIFILE, entonces se pretende que utilice la clase genérica de TINIFILE. No se si alguien me puede arrojar luz sobre por que no se ejecuta la clase constructora descendiente al llamarla desde la variable que contiene la clase descendiente. Gracias por vuestro tiempo y saludos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Crear objetos mediante su clase | coso | Trucos | 0 | 05-12-2008 23:37:15 |
duda al crear un descendiente de tpanel | hibero | OOP | 1 | 23-05-2008 21:07:52 |
problema crear dll con clase | rzf1983 | Varios | 9 | 08-11-2007 22:56:52 |
crear un evento en una clase? | chelox | OOP | 4 | 06-06-2007 20:14:20 |
Crear clase. Basico de POO. | DarkByte | OOP | 17 | 24-08-2005 17:37:21 |
|