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

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

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

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

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

от elissa , 5 месяцев назад

@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. Она принимает имя файла в