Los hilos se destruyen??

[[Chris]]

"FreeOnTerminate" es una propiedad de la clase TThread, de la cual se implementan todos los Threas es una aplicación, incluyendo los que tu crees. Esta propieda indica si el Thread se destruye automáticamente luego de realizar su trabajo. Si la asignas a "False", entonces tú tendrás que encargarte manualmente de destruir el thread que hayas creado.

El código:

if Terminated then ...

sólo debería ser utilizada dentro del código interno del thread. No debes asignarla manualmente, o sea:

Código Delphi [-]
mi_thread.terminated := True;  // nunca hagas esto, además creo que no podrás.

Para asignar esta propiedad utiliza el procedimiento "Terminate;" en tu thread principal u otro.

Pueda ser que hayas quedado un poco confundido con respecto a lo anterior. Ahora te explico con un ejemplo. Imaginate que has creado un Thread que recorre todos los registros de una tabla, y deseas darle al usuario la posibilidad de cancelar el proceso, pues puede durar mucho. Entonces creas un Thread con el siguiente código para recorrer la tabla:

Código Delphi [-]
procedure TMi_thread.Execute;
begin
while not La_Tabla.Eof do
begin
  // ...
  Next;
end;
end;

Sin embargo, lo que se desea es que el usuario pueda cancelar el proceso en el momento que desee. Si lo hacer con un mi_thread.Free; seguro que tendrás problemas. Entonces los que hacemos es verificar la propiedad "Terminated" antes de ir al siguiente registro, con lo cual el código anterior qudaría así:

Código Delphi [-]
procedure TMi_thread.Execute;
begin
while not La_Tabla.Eof do
begin
  // ...
  // verificamos que el usuario ya no quiere esperar a que termine este proceso
  if self.terminated then
    Break; // salimos del bucle While ... do y el Thread termina su ejecución.
  Next;
end;
end;

El código anterior es seguro para trabajar con threads o hilos. Solo faltará agregar código al botón "Cancelar" que verá el usuario. Podría ser un código tan simple como este:

Código Delphi [-]
mi_thread.terminate;

Saludos.