Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Thread [D5, D7, Win95/98, WinXP]

Птущенко Денис © (2003-05-09 08:38:00)
Допустим я выполняю какой-то цикл, но пока он не выполнится все другие процессы программы останавливаюся.
Вопрос: Как создать поток и чтоб этот цикл выполнялся в нем параллельно с другими процессами и не мешал им ?
Заранее спасибо.

Diamond Cat (2003-05-11 15:28:00) [1]

> Verg © (10.05.03 12:01)
> Вставь в цикл sleep(0)
БРАВО....

Verg (2003-05-10 12:01:00) [2]
Вставь в цикл sleep(0)

german goering (2003-05-09 11:05:00) [3]
В конструкторе
constructor TMyThread.Create;
begin
inherited Create(False);
FCount := Count;
FreeOnTerminate := True;
end;

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

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

german goering (2003-05-09 11:00:00) [4]
Ага
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.

?

Птущенко Денис (2003-05-09 10:59:00) [5]
Да, как это реализовать ?

german goering (2003-05-09 10:45:00) [6]
Че-то вроде ответ в заголовке поста, или вопрос в том, как это реализовать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »