[nixon232]

есть некий поток дочерний. в главном он объявлен как массив

Код:

fNewTh: array [1..12]of Arr;

По отработке (как я думал) они освобождаются, но как мне создать новый экземпляр потока на месте отработанного, а не забивать новый элемент массива?

Код:

i:= Length(fNewTh)+1;
   fNewTh[i]:=Arr.Create();

но оно. очевидно вернет 13. а не индекс заполненных элементов.

[nixon232]

Получается, что поток (а наверное ссылка), остается в FNewTh[i]? потому что он не равен Nil?

Код:

for i := 1 to 12 do
    begin
    TMP:= fNewTh[i];
      if not Assigned(tmp) then

тогда где ему нил присвоить если мы не мониторим завершение экземпляра?

[NumLock]

А и не должно значение само в nil сбрасывается. Делай это при завершении потока. Вариантов много.

[nixon232]

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

А и не должно значение само в nil сбрасывается. Делай это при завершении потока. Вариантов много.

ну мне хватит и одно. пробовал в терминейт дочернего объекта прописать

Код:

self:=nil;

Но Assigned дает true.
По дебагеру видно, что остались внутпеные даннык которые были созданы в Create

Код:

begin
inherited Create(False);
a:=RBTN;
b:= CBTN;
c:=time;
d:=id;
FreeOnTerminate:=True;
OnTerminate:=WBTerminate;
end;

[nixon232]

Странно, но если в главном потоке послать такое, то ошибок нет и он оба раза шлет сигнал на поток

Код:

begin

  FreeAndNil(FLock);
  FBan.Free;
  for i := 1 to 12 do
  begin
  tmp:=   fNewTh[i];
    if tmp<>nil  then
         tmp.Terminate;
  end;

  for i := 1 to 12 do
  begin
  tmp:=   fNewTh[i];
    if tmp<>nil  then
         fNewTh[i].Terminate;
  end;
  inherited Destroy;

end;

в самом потоке уже осталось Sleep(1000); и все. получается он не завершается? но ведь доходит до Destroy.

[nixon232]

переписал на Tlist Вместо Array of TA, а, в терминайте присваиваю

Код:

 Self:=nil

Создаю поток:

Код:

       fNewTh.Add(TA.Create(....));

Он себе спокойно отрабатывает, доходит до дестроя, но при такой проверке пытается уничтожить объект, которого нет, получает отказв доступе код 5 и вылетает

Код:

begin

  FreeAndNil(FLock);
  FBan.Free;

  begin
//  Cursor := crHourGlass;
  try
   if fNewTh.Count>0 then

    for i := fNewTh.Count - 1 downto 0 do
    begin
      if assigned(fNewTh[i]) then
      begin
        tmp:=fNewTh[i];
        TA(fNewTh[i]).Terminate; // terminate thread
        TA(fNewTh[i]).WaitFor; // make sure thread terminates
      end;
    end;
    fNewTh.Clear;

Уже Даже идей нет, что не так.

_____________________________АПД
Если прописать так терминейт, то ошибки нет, но во-первых это бред так делать, а во-вторых объект-то остался.

Код:

procedure TA.Terminate(Sender : TObject);
begin

//Self:=nil;
MainThread.fNewTh.Delete(fIndex);

end;