Элегантно реализовать задержку

[HellMercenariess]

Есть необходимость вносить изменения в текстовый файл, но оказалась маленькая проблемка в том что малоизвестная мне процедура(мониторинг изменений в файлах и папках) срабатывает несколько раз примерно по (6-8),чтобы не дёргать файл 8 раз на секунду, придумал такую задержку:

Delai:=13;     //ставлю задержку.
Timer1.Enabled:=true;

  if delai>0 then
 dec(delai) else
     begin
   SaveMDT(ix);           // запись в файл.
   Timer1.Enabled:=false; // остановка таймера.
     end;

По моей задумке не первое срабатывание только устанавливает задержку наново. Ошибок никаких нет, но меня гложет то что такой механизм задержки не слишком элегантен.

А как вы боретесь с излишне-частым перезаписыванием файлов?

[Stilet]

А как вы боретесь с излишне-частым перезаписыванием файлов?

1) Пихаю процедуру логирования только в том месте, где требуется.
2) Не пишу в файл сразу, а храню логи в неком списке, который скажем раз в час выгружается дописывая файл и очищается для нового наполнения.

[s-andriano]

Сообщение от Stilet

2) Не пишу в файл сразу, а храню логи в неком списке, который скажем раз в час выгружается дописывая файл и очищается для нового наполнения.

Я бы добавил "либо при заполнении буфера". Лог ведь не обязан сохранять примерно одинаковый темп пополнения в течение длительного времени.