Работа с файлам в Дельфи
Категория реферата: Рефераты по информатике, программированию
Теги реферата: quality assurance design patterns системный анализ, тема здоровый образ жизни реферат
Добавил(а) на сайт: Меркурия.
Предыдущая страница реферата | 1 2 3 4 5
...
Reset(F);
ReadLn(F, S);
...
except
MessageDlg("Ошибка работы с файлом", mtError, [mbOk], 0);
end;
finally
CloseFile(F);
end;
Но этот способ может не сработать, если была попытка открытия несуществующего файла (возникнет искючение при выполнении CloseFile(F)).
Способ 2 - Эффективный
Известно, что программа сама берет на себя обработку исключений. Но она не всегда делает это правильно. Поэтому лучшим решением было бы самому проконтролировать момент открытия файла. Для этого нужно сначала отключить автоматическую обработку исключений директивой {I-}. А включить можно так: {I+}. Потом свериться со значением функции IOResult. При успешном открытии файла она возвращает 0. Вот пример:
{I-}
Reset(F);
{I+}
if IOResult0 then
begin
MessageDlg("Файл "+PChar(FileName)+ " несуществует", mtError, [mbOk], 0);
EXIT; //продолжать нельзя
end;
Все это вставьте в процедуру чтения файла (в примере выше) вместо строки Reset(F). Так же можно застраховаться от сбоев вставив эту конструкцию в процедуру сохранения файла вместо строки Rewrite.
Скачали данный реферат: Shurygin, Фернандес, Чичканов, Ljahov, Vseslava, Романа, Kublanov.
Последние просмотренные рефераты на тему: шпоры по философии, реферати українською, курсовые работы бесплатно, 5 баллов.
Предыдущая страница реферата | 1 2 3 4 5