function FileExists ( const FileName : string ) : Boolean;
Функция 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;
|