Delphi-Help

Erase

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

Erase

Описание

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;

Нельзя удалить : File not found

Примечание

Авторизация



Счетчики