Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Окт

Проверить состояние потока

Posted by Chas under Delphi

evg_m

th:=TTreadX.Crerate;

th.OnTerminate:=MyFreeThread; //действие которое будет выполнено при РЕАЛЬНОМ завершении потока

th.FreeOnterminate:=false; 
procedure TFX.MyFreeThread(sender: TObject);

begin

  if sender =th then //по завершении НУЖНОГО нам потока

     FreeAndNil(th);  // очищаем переменную!!!!

end;
function TestTh; string;

begin

  if th<>nil then result:='поток работает'

  else result:='поток не найден'

end

TThreadx class(TThread)

public

  function testrun: string;

end;
function TThreadX.testrun: string;

begin

  if self=nil then result:='поток не найден'

  else if self.terminated then result:='поток готов к остановке'

  else result:='поток работает';

end;
showmessage(th.testrun);

тема на форуме