|
procedure Erase ( var FileHandle : File; ) ;
Процедура Erase пытается стиреть файл, данный в FileHandle.
Имя файла, должно быть, было назначено подпрограммой AssignFile в дескрипторе файла FileHandle.
Если файл не существует, то поднимается исключение EInOutError.
|
|
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;
|
