23.04.2010, 20:41
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
ну почему же? вполне можно обойтись и так:
Код:
procedure fcn();
begin
{come thread code}
end;
procedure TForm1.Button1Click(Sender: TObject);
var thid: cardinal;
begin
CreateThread(nil,0,@fnc,nil,0,thid);
end;
но в этом случае немного сложнее с синхронизацией..
в общем, все зависит от конкретной задачи |
|
|