FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Error al salir de un modal
Buenas
En resumen el problema que me ha surgido es que al salir de un modal, me salta un error y no se por qué. Vamos al meollo del asunto, estoy realizando una app y en un momento dado necesito crear un modal para editar el contenido de un memo. Captura.PNG El problema es que al darle a Ok me salta este error. Captura1.PNG He estado buscando el por qué y no encuentro ninguna solución, el código que uso para salir del modal es este
Y el boton que activa el modal y procesa la información es este otro
Igual es una tonteria pero estoy aprendiendo en Delphi y hay cosas que no entiendo muy bien. Gracias de antemano. Si se necesita más información avisad y os la proporciono. |
#2
|
||||
|
||||
Hola.
De entrada no se ve el lugar donde le asignas a la variable Form2 la instancia de objeto creada con la expresión "TForm2.Create(self)". Por cierto, evita en todo lo posible el uso de With (se convirtió en mala práctica conforme creció la sintaxis de Object Pascal y la disponibilidad de recursos de biblioteca). Si el formulario modal se muestra, quiere decir que en algún punto de tu código, probablemente en el evento OnCreate o algún otro de TForm2, estás realizando la asignación de la nueva instancia de formulario a la variable Form2. Y, por la misma lógica, es probable que al cierre del formulario tengas indicado que éste se destruya. De tal suerte que la sentencia "nameData := Form2.Edit1.Text;" genera la excepción que nos muestras. Puede que Form2 siga apuntando al lugar de memoria que tenía la instancia, pero, por la destrucción, Edit1 se ha puesto en Nil (si no mal recuerdo, la liberación nativa de un derivado de TForm pone en blanco los campos componentes published). Eso explicaría porque la excepción AV es una lectura de la dirección de memoria 00000000, dado que la propiedad Text de la clase TEdit se lee mediante un método virtual; y, siempre que se va a realizar una llamada a un método virtual, Delphi necesita determinar la clase del objeto, cuyo identificador (puntero) se guarda en los primeros bytes de cada instancia. Ya que el objeto Edit1 es Nil, dichos bytes vendrían a ser, erróneamente, los primeros de la memoria RAM, los cuales son inaccesibles para las aplicaciones. Todo lo anterior es una mera hipótesis, a falta de más información. Pero puede llevarnos a la respuesta de lo que está pasando de aquel lado de mi monitor y que sólo tú puedes ver y compartirnos. Así que te toca mover... Al González. |
#3
|
||||
|
||||
Tal como comenta [Al], el problema es que cuando intentas acceder a la variable Form2 no está asignada.
Te explico cómo hemos llegado a esa conclusión (y cómo puedes llegar tú) para que la próxima vez sepas encontrar un error similar. Coloca un Breakpoint en el inicio del procedimiento o en una línea donde el programa llega sin error. Colócate encima desde el editor y pulsa F5, para crear un breakpoint (aparecerá un punto rojo en la línea). Ahora ejecuta el programa con F9 para hacerlo desde el IDE. Cuando llegue a ese punto el programa se parará. A partir de ese punto puedes seguir ejecutando línea a línea con F8. Habrá un momento (en una línea concreta) que te aparecerá el error. Una vez sepas la línea del error, ya es cuestión de centrarse en ella. Si lo ves te será más fácil. La primera ejecución sirve para detectar la línea del error, en la segunda paramos en ese punto y revisamos. Al final del video verás que la variable del Form está a nil, cosa que significa que no está asignada, y por lo tanto te dará error.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. Última edición por Neftali [Germán.Estévez] fecha: 06-02-2019 a las 10:16:08. |
#4
|
||||
|
||||
Yo siguiendo el consejo de [Al] de no usar el with; Dejaría el código así (cambiando lo mínimo). Revísalo y s tienes alguna duda pregunta.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
|||
|
|||
Muchas gracias a todos, poco a poco voy aprendiendo cosas nuevas.
El código ya funciona Un saludo. |
#6
|
||||
|
||||
Ahora que reviso nuevamente el código de DarthGomis, caigo en la cuenta de que él estaba llamando dos veces el método ShowModal. La primera vez con la instancia recién creada (que debido al With no reparé en ella) y la segunda vez con la variable Form2.
Como ha mostrado Germán, la excepción es elevada por la expresión Form2.ShowModal (y no la que mal deduje antes, Form2.Edit1.Text). Y es que ShowModal sí es un método virtual (acabo de revisar y TControl.GetText no ). Puede servir como tip: Básicamente, cada vez que obtenemos en Delphi una excepción Access Violation con un mensaje de texto conteniendo la leyenda Read of address 00000000, es bastante probable que se trate de un intento de llamada a algún método virtual empleando una variable objeto Nil (no asignada). En este caso fue la línea de código "if Form2.ShowModal = mrOk then". Y, en general, cualquier AV de lectura o escritura sobre una dirección de memoria 0 o cercana a 0 (000002A4, por ejemplo), es indicativo de intento de operación con un posible objeto Nil. Celebro que cada vez haya más personas aprendiendo a programar en Delphi. Estupendos foros como Club Delphi estarán ahí para ayudar a resolver tus dudas. Y aspiramos a que tú mismo empieces a ayudar a otros también en poco tiempo. ¡No dejes de participar y compartir! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Error al salir del preview. | vpepen | Impresión | 11 | 15-03-2007 14:10:24 |
Error Formulario forma modal | serhasae | Varios | 5 | 03-04-2006 23:52:00 |
Error al Salir de la Aplicación | camelumi | Varios | 3 | 24-09-2004 16:12:25 |
Error al salir de una aplicacion | el_enigma1 | Conexión con bases de datos | 0 | 05-09-2004 00:49:10 |
Error al salir | cisterpe | Varios | 14 | 28-04-2004 19:20:04 |
|