Массив потоков. Не приходит Terminate

[grb]

Добрый день. Создаю массив потоков. И, иногда, несколько потоков из этого массива не могут завершиться. (Terminate=false). Почему?

TDBPacket = class(TThread)
arDB: array of TDBPacket;

//создание массива потоков 
   SetLength(arDB, dbThreadCnt);
   for i :=0  to dbThreadCnt-1 do
   begin
     StartDBThreadNew(arDB[i], i+1);
   end;


//создание потока
procedure StartDBThreadNew(var s:TDBPacket;Anum: integer);
begin
    s:=TDBPacket.Create(true);
    s.FreeOnTerminate:=false;
    s. Priority:=tpHigher;
    s. resume;
   end;

//удаление потоков
for j := 0 to dbThreadCnt-1 do
  StopDBThreadNew(arDB[j] , j);

//процедура удаления потока
procedure StopDBThreadNew(S: TDBPacket; num: integer);
begin
with S do
begin
  Terminate;
  WaitFor;
  Free;
end;
   
end;

[evg_m]

И, иногда, несколько потоков из этого массива не могут завершиться. (Terminate=false). Почему?

terminate это не завершение потока, а установка внутреннего флага объекта-потока (переменной terminated).
Данный флаг (переменная) может и должен быть проверяем внутри процедуры Execute для выполнения действий по завершению потока (обычно это остановка цикла).

while not terminated do begin
  .....0
end;

while true do begin
... 
if terminated then Break;
....
end;

P.S. и совсем не обязательно ждать завершения потока для инициализации остановки другого.
лучше использовать событие onTerminate
s.OnTreminate:=MyStopEventThread;

procedure TFrom1.MyStopEventThread(sender:TObject);
begin
  for j:=0 to length(ardb)-1 do
     if ardb[i]=sender as tthread then FreeandNIL(ardb[i]);
end;

[Stilet]

А что в потоке самом делается?

[WinCoder]

Сообщение от grb

И, иногда, несколько потоков из этого массива не могут завершиться. (Terminate=false). Почему?

Например потому, что в потоке возникает исключение, которое не обрабатывается. В результате поток зависает (продолжает работать, и не уничтожается).

[grb]

конечно terminated.
а когда делаешь

with S do
begin
  Terminate;
  WaitFor;
  Free;
end;

разве ошибки не будет при FreeandNIL(ardb[i]:?

исключения могут быть, но все обернуто в try-except. так что по-любому вернемся в execute и проверим terminated. дело в том, что проект реализован в виде службы (24/7). два дня работает и падает, или 3 часа работает и падает.

поэтому грешу на саму организацию создания и завершения потоков