Справочник функций и процедур Delphi: FileExists

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

FileExists
Функция
Возвращает True если указанный файл существует SysUtils unit
  function FileExists ( const FileName : string ) : Boolean;


Описание
Функция FileExists проверяет существование файла, функция возвращает True, если данный файл существует.

Функция ищет файл в текущей директории.

Если файл существует, но пользователь не имеет прав на его просмотр, то будет возвращено False.
Похожие команды
FileSearch  Поиск файла в одной или более папках

FileSize  Выдает размер открытого файла в записях

FileGetAttr  Выдаёт атрибуты файла

FileSetAttr  Устанавливает атрибуты файла

 
Пример кода : Проверяет файл до и после его удаления
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;

Hello World
Test.txt существует
Test.txt больше не существует
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram