Массив потоков, и как они очищаются

[Winexcel]

Возникла проблема, собственно описание проблемы:
Есть 10 аккаунтов в программе, пример

Вася Пупкин
Вася Пупкин2 и тд.
Каждый аккаунт чекаеться в потоке, поток создаю массивом

authuser:array of TAuthUser;

TAuthUser = class(TThread)

Запускается поток так от кнопки START:

for i:=0 to form1.sListView1.Items.Count-2 do begin
 setlength(AuthUser, i+1); 
 inc(numpotok);
 authuser[i]:=tauthuser.Create(true);
 authuser[i].FreeOnTerminate:=true;
 authuser[i].N:=I;
 authuser[i].Resume;
end;

После чека, я пытаюсь изменить данные этого аккаунта из таблицы ListView, после того как я изменил эти данные я проверяю, если нажата кнопка старт, и пользователь не хотел останавливать программу то после нажатия на кнопку изменить аккаунт:

if (vkadd.sButton1.Caption='Изменить.') and (work=true) then begin

 authuser[countlistview]:=tauthuser.Create(true);
 authuser[countlistview].FreeOnTerminate:=true;
 authuser[countlistview].N:=countlistview;
 authuser[countlistview].Resume;


end else

Мы запускаем заново поток с индексом этого аккаунта, где он дальше успешно чекаеться, но, после запуска потока с индексом этого аккаунта выходит вот что:


Я собственно хочу понять саму суть, видимо после завершения потока который запускается при нажатие кнопки старт, освобождается массив, и затем я уже пытаюсь обратиться к несуществующему потоку, если не так то посоветуйте что нужно сделать, помогло добавления следующего

setlength(AuthUser, countlistview+1);

Но в данном случае если будет аккаунтов 10 а я редактирую например 5 то в массиве останется 6 потоков и 4 пропадёт, и выйдет ошибка я так понимаю. Кто знает помогите.

[Serge_Bliznykov]

небольшой оффтоп...

я не по сути вопроса. я про другое

for i:=0 to form1.sListView1.Items.Count-2 do begin
 setlength(AuthUser, i+1); 
 inc(numpotok);
 authuser[i]:=tauthuser.Create(true);
 authuser[i].FreeOnTerminate:=true;
 authuser[i].N:=I;
 authuser[i].Resume;
end;

так делать НЕ НАДО.
если уж Вам известно заранее, сколько будет элементов в массиве, так выносите это за цикл и делайте SetLength 1 (ОДИН) раз.
примерно так:

setlength(authuser, form1.sListView1.Items.Count-1); 
for i:=0 to form1.sListView1.Items.Count-2 do begin
 inc(numpotok);
 authuser[i]:= TAuthUser.Create(true);
 ....

[northener]

Массив сам собой очищаться (освобождаться) не умеет. Как у вас происходит завершение потоков? И может лучше заменить массив на список?

[Winexcel]

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

Массив сам собой очищаться (освобождаться) не умеет. Как у вас происходит завершение потоков? И может лучше заменить массив на список?

Заменить массив на список, можно пример?
Поток сам по себе завершается, я при создании потока устанавливаю у него свойство FreeOnTerminate:=True
Также добавлю, если вы подумали что поток где-то зависает или останавливается:
Поток завершает свою работу, в самом конце при завершении выполняется

dec(numpotok);

Эта переменная равна 0 если нет потоков, так и есть, когда поток завершился я пытаюсь изменить аккаунт.

[Человек_Борща]

Массив поток - это не удобно, более того, его сложно контролировать.
Используйте э\для этого хотябы списки(TList). Более того, есть список потоков: TThreadList вот его и берите в оборот.

[Winexcel]

Проблему я нашёл, но не знаю как решить, поток нормально запускается из главного окна, Form1 - В моём случае, я создал там процедуру

procedure TForm1.akkchange(Index: integer);
begin
 authuser[Index]:=tauthuser.Create(true);
 authuser[Index].FreeOnTerminate:=true;
 authuser[Index].N:=countlistview;
 authuser[Index].Resume;
end;

И вызываю эту процедуру из Form2, работает, но если код процедуры использовать в Form2, то выдаёт ошибку, в чём подвох? Сам модуль потока подключен в uses, и модуль главного окна unit1.

Сообщение от Человек_Борща

Массив поток - это не удобно, более того, его сложно контролировать.
Используйте э\для этого хотябы списки(TList). Более того, есть список потоков: TThreadList вот его и берите в оборот.

Возьму на заметку, но в данное время переписывать пол программы не вариант =(, на это уйдёт как минимум 1 день.