Dudas con Hilo en ejecución

[Casimiro Noteví]

No sé que otras cosas harás mal, pero esto sí que está mal:

Código Delphi [-]
FreeAndNil(thread);
thread.Free;

Con FreeAndNil liberas la memoria ocupada y la pones a nulo. Luego con Free ... ya no hay nada que liberar, en teoría.

[danielmj]

Gracias por el apunte casimiro, soy de los que piensa que hay que ser humilde en todos los aspectos de la vida de ahí que sepa reconocer mis errores. Es por eso que os pido consejo sobre tal o cual código, afortunadamente son pocas las otras cosas que hago mal, y aunque la programacion no me vaya a dar de comer (es mas una aficion) el trabajar de 7 de la mañana a 8 de la tarde en un torno paralelo o en la centina de un remolcador, si se me da bien desde hace ya 25 años.
una vez mas gracias por tu comentario lo estudiare y lo pondre en practica a ver que tal.

[Casimiro Noteví]

¿Y trabajas de tornero en la sentina de un remolcador?

[danielmj]

si te fijas en mi anterior texto use "o" para referirme a una cosa u otra, es decir dicho de modo facilmente entendible, a veces el trabajo exige que este 12 horas de pie en el torno y otras que este doblado como un 8 entre tuberias de gasoil, aceite hidraulico etc en la sentina de un barco o en la sala de maquinas de este. Y no sabes como de reventado se llega a casa... pero es lo que hay. La programacion en mi caso es mas una especie de terapia de desconexion del dia a dia y si encima aprendo pues mejor. Saludos.

[Casimiro Noteví]

Sí, es un trabajo duro.

[[nlsgarcia]]

danielmj,

Empezado por danielmj

...La programación en mi caso es mas una especie de terapia de desconexión del día a día y si encima aprendo pues mejor...

Nelson.

[danielmj]

Saludos y vuelta con lo mismo...

He modificado el código como me sugería casimiro (lo que ahora no sé es si le entendí bien), el caso es es que el código queda así...

Código Delphi [-]
try
    if Assigned(WaitThread) then WaitThread.AbortThread;
      if Thread.Waiting then Thread.AbortThread;
        thread.Terminate;
        close
  except
    thread.Free;
  raise
  end;

Añado que esta modificación la hago en base a una discusión en stackoverflow que encontré no hace ni media hora. Dicho esto, cuando pulso sobre "cerrar" el formulario se cierra pero en segundo plano el hilo sigue corriendo, si pulso la "X" de cerrar me tira este error (ver captura). Si vuelvo a pulsar la "X" parar cerrar el formulario "a las bravas" se repite el mismo mensaje de error y ya luego si se cierra todo y sale del programa.

Mensaje de error 1:


Mensaje de error2 (lo muestra si pulso "continue" en el primer error):


Entonces, ¿de que forma se detiene correctamente un hilo que se esta ejecutando en el momento de detenerse?

P.D.: Saludos nelson, me alegra que estes de acuerdo con mi afirmación aunque veces la terapia me crispa los nervios jaja.