| Описание |
Функция FileExists проверяет существование файла, функция возвращает True, если данный файл существует.
Функция ищет файл в текущей директории.
Если файл существует, но пользователь не имеет прав на его просмотр, то будет возвращено False.
|
|
| Похожие команды |
|
| |
|
| Пример кода : Проверяет файл до и после его удаления |
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 больше не существует
|
|
