Поток - стоп, пауза, продолжить, выход.

[Cyrix]

PHP код:

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

TNewThread=class(TThread)
  Private
    Protected
      Procedure Execute; override;
  Public
    Constructor Create(CreateSuspended: boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TNewThread.Create(CreateSuspended: boolean);
begin
 inherited Create(CreateSuspended);
end;

procedure TNewThread.Execute;
var
 i:integer;
begin
 for i:=0 to 10000 do Form1.Memo1.Lines.Add(IntToStr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TNewThread.Create(false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end; 


Подскажите как правильно остановить поток или сделать паузу а потом возобновить.

[3D Hunter]

Используйте методы потока Suspend (пауза) и Resume (продолжить).

[Cyrix]

Ошибка, почему и прошу помощи.

[Аватар]

1. Чтобы иметь возможность приостанавливать поток, то параметр CreateSuspended при содании потока должен быть True
2. И ознакомтесь с синхронизацией в потоке. То что у вас в Execute ни в какие ворота не лезет

[Cyrix]

Никакой толковой помощи не дали. Тема закрыта.

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

в delphi 2010 вместо resume и suspend методов, используются Start и Pause соответственно.

Поток должен быть вынесен в глобальную переменную.

пауза так:

if not (Thread = nil) then
begin
  if not Thread.Suspended then Thread.Suspend;
end;

продолжение:

if not (Thread = nil) then
begin
  if Thread.Suspended then Thread.Resume;
end;

Остановка:

if not (Thread = nil) then
begin
  Thread.Terminate;
end;

Естественно FreeOnTerminate должно быть TRUE. Чтобы обьект убрался из памяти сам, когда закончит работу.

Никакой толковой помощи не дали. Тема закрыта.

Не правы вы. Вы никакой информации толком не дали. А советы вам дали дельные, запомните и используйте.

[Cyrix]

Поток должен быть вынесен в глобальную переменную.

Цикл не останавливается, ни паузой, ни остановкой.

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

в тело цикла

if Terminated then exit

Это заставит прервать цикл, потоку передан Terminate флаг.

[evg_m]

что бы что-то остановить надо знать(иметь) что останавливать

procedure TForm1.Button1Click(Sender: TObject);
begin
 newthread:=TNewThread.Create(TRUE);
end;

смотри пост 4.

[Cyrix]

evg_m, да не останавливает. Наверно проверял все советы, не так просто пишу.