Потоки в цикле

[Sibedir]

Но что делать, если нужно завершить поток до того, как он выполнил работу. Например, пользователь хочет закрыть программу. Поток еще работает, а списки уже уничтожены.

[ДралсяСошибками]

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

Но что делать, если нужно завершить поток до того, как он выполнил работу. Например, пользователь хочет закрыть программу. Поток еще работает, а списки уже уничтожены.

Поставить в OnDestroy поток.Terminate; вбить гвоздь в горшок с землёй и ждать))

[Sibedir]

Эээ. Не понял.

[ДралсяСошибками]

Так, не?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  Thread = class(TThread)
    protected
      procedure Execute; override;
  end;

var
  Form1: TForm1;
  T: Thread;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  T := Thread.Create(True);
  T.FreeOnTerminate := True;
  T.Resume;
end;

{ Thread }

procedure Thread.Execute;
begin
  while True do
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  T.Terminate;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  T.Terminate;
end;

end.

[Аватар]

T.Terminate;

То Terminate ни чего не прерывает, а только устанавливает в True свойство Terminated. Которое и нужно в цикле проверять в Execute

[ДралсяСошибками]

Да, верно.

[Sibedir]

А теперь выполни в Execute обработку большого списка, который при закрытии программы уничтожается и получишь ошибку доступа. Ситуация усложняется, если потоков несколько.
Однозначно, перед тем как закрыть приложение и освободить память, нужно быть полностью уверенным, что все потоки завершены.
Вот я и думают, должна же быть какая-то процедура типа WaitForTerminate . Наверное здесь нужны симофоры, но логику работы с симофорами при наличии нескольких потоков я не понял.Пробовал, но работает через раз. Вот и делаю костыль с указателем. Хотя может так и нужно делать. Я так и не понял.
Но бессмысленный цикл типа

while p.out <> poEnd do Sleep(25);

перед освобождением памяти и закрытием приложение мне совсем не нравится.

Можно еще передавать потоку кусок данных физически не связанных с основными (делать ему собственную копию), но тогда много накладных расходов.

[ДралсяСошибками]

хз, у меня с потоками проблем особо не было, может я конечно как-то не так их использую, но я всегда в потоке, особенно в циклах проверяю Terminated, и поток завершается по первому требованию юзера))

[Slym]

блин вам кластер дай на тышу ядер, вы и его на 100% положите
а алгоритмически подойти не пробовали? "сортирнуть" перед сравнением например...

[Vlad2891]

Всем большое спасибо за советы. Чуть подразобрался. Сижу, изучаю критические секции