|
En general te comentaría que antes de lanzarte a la piscina con los threads reviras alguna documentacíon e intentaras entender bien cómo funcionan, qué limitaciones tienen y los métodos/propiedades que tienen disponibles para que puedas usarlos correctamente, porque si no puede ser un infierno...
Te comento esto, porque viendo el código hay cosas que no acaban de tener sentido.
Por un lado, tal y como está diseñado (no se si se trata de un ejemplo) todo el trabajo del hilo se realiza en un Synchronize, por lo tanto es inútil, pues lo que hay en un Synchronize se ejecuta desde el hilo principal. En este caso no ganas nada al hacerlo así.
Por otro lado, la VCL no es thread-safe, por lo tanto no deberías utilizar componentes visuales dentro del Thread. Como son las listas que estás pasando como parámetros. En este caso, deberías utilizar objetos independientes dentro de los threads (Items = TStrings).
Sería algo así:
(1) Crear el Thread (y dentro crear TStrings)
(2) Asignar los items de las listas (LB_CuentaCliente.Items) a los elementos que has creado en los threads (assign).
(3) Lanzar los threads. Ahora ya puedes trabajar sin syncronize, pues no estás utilizando los objetos originales, sino los propios del Thread.
(4) Utilizar el método OnTerminate (y esto contesta a tus ppreguntas posteriores) para saber cuando acaba el hilo y poder recoger los resultados.
NOTAS:
* FreeOnTerminate a False, para poder recoger los resultados.
* OnTerminate para conocer cuando acaba el Thread y consultar lo que necesitas.
* El resuiltado lo puedes almacenar en una propiedad del Thread y definir Get y Set para consultarla. Sin problemas con eso. También en Delphi se utilizan los Getters y Settters.
|