найти ошибку в коде [delphi]

[garuna]

имеется очень небольшой исходник программы, которая мониторит изменения файлов на компьютере (создание, удаление, переименование). проблема в том, что через некоторое время (минута-две) программа сама по себе перестает реагировать на изменения файлов, пока ее не перезапустишь. надо исправить это. использую Delphi XE3, исходник: https://yadi.sk/d/woFKBXB3tGKAG

оплата 350 р (яндекс-деньги или на телефон) после тестирования EXE

Связь:
fordiskonly2015@yandex.ru
или ЛС

[evg_m]

Глобальные переменные зло.

делаем DiskIndex локальной!!!
получается такое

procedure TForm1.MakeLog;
var
  i, Cnt: Integer;
  Act, aTime, S: String;
  DiskIndex: Integer;
begin

и СРАЗУ получаем подсказку от Delphi
[Warning] Unit1.pas(108): Variable 'DiskIndex' might not have been initialized

если повезет то работам почти что штатно, если нет то ....

Добавите к опциям проекта RangeCheckError.

Мы ее задаем где-то еще.
ну так покажите где.

[garuna]

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

Глобальные переменные зло.

делаем DiskIndex локальной!!!
получается такое

procedure TForm1.MakeLog;
var
  i, Cnt: Integer;
  Act, aTime, S: String;
  DiskIndex: Integer;
begin

и СРАЗУ получаем подсказку от Delphi
[Warning] Unit1.pas(108): Variable 'DiskIndex' might not have been initialized

если повезет то работам почти что штатно, если нет то ....

Добавите к опциям проекта RangeCheckError.

Мы ее задаем где-то еще.
ну так покажите где.

Так ведь значение этой переменной присваивается в потоке TDDirLogThread.Execute, который находится в другом модуле. Как еще передать значение, если не использовать глобальную переменную? Мне кажется ошибка тут совсем не в этом.

[min@y™]

Исходник полон костылей. Их больше, чем комментариев.
Пришлось децл обработать напильником.
Досконально в работу не вникал, много чести!

[garuna]

Сообщение от min@y™

Исходник полон костылей. Их больше, чем комментариев.
Пришлось децл обработать напильником.
Досконально в работу не вникал, много чести!

Проверил, проблема осталась - мониторинг прекратился, когда я попробовал переместить 1300 фотографий с одного диска на другой

[min@y™]

Проверил, проблема осталась - мониторинг прекратился, когда я попробовал переместить 1300 фотографий с одного диска на другой

Видео запиши. Интересуют некоторые детали.

[eoln]

А так работает?Project1.7z

[garuna]

Сообщение от min@y™

Видео запиши. Интересуют некоторые детали.

Вот: http://s017.radikal.ru/i428/1607/23/cb183c8a94b4.gif

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

А так работает?Вложение 82716

неа. вообще не реагирует ни на что

[min@y™]

Ну чего я делаю не так?
Посмотри это.

3.jpg

[garuna]

Сообщение от min@y™

Ну чего я делаю не так?

странно.. тогда что я не так делаю? вот еще видео: https://yadi.sk/i/oXNj8uTctHW5V
думал что-то с виндой, так попробовал на чистой виртуалке потестить - то же самое(
уже и total commander скачал, стал через него файлы копировать как у тебя на видео, ан нет, все равно не хочет))

кстати, вот интересно, если есть время, что если скомпилить изначальный исходник, может он у тебя тоже без проблем работает?