Thread

← →
Птущенко Денис © (2003-05-09 08:38) [0]

Допустим я выполняю какой-то цикл, но пока он не выполнится все другие процессы программы останавливаюся.
Вопрос: Как создать поток и чтоб этот цикл выполнялся в нем параллельно с другими процессами и не мешал им ?
Заранее спасибо.

← →
german goering (2003-05-09 10:45) [1]

Че-то вроде ответ в заголовке поста, или вопрос в том, как это реализовать?

← →
Птущенко Денис © (2003-05-09 10:59) [2]

Да, как это реализовать ?

← →
german goering (2003-05-09 11:00) [3]

Ага
unit Unit1;

interface

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

type

TMyThread = class(TThread)
private
FCount: Integer;
FResult: Integer;
protected
procedure Execute; override;
public
constructor Create(Count: Integer);
property Result: Integer read FResult;
property Count: Integer read FCount;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure OnTerminateThread(Sender: TObject);
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1; {$R *.dfm}

implementation

{ TMyThread }

constructor TMyThread.Create;
begin
inherited Create(False);
FCount := Count;
FreeOnTerminate := True;
end;

procedure TMyThread.Execute;
var I: Integer;
begin
for I := 0 to FCount do FResult := FResult + Random(FCount);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
Button1.Caption := "";
Button1.Enabled := False;
TMyThread.Create(2000).OnTerminate := OnTerminateThread;
for I := 0 to 10000 do
begin
Application.ProcessMessages;
Caption := IntToStr(I);
end;
Button1.Enabled := True;
ShowMessage("Main cicle finished");
end;

procedure TForm1.OnTerminateThread(Sender: TObject);
begin
Button1.Caption := IntToStr(TMyThread(Sender).Result);
ShowMessage("MyThread is terminated");
end;

end.

?

← →
german goering (2003-05-09 11:05) [4]

В конструкторе
constructor TMyThread.Create;
begin
inherited Create(False);
FCount := Count;
FreeOnTerminate := True;
end;

inherited Create(False); - означает, начнет ли поток выполняться сразу после его создания, в противном сл-е, (True), необходимо вызвать метод Resume для выполнения метода Execute.

FreeOnTerminate := True; - обеспечивает уничтожение экземпляра TMyThread после завершения его работы.

Вставь в цикл sleep(0)

Thread Найти похожие ветки