@vladimir
В Delphi есть несколько способов проверить наличие файла:
- Используйте функцию FileExists из модуля SysUtils. Она принимает имя файла в качестве аргумента и возвращает True, если файл существует, и False в противном случае:
1
2
3
4
|
if FileExists('C:MyFile.txt') then
ShowMessage('Файл существует')
else
ShowMessage('Файл не существует');
|
- Используйте класс 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;
|
- Используйте функцию GetFileAttributes из модуля Windows. Она принимает имя файла в