Error al salir de un modal

[DarthGomis]

Muchas gracias a todos, poco a poco voy aprendiendo cosas nuevas.

El código ya funciona

Un saludo.

[[Al González]]

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 ).

Código Delphi [-]
unit Vcl.Forms;
//...
  TCustomForm = class(TScrollingWinControl)
    //...
    function ShowModal: Integer; virtual;

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.

Empezado por DarthGomis

[...]estoy aprendiendo en Delphi[...]

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!

[amadis]

Hola compañeros

Tengo una duda respecto de los Form Modal.

Si creo un form de la siguiente forma

Código Delphi [-]
 
Form := TFormCreate(nil);
  try
   Form.ShowModal;
  finally Form.Free;
  end;

Luego en el evento ONCLOSE del Form ¿no debo poner Action := caFree; ? no?.
Porque lo hace en el finally?

Consulto porque siempre tenia el action en el OnClose y el Finally y no tenía problemas.

Pero ahora me sale problema de Operacion de Puntero invalido, cuando intento usar If para saber el MODAL RESULT.

Código Delphi [-]
Form := TFormCreate(nil);
  try
   if Form.ShowModal = mrok
     then showmessage('ok');
  finally Form.Free;
  end;

El error es porque estoy haciendo FREE dos veces, una en el ON CLOSE del Form y otra en el finally.

Cual sería el lugar indicado para el FREE ¿ en el finally del Try? o en el ONCLOSE del Form?

[ecfisa]

Hola.

Revisa este artículo: ¿Hay vida después de la muerte?

Saludos

[[kuan-yiu]]

Empezado por ecfisa

Hola.

Revisa este artículo: ¿Hay vida después de la muerte?

Saludos

Interesante

[amadis]

Empezado por ecfisa

Hola.

Revisa este artículo: ¿Hay vida después de la muerte?

Saludos

entonces

Los dos métodos (el uso de caFree y el uso explícito de Free), efectivamente, funcionan bien por separado.
Al mezclar las dos técnicas, el algoritmo sigue funcionando bien, y el objeto se destruye una sola vez.

¿no hay una forma correcta? seria así?