¡¿Breakpoint cuelga aplicación?!

[gabrielkc]

Volviendo al inicio del hilo.

Form1.SetAtrib.... no existe.

form1 estoy suponiendo que es una instancia de una clase TForm..... ,lo que me parece extraño es que no te marque error. SetAttrib ( con doble T) lo he usado para cambiar atributos de archivos y alguna vez en OLE.


Que hace la funcion o procedimiento SetAttrib y attrib que valor recibe??

[[Lepe]]

Esto me dá que pensar... y mucho:

Código Delphi [-]
Form1:=TForm1.Create(Form1);

Si Form1 no está creado, es equivalente a poner:

Código Delphi [-]
Form1:=TForm1.Create(nil);

Así que tú, en algún momento tendrás que liberar a Form1 haciendo un .Free.

Si picas por segunda vez en el botón, la cosa se complica más:
- Si no has usado FreeAndNil(Form1), es muy probable que Form1 tenga el valor de la antigua ejecución, por lo que jamás se destruirá de memoria (se quedará en el limbo, como se suele decir).
- Si has usado FreeAndNil (o Form1.Free; Form1 := nil), entonces estamos en el primer caso que he comentado arriba.

El hecho de que el programa se interrumpa al situar un BreakPoint, supongo que viene porque el depurador intenta analizar el valor de todas las variables y al tener valores inconsistentes o referencias circulares, se vuelve un poco loco.

El problema viene por la creación y destrucción del "Form1" en tu código, sería bueno que dijeras si liberas Form1, cuando, donde y como.

Si dices como debe funcionar el programa (para qué sirve lo que estas haciendo) y demás... muchísimo mejor.

Saludos

[gabrielkc]

Cierto, no me habia fijado.

Generalmente no es necesario que las formas tengan un dueño, probablemente cambiando tu sentencia a

Form1:=TForm1.Create(nil);

puedas evitarte, si no en este caso si posteriormente, muchos problemas dificiles de encontrar

[[Lepe]]

Empezado por gabrielkc

Generalmente no es necesario que las formas tengan un dueño,

Depende del estilo de programación. Un Form no es más que otro control y en muchas ocasiones el dueño suele ser el objeto Application.

Saludos.

[gabrielkc]

Empezado por Lepe

Depende del estilo de programación. Un Form no es más que otro control y en muchas ocasiones el dueño suele ser el objeto Application.

Saludos.

Exactamente por eso subraye la palabra generalmente.

Volviendo al hilo.
Tienes algún procedimiento en el Create de la forma (form1)??

Alguna vez tuve un problema parecido porque utilizaba en un create una instancia de un TStringList sin haberlo creado.

Recuerda.........SIEMPRE es culpa de el programador en cuanto a problemas de logica se refiere. Ese parece ser uno de esos errores de lógica.

[gabrielkc]

y al principio falto pregutar........... que pasa cuando presionas F7???

[senda]

Empezado por gabrielkc

Tienes algún procedimiento en el Create de la forma (form1)??

Alguna vez tuve un problema parecido porque utilizaba en un create una instancia de un TStringList sin haberlo creado.

No he implementado ningún create, utilizo el de por defecto.

Empezado por gabrielkc

y al principio falto pregutar........... que pasa cuando presionas F7???

Tampoco, es como si Delphi dejase de "escuchar" al teclado. Únicamente, tras matar la aplicación me responde:

Debugger fatal error during process reset: 'Unable to terminate process: Acceso denegado'. Please save your work and restart Delphi

Empezado por gabrielkc

Recuerda.........SIEMPRE es culpa de el programador en cuanto a problemas de logica se refiere. Ese parece ser uno de esos errores de lógica.

Cierto, pero ya no sé qué más probar. Acabo de crear un botón tonto que únicamente cambia el caption de una etiqueta, pues bien:
- Si lo ejecuto sin breakpoint, todo funciona.
- En cuanto pongo el breakpoint en la instruccion

Label1.Caption := 'hola';

, la aplicación deja de responder.

En fin, dudo q sea una solución pero voy a reinstalar Delphi, por si las moscas.

[gabrielkc]

Pues pudiera ser la solución....el debbuger al parecer se fastidió .

Pero ten en cuenta que los de Borland tienen, o tenian cuando desarrollaban Delphi, de dejar lleno de basura el registro de windows.

Alguna vez ví una utilería que limpiaba el registro de windows de la basura que deja delphi. Te recomiendo que la busques y tras desinstalar le des una pasada.

[senda]

Empezado por gabrielkc

Form1.SetAtrib.... no existe.

Lo siento, se me olvidó responder a este tema. SetAtrib es un método creado por mí el cual asigna ':=' (aunque dudo que esté bien metodológicamente hablando, tal vez sea una burrada) una lista a un atributo del mismo tipo dentro del formulario.

Empezado por gabrielkc

form1 estoy suponiendo que es una instancia de una clase TForm.....

TForm1 = class(TForm)

Empezado por Lepe

Así que tú, en algún momento tendrás que liberar a Form1 haciendo un .Free.

Si picas por segunda vez en el botón, la cosa se complica más:
- Si no has usado FreeAndNil(Form1), es muy probable que Form1 tenga el valor de la antigua ejecución, por lo que jamás se destruirá de memoria (se quedará en el limbo, como se suele decir).
- Si has usado FreeAndNil (o Form1.Free; Form1 := nil), entonces estamos en el primer caso que he comentado arriba.

El hecho de que el programa se interrumpa al situar un BreakPoint, supongo que viene porque el depurador intenta analizar el valor de todas las variables y al tener valores inconsistentes o referencias circulares, se vuelve un poco loco.

El problema viene por la creación y destrucción del "Form1" en tu código, sería bueno que dijeras si liberas Form1, cuando, donde y como.

Si dices como debe funcionar el programa (para qué sirve lo que estas haciendo) y demás... muchísimo mejor.

Realizo ambas instrucciones:

From1.Free;
Form1:=nil;

tras el Form1.ShowModal, es decir, está pensado para que se ejecute el Form1 y cuando se destruya (el usuario pulsa 'x' o un botón de retorno) se ejecutaría la liberación del mismo (las 2 instrucciones previamente especificadas). No sé si importará mucho, pero el breakpoint lo sitúo en el Form1.Create por lo que no llega a destruir el formulario (ni siquiera llega a crearlo, en teoría).

Empezado por Lepe

Si dices como debe funcionar el programa (para qué sirve lo que estas haciendo) y demás... muchísimo mejor.

El programa, en teoría, debe:
1. lanzar este formulario (Form1) para la recogida de datos del usuario
2. ejecutar un algoritmo genético con dichos datos
3. almacenar los resultados en la base de datos
4. volver al formulario de partida (desde donde se crea Form1).

Los pasos 2 y 3 aún están sin implementar, por lo que únicamente debe (Form1) comprobar la corrección de los datos y retornar al formualrio de partida.

Empezado por gabrielkc

Generalmente no es necesario que las formas tengan un dueño, probablemente cambiando tu sentencia a

Form1:=TForm1.Create(nil);

puedas evitarte, si no en este caso si posteriormente, muchos problemas dificiles de encontrar

Ya lo he probado y, desgraciadamente, no aprecio ningún cambio en la ejecución. De todas maneras, gracias no me viene mal saber los buenos hábitos de programación en Delphi.