Error al cargar formularios con TFrm_name.Create(self)

[[AgustinOrtu]]

Consejo de amigo: No uses el with. Te aviso ahora con tiempo antes de que vayas por la mitad de tu aplicacion

[[ElKurgan]]

Creo que el problema del escenario 1 se explica por si mismo:

Código Delphi [-]
with TForm2.Create(Self) do
  try
    showModal;
  finally
    Free;
end;

Aquí etás creando un objeto de la clase TForm2, pero ¿Es la variable Form2? Yo creo que no, sino que es una creada al vuelo por Delphi.

En los otros escenarios no te da porque al ser formularios "Autocreate"... ¡¡¡ La variable Form2 se está creando al vuelo !!!

Asi debería funcionar:

Código Delphi [-]
If not Assigned(Form2) then
  Form2 := TForm2.Create(Self);
try
  Form2.showModal;
finally
    Form2.Free;
end;

Saludos

[olbeup]

Como dice, ElKurgan

El error es porque estas creando la clase TFrom2 y TFrom3 pero no el objecto de la variable que es Form2 o Form3.

Estas creando en memoria la clase de TFrom2 o TFrom3 pero el nombre del objecto no es Form2 o Form3, es uno que delphi le ha dado por defecto, como por ejemplo, Form2_1 o Form3_1, pero estos objectos que ha creado delphi no lo puedes utilizar porque no existen, sólo es interno del TFrom2 o TFrom3 al crear su clase.

Yo utilizo mucho, pero mucho los with, pero si estas empezando con el with tienes que entender su funcionamento, si no sabe como es su comportamiento, te recomiendo que lo utilices poco a poco, amenos que sepas como funciona.

Un saludo.

[theheriko]

Empezado por olbeup

Como dice, ElKurgan

El error es porque estas creando la clase TFrom2 y TFrom3 pero no el objecto de la variable que es Form2 o Form3.

Estas creando en memoria la clase de TFrom2 o TFrom3 pero el nombre del objecto no es Form2 o Form3, es uno que delphi le ha dado por defecto, como por ejemplo, Form2_1 o Form3_1, pero estos objectos que ha creado delphi no lo puedes utilizar porque no existen, sólo es interno del TFrom2 o TFrom3 al crear su clase.

Yo utilizo mucho, pero mucho los with, pero si estas empezando con el with tienes que entender su funcionamento, si no sabe como es su comportamiento, te recomiendo que lo utilices poco a poco, amenos que sepas como funciona.

Un saludo.

Nuestro amigo ElKurgan, lo dijo con código y tú con palabras y también te agradezco por el tiempo. Ahora lo entiendo.

Respecto a los with, no leí documentación al respecto. Pero deduje que se usa para simplificar, ya me documentaré más,
Muchas gracias.

[[ElKurgan]]

Efectivamente, el with es muy utilizado para simplificar. Pero hay que tener cuidado con su uso.

Por ejemplo, si sabes que una porción de código no es propensa a fallos lo puedes usar sin problemas. Pero como tengas que depurar ese trozo para ver lo que está pasando, la ayuda del depurador no sabe resolver las variables que están dentro de dicho with.

Aunque hay trucos para que funcione, es mejor no usarlo cuando no tengas las cosas muy claras

Saludos

[theheriko]

Empezado por ElKurgan

Efectivamente, el with es muy utilizado para simplificar. Pero hay que tener cuidado con su uso.

Por ejemplo, si sabes que una porción de código no es propensa a fallos lo puedes usar sin problemas. Pero como tengas que depurar ese trozo para ver lo que está pasando, la ayuda del depurador no sabe resolver las variables que están dentro de dicho with.

Aunque hay trucos para que funcione, es mejor no usarlo cuando no tengas las cosas muy claras

Saludos

A veces me lanza errores, y no muestra el lugar específico. Se me complica un poquito encontrando el porque, no se si sea por ello, para que correr riesgos. Además si me lo recomienda un veterano, pues claro que lo hago.

Gracias ElKurgan!

[theheriko]

Empezado por ElKurgan

Asi debería funcionar:

Código Delphi [-]
If not Assigned(Form2) then
  Form2 := TForm2.Create(Self);
try
  Form2.showModal;
finally
    Form2.Free;
end;

Saludos

Si lo explicas de esa forma tan clara, es cómo para no olvidarlo nunca jamas. Si leí en otros post del foro hablaban de hacer referencia a variables que no existen. Se que me falta mucho por leer y tengo tanto que aprender.
Muchas gracias, no sabes cuanto te lo agradezco.
Gracias por tu tiempo.