- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
begin
TMyThrd.Create(1);
end;
- Код: Выделить всё
TMyThrd = class(TThread)
public
Constructor Create (n: Integer);
procedure Execute; override;
end;
implementation
Constructor TMyThrd.Create(n: Integer);
begin
inherited Create(true);
FreeOnTerminate := true;
Priority := tpNormal;
Resume;
end;
procedure TMyThrd.Execute;
begin
end;
Добавлено спустя 12 часов 11 минут 7 секунд:
Решил попробовать BeginThread - результат аналогичный, после остановки потока память системе не возвращается. При каждом нажатии на кнопку запуска нового потока память только расходуется, хотя потоки немедленно завершаются.