У меня такая ситуация в программе есть дополнительный поток который постоянно с периодичностью что то пишет в файл.
Так вот когда я завершаю программу (так же при этом вызываю метод Terminate доп.потока) то дополнительный поток иногда не успевает завершить последнюю итерацию цикла и также соответственно операцию записи в файл и получается что в файле оказывается только часть данных.
Вопрос как мне завершить работу основной программы что бы при этом гарантировано завершил свою работу доп.поток???
Код доп.потока:
while not Terminated do
begin
sleep(varSleep);
U:= pSmInt^;
. . . . . . .
Regim:= pByte^;
Writeln(F,DateToStr(Date):10, TimeToStr(Time):15, Uakb:10, I:10, T:10, Uin:10, U:10, Regim:10);
beep;
end;