Delphi

Вопрос

Как отловить системную ошибку при операциях с файлами?

Ответ

Для Паскаль функций, например, BlockWrite, можно использовать такую конструкцию:

try
BlockWrite(f, buf, count); //См.также хелп: параметр AmtTransferred
    ..
except
    on E:EInOutError do
      begin
ShowMessage('Произошла ошибка записи ' + E.Message);
   ..// пытаемся что-то поправить
   if {не удалось} then
raise; //Повторно возбуждаем исключение, чтобы не удалить файл
      end;
end;

..
CloseFile(..);
DeleteFile(..);

Из конференции Delphi