Как проверить изменялся ли файл

[NeiL]

Подскажите, как проверить изменялся ли файл. Задача следующая: имеется форма с компонентом TMemo. В него загружаю текст из некоего текстового файла - Memo.Lines.LoadFromFile(const_def_F ilePath). Теперь открываю этот же файл из Блокнота и дописываю в него какой-нибудь текст. Теперь при возвращении в окно своего приложения (Delphi) необходимо проверить изменялся ли файла, и если данное имело место быть вывести сообщение. ShowMessage('File modified. Reload file ?').

[evg_m]

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

[Dj_smart]

Создай еще одну memo маленькую и невидимую и добавь в form1.oncreate

Screen.OnActiveControlChange := AppControlChange;

и саму процедуру

procedure TForm1.AppControlChange(Sender: TObject);
begin
  memo2.lines.loadfromfile(file);
  if memo2.lines<>memo1.lines then showmessage('blablabla');
end;

И теперь она будет вызыватся при смене фокуса и проверять не изменился ли.
И дело в шляре)))

[mutabor]

Я так понял программа в это время запущена пока в открытом файле Блокнотом правят? Если нужно это предотвратить, открывай файл с запрещением повторного открытия, если просто определить изменения то иметь копию Memo в памяти и определять изменения по OnActivate, загрузив этот Мемо из файла. Можно также для сравнения свойство Text у Мемо заюзать.

Form1.Activate(...);
begin
MemoCopy.LoadFromFile(...);
MemoOrigin.Text <> MemoCopy.Text then ...
end;

[Stilet]

Вообще то (автору) пока в блокноте не нажмеш ^S файл не изменится.
В принципе можно откопать хендл окна блокнота, и просто получить по нему содержимое окна.

[Hollander]

Используй мониторинг файлов, поищи в нете я где-то видел исходник.

[Dj_smart]

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

Можно также для сравнения свойство Text у Мемо заюзать

попутал..... Там вместо lines Text.

[Serge_Bliznykov]

я полностью согласен с Hollander.
Пути два - либо, более грамотный подход через WinAPI -
ReadDirectoryChangesW (будет работать только под WinNT/2000/XP/Vista)
мониторинг папки

либо банально вешаться на таймер (например, раз в 30 сек., чтобы не грузить систему) и проверять изменился ли файл (дата последней модификации/размер)

первый способ лучше, но сложнее ;-)

[Stilet]

первый способ лучше, но сложнее ;-)

Чем же он сложен? Это лучший способ для легеньких програмулинок, но повторюсь - он не сработает пока в блокноту не дадут команду сохранения

[Serge_Bliznykov]

Виталий, ну Вы же прекрасно понимаете, что пока файл не сохранили - он НЕ ИЗМЕНИЛСЯ! мы же с Вами говорим именно про ФАЙЛ (а не про текст, который находится в какой-то программе редактирования, кстати, которую получить так просто может и не удастся - у меня, например, штатный редактор Windows заменён на AkelPad (на порядок удобнее и лучше).
Автор вопроса хочет сделать то, что умеет, например, та же Дельфи - откройте проект, потом перейдите в редактор и измените любой файл из открытого в IDE Delphi проекта - получите сообщение:
Модуль 'ваш_файл.ляля's time/date change. Reload?
но произойдёт в момент СОХРАНЕНИЯ ваших изменений, а не тогда, когда Вы в редакторе FAR (к примеру ;-) будете эти изменения вносить!