Запуск нескольких потоков

[Stilet]

А я обычно прямо в конце execute пописываю освобождение памяти, ессно согласно той схемы что я показал в примере.

[bilibian]

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

А я обычно прямо в конце execute пописываю освобождение памяти, ессно согласно той схемы что я показал в примере.

То есть в конце execute достаточно прописать Free; и все?

[STRELOK-2007]

Ни в коем случае не делать инициализацию переменных и их освобождение в Execute!

Ибо, при определенных обстоятельствах, могут быть утечки памяти.

Только в Create и Destroy!

[bilibian]

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

завести обработчик onterminated и внём убивать, +можно на форме сообщать что такой то поток убит или что ни будь другое

Например так?

procedure TForm1.Button2Click(Sender: TObject);
  var i:Integer;
  ThreadArray: array [1..3] of Thr;
begin
    for i:=1 to High(ThreadArray) do
    begin

      ThreadArray[i]:=Thr.Create(true);
      ThreadArray[i].FreeOnTerminate:=false;
      ThreadArray[i].OnTerminate := ENDTerminated;
      ThreadArray[i].Resume;
      ThreadArray[i].Priority:=tpNormal;

    end;
end;

procedure TForm1.ENDTerminated(Sender: TObject);
begin
  Free;
end;

Или я ошибаюсь?

[Stilet]

То есть в конце execute достаточно прописать Free; и все?

Нет. Ты не понял )
Я создаю перед циклом нужные мне объекты, а после цикла их освобождаю. Только так эта схема работает нормально. И при завершении потока принудительно обязательно использую WaitFor чтоб быть уверенным что все что поток на себя взял освободится.
А то что ты хочешь сделать Как сказал STRELOK-2007 нельзя так просто.
Я вообще не понимаю почему ты написал ThreadArray[i].FreeOnTerminate:=false;

[bilibian]

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

Я вообще не понимаю почему ты написал ThreadArray[i].FreeOnTerminate:=false;

Я бы с удовольствием написал FreeOnTerminate:=True; и не парился. Но в таком случае я буду уведомлен об ошибке Thread Error: Неверный дескриптор (6) с которой я не совсем понимаю как разобраться.

[bulldog5293]

bilibian убедительная просьба, прочитай хотя бы эту стотью для начала http://forum.vingrad.ru/topic-60076.html что бы отпали многие вопросы, она всё ещё актуальна для новичков, там всё показано для начинающей работе с потоками/ Вот навскидку пример с многопоточностью/ Надеюсь 60% вопросов отпадёт

[Stilet]

Но в таком случае я буду уведомлен об ошибке Thread Error: Неверный дескриптор (6) с которой я не совсем понимаю как разобраться.

Так это надо твой код анализировать, чтоб сказать что же у тебя падает.
Почему-то у меня такой ошибки нет.

[bilibian]

Еще бывает проблема, когда поток останавливается сам по себе. То есть он работает, работает, а потом внезапно исчезает. Например работает приложение в 5 потоков, через некоторое время, потоков уже 3. При этом свое задание они не выполнили. они просто остановились и все.

Каждый из потоков собирает инфу с сайта.

В чем может быть дело?

[Stilet]

В чем может быть дело?

В неправильно написанном коде.
Еще раз повторюсь: Сам по себе поток не может лажать. Если он как-то не так работает, значит автор программы чего-то не предусмотрел. Но чего - известно только автору.