Delphi-Help

FileExists

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

FileExists

Описание

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;

Hello World
Test.txt существует
Test.txt больше не существует

Примечание

Авторизация



Счетчики