FileExists

проверяет существует ли файл

|| function FileExists ( const FileName : string ) : Boolean;

Описание:

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

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

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

Пример кода:

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

begin
   // Try to open a text file for writing to
   fileName := 'Test.txt';
   AssignFile(myFile, fileName);
   ReWrite(myFile);

   // Write to the file
   Write(myFile, 'Hello World');

   // Close the file
   CloseFile(myFile);

   // Reopen the file in read mode
   Reset(myFile);

   // Display the file contents
   while not Eof(myFile) do
   begin
     ReadLn(myFile, data);
     ShowMessage(data);
   end;

   // Close the file for the last time
   CloseFile(myFile);

   // Now see if the file exists
   if FileExists(fileName)
   then ShowMessage(fileName+' exists OK')
   else ShowMessage(fileName+' does not exist');

   // Delete the file and look again
   DeleteFile(fileName);
   if FileExists(fileName)
   then ShowMessage(fileName+' still exists!')
   else ShowMessage(fileName+' no longer exists');
end;

Результат выполнения:

Hello World
Test.txt exists OK
Test.txt no longer exists

Клуб программистов

Delphi programming

FileExists

Описание:

Пример кода:

Результат выполнения: