Функція FileExists – повертає True якщо вказаний файл існує

Функція FileExists в Delphi повертає True якщо вказаний файл існує.

Функція FileExists: Перевіряє файл до та після його видалення

var
  fileName : string;
  myFile   : TextFile;
  data     : string;

begin
  // Спроба відкрити текстовий файл для запису
  fileName := 'Test.txt';
  AssignFile(myFile, fileName);
  ReWrite(myFile);

  // Запис у файл
  Write(myFile, 'Hello World');

  // Закриття файла
  CloseFile(myFile);

  // Повторне відкриття файлу в режимі читання
  Reset(myFile);

  // Показ вмісту файлу
  while not Eof(myFile) do
  begin
    ReadLn(myFile, data);
    ShowMessage(data);
  end;

  // Закриття файлу востаннє
  CloseFile(myFile);

  // Тепер перевіряємо чи існує файл
  if FileExists(fileName)
  then ShowMessage(fileName+' існує')
  else ShowMessage(fileName+' не існує');

  // Удаление файла и новый просмотр
  DeleteFile(fileName);
  if FileExists(fileName)
  then ShowMessage(fileName+' все ще існує!')
  else ShowMessage(fileName+' більше не існує');
end;