Завершение потоков!

[19955991]

Помогите, не как не могу сладить с завершением гр*****х потоков

Цитата: Сообщение от Так создаю потоки procedure TForm1.Button1Click(Sender: TObject); begin for pot1:=1 to SpinEdit1.Value do begin a[pot1]:=Potok.Create(False); end; end;

Цитата: Сообщение от Так пытаюсь завершить procedure TForm1.Button4Click(Sender: TObject); begin for I := 1 to SpinEdit1.Value do begin a[i].Terminate; end;

Так как завершаю я - не получается, процик жутко виснет при такой остановке и полностью загружается

[Dinmaite]

Таким образом ты не завершаешь поток. a[i].Terminate всего лишь устанавливает флаг потока terminated в true;

[19955991]

Цитата: Сообщение от Dinmaite Таким образом ты не завершаешь поток. a[i].Terminate всего лишь устанавливает флаг потока terminated в true;

А как завершить и освободить память?

И кстати сам поток заключен у меня в while (not terminated) do

[Dinmaite]

FreeOnTerminate := true;
или совсем уж хорошо - TThread.Free;

[19955991]

Dinmaite, если бы все так было просто...
На TThread.Free; программа вообще не реагирует
На FreeOnTerminate := true; программа вываливает ошибку - [Ссылки могут видеть только зарегистрированные пользователи. ]

p.s. Может я неправильно выразился, мне нужно по нажатию на кнопку СТОП завершить 10 созданных потоков и освободить память

[Dinmaite]

Цитата: Сообщение от 19955991 На TThread.Free; программа вообще не реагирует

Этой строкой я показал что метод free относится к потоку. TThreat - класс.
Метод free нужно вызывать из кода лежащего вне потока.

[VeTaL_UA]

Я всегда задаюсь вопросом, нафига массив делать? Ну да ладно, ваши проблеммы.
В процедуре Execute потока в цикл вставляешь условие, в котором проверяешь флаг Terminate и при true выходишь из цикла.

[19955991]

VeTaL_UA, то ли я что то неправильно делаю, то ли это проклятие...вообщем по нажатию на кнопку "стоп" программа вываливает ошибку "cannot terminate an externally created thread", причем действие в потоке выполняются дальше.

procedure TForm1.Button2Click(Sender: TObject); // Кнопка стоп
var
pot2:new;
begin
pot2.Terminate;
end;

procedure New.Execute; //Поток
begin
while not Terminated do
begin
sleep(100);
inc(nom2);
Form1.Memo2.lines.Add(inttostr(nom2));
end;
end;

p.s. с потоками раньше дело не имел, так что прошу сильно не ругать, а по возможности разжевать завершение потоков

[VeTaL_UA]

Ты бы поток запустил перед тем как завершать

[19955991]

Разобрался со всем, VeTaL_UA, спасибо, ты мой кумир

[VeTaL_UA]