Пример кода : Создание простого файла, затем попытка удалить его дважды
var
myFile : TextFile;
begin // Позволяет нам открыть
текстовый файл
AssignFile(myFile, 'Test.txt');
ReWrite(myFile); // И записать одну линию в него
WriteLn(myFile, 'Hello World'); // Затем закрываем его
CloseFile(myFile); // И наконец стираем его Erase(myFile); // Если мы пробуем стереть его снова,
мы поднимем исключение
try Erase(myFile);
except
on E : Exception do
ShowMessage('Нельзя удалить : '+E.Message);
end;
end;
