Показать сообщение отдельно
  #3  
Старый 20.03.2012, 10:39
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

или, если хочется именно в таймере, то так
вместо
Код:
 Rewrite(outfile);
написать
Код:
 
{$I-} // выключить Exception при ошибках ввода-вывода
  Append(outfile); // открыть файл для дописывания
  if IoResult <>0 then // если не получилось
   Rewrite(outfile); // то создать новый файл
{$I+} // включить обратно Exception при ошибках ввода-вывода
Ответить с цитированием