Détruire une classe

Bonjour,

suite a beaucoup d'avis et de conseils de la part des membres de ce site j'ai décidé de passer de Thread Win32 en VCL (non sans raison lol, c'est vrai que c'est plus pratique a utiliser) :)

j'ai donc créé un thread VCL TTestThread , et ensuite j'ai fais ceci :

Code:

---

test : Array [0..99] Of TTestThread ;

---

au début, test[0] est donc égal a "nil"

maintenant une fois que j'ai créé mon thread et qu'il a fini de s'éxecuter (test[0].terminate), je ne comprends pas pourquoi quand je lui dis:

Code:

---

1 2 3 4

if test[0]<>nil then showmessage('a') else showmessage('b')

---

et bien il m'affiche a :s

j'ai bien précisé FreeOnTerminate il ne devrait donc rien resté du thread, et il a effectivement disparu de la liste des threads de mon application

maintenant sauriez-vous comment je peux libérer test[0] de manière a y définir un autre thread ?

merci

le thread se libère bien, mais il ne sait pas où est stockée sa référence et ne peut donc l'annuler !

il faut rajouter un mécanisme pour qu'il puisse le faire au destroy, en lui passant quelquechose au create, et en prenant garde aux accès concurrents => sections critiques ? ou TTheadList ?

bonjour

si tu utilises freeOnTerminate une solution assez simple consiste a implémenter l'évènement OnTerminate le parametre sender contient le thread qui vient de se finir

sinon

monThread.terminate;
monThread.waitfor;
monThread.free;

en fait pour etre plus clair, il faudrait une fonction qui retournerait une valeur boolean suite a quelque chose comme ça :

if test[0].isthreadterminate then

as-tu réellement besoin de stocker une référence sur le thread ?

s'il doit FreeOnTerminate, à moins qu'il soit créé Suspended, il va s'exécuter et tirer sa révérence => pas besoin (?) de référence.

si tu veux seulement contrôler le nombre de threads actifs, pour en lancer de nouveaux si besoin, jusqu'à une limite, il suffit d'incrémenter un compteur dans le Create et de le décrémenter dans le OnTerminate (je ne sais pas s'il faut protéger l'accès à la valeur pour éviter des accès concurrents, mais c'est probable)

et bien j'ai testé avec test[0]=nil juste avant le "end" dans mon ttestthread.execute, et apparement ça a l'air de marcher.

si je ne vois pas de bugs je pense que je vais laisser comme ça :)

merci de votre aide ;)