Время изменения файла

[Fok]

Суть такова , программа проводит проверку сравнивая время создания файла , если файл был изменен то выводит мессагу

Вот что получилось

function GetFileDate(FileName: string): string;
var   FHandle: Integer;
begin 
  FHandle := FileOpen(FileName, 0);
 try
  Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
 finally
  FileClose(FHandle);
end; 
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  n:=(GetFileDate('test.exe'));
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  
  k:=(GetFileDate('test.exe'));
  while n<>k do
    begin
  showmessage(' файл был изменён ');
    end;
end;

Но при запуске кода выскакивает мессага , что нетак и как эту проверку реализовать правильно

[DedBoroda]

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  
  k:=(GetFileDate('test.exe'));
  while n<>k do
    begin
  showmessage(' файл был изменён ');
    end;
end;

Что делает этот код? Он делает следующее:
С каждым тиком таймера зацикливается навсегда(зависает) в цикле while.(при положительном условии)
Решение - убрать лишний цикл.

procedure TForm1.Timer2Timer(Sender: TObject);
begin  
  k:=(GetFileDate('test.exe'));
  if n<>k then
    begin
       showmessage(' файл был изменён ');
    end;
end;

А еще лучше будет если убрать лишний таймер.

procedure TForm1.Timer1Timer(Sender: TObject);
begin  
  k:=(GetFileDate('test.exe'));
  if n<>k then
    begin
       showmessage(' файл был изменён ');
       n:=k; {добавил для предотвращения спама месаг, хотя это очевидно}
    end else n:=k; {n задается заранее, например в FormCreate}
end;

[Fok]

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

[Sparkman]

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

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

в этом и заключается смысл - сравниваются две переменные, в одной из которых содержится старое значение даты изменения файла, а в другой - считываемое по таймеру значение даты изменения файла.

[DedBoroda]

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

Вдумайтесь, пожалуйста, в алгоритм кода выше

Подсказка:
k-n=timer.interval