Потоки (Threads) не останавливаются

[Stilet]

ну это можно сделать например

Но тогда terminate будет бесполезным, потому что читай пост №7

[cometa]

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

Но тогда terminate будет бесполезным, потому что читай пост №7

Проблема в том что я не знаю как будет правильно выходить из цикла
Мне нужно чтоб,поток после завершения работы сам уничтожался...

[Stilet]

А вот так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TT }

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

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    t:tt;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  t.Terminate; //Устанавливаем флаг завершения цикла потока
  t.WaitFor; //Ждем пока поток не свалит на пенсию
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 t:=tt.Create(false);
 t.FreeOnTerminate:=true;
end;

{ TT }

procedure TT.Execute;
begin
 //В потоке проверяем свойство-флаг завершения работы потока
  while not Terminated do begin 
    sleep(100); 
    Form1.Caption:=TimeToStr(time); 
  end;
 //Если он включается - цикл завершается, поток уничтожается
end;

end.

[cometa]

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

А вот так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TT }

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

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    t:tt;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  t.Terminate; //Устанавливаем флаг завершения цикла потока
  t.WaitFor; //Ждем пока поток не свалит на пенсию
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 t:=tt.Create(false);
 t.FreeOnTerminate:=true;
end;

{ TT }

procedure TT.Execute;
begin
 //В потоке проверяем свойство-флаг завершения работы потока
  while not Terminated do begin 
    sleep(100); 
    Form1.Caption:=TimeToStr(time); 
  end;
 //Если он включается - цикл завершается, поток уничтожается
end;

end.

А мне нужно чтоб поток после завершения работы уничтожался
А не при закрытии формы

[Stilet]

ППц... смотрю в книгу - вижу Бальзака.
Еще раз глазками по моему примеру пробегаешься и смотришь на строку с FreeOnTerminate:=true; - эта установка говорит о том, что поток будет сам уничтожаться, как только его функция Execute завершит свою работу.
Если же ты хочешь завершать работу потоков по окончанию работы главного приложения то твои притензии не ясны: OnClose или OnDestroy формы - туда и пихать операторы стопинга потока.