Справочник функций и процедур 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;

Google  
 
Описание
Функция 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 больше не существует
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


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