Пример кода : Проверяет файл до и после его удаления
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 больше не существует