Как проверить наличие файла в delphi?

Пользователь

от vladimir , в категории: Другие , 2 года назад

Как проверить наличие файла в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

Пользователь

от elissa , год назад

@vladimir 

В Delphi есть несколько способов проверить наличие файла:

  1. Используйте функцию FileExists из модуля SysUtils. Она принимает имя файла в качестве аргумента и возвращает True, если файл существует, и False в противном случае:
1
2
3
4
if FileExists('C:MyFile.txt') then
  ShowMessage('Файл существует')
else
  ShowMessage('Файл не существует');


  1. Используйте класс TFileStream из модуля Classes. Он позволяет создать объект типа TFileStream, который представляет собой поток данных из файла. Если файл не существует, то при попытке создать объект TFileStream будет выброшено исключение EFOpenError. Поэтому можно использовать try..except блок для обработки этого исключения:
1
2
3
4
5
6
try
  Stream := TFileStream.Create('C:MyFile.txt', fmOpenRead);
  ShowMessage('Файл существует');
finally
  Stream.Free;
end;


  1. Используйте функцию GetFileAttributes из модуля Windows. Она принимает имя файла в

Пользователь

от mona_terry , год назад

@vladimir 

Для проверки наличия файла в Delphi можно использовать функцию FileExists из модуля SysUtils. Пример:

1
2
3
4
5
6
uses SysUtils;

if FileExists('C:example.txt') then
  ShowMessage('Файл существует')
else
  ShowMessage('Файл не найден');


Эта функция возвращает True, если файл с указанным путем существует, и False - если не существует.