Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Обработка ошибки открытия файла

Delphi , Файловая система , Файлы

Обработка ошибки открытия файла

Открытие файла для ввода (чтения) выполняется вызовом процедуры Reset, имеющей один параметр — файловую переменную. Перед вызовом процедуры Reset с помощью функции AssignFile файловая переменная должна быть связана с конкретным файлом.

Например, следующие инструкции открывают файл для ввода:

AssignFile(f, 'c:\delphiworld.txt'); 
Reset(f);

Если имя файла указано неверно, например файла с указанным именем на диске нет, то возникает ошибка времени выполнения программы. Следует отметить, что другой причиной возникновения ошибки при открытии файла, находящегося на гибком диске, может быть отсутствие готовности дисковода, проще говоря, отсутствие диска в накопителе.

Поэтому в программе следует предусмотреть возможность повторной попытки открытия файла после подтверждения повторения операции.

Как и при открытии файла для записи, программа может взять на себя задачу обработки возможной ошибки при открытии файла, проверяя значение функции IOResult.

Фрагмент программы, текст которого приведен в листинге, использует значение функции lOResult для проверки результата открытия файла. Если попытка открыть файл вызывает ошибку, то программа выводит диалоговое окно с сообщением об ошибке и запросом на подтверждение повторного открытия файла.

var
  fname: string[80]; // имя файла
  f: TextFile; // файл
  res: integer; // код ошибки открытия файла (значение lOResult)
  answ: word; // ответ пользователя
begin
  fname := 'a:\test.txt'; AssignFile(f, fname);
  repeat
  {$I-}
  Reset(f); // открыть файл для чтения
  {$!+}
  res := IOResult;

  if res <> 0 then
    answ := MessageDlg('Ошибка открытия '
      + fname + #13 + 'Повторить попытку?', mtWarning,
      [mbYes, mbNo], 0); until (res = 0) or (answ = mrNo);

  if res <> 0 then
    exit; // завершение процедуры

// здесь инструкции, которые выполняются
// в случае успешного открытия файла

end;

Обработка ошибки открытия файла в программе на языке Delphi обеспечивается вызовом функции IOResult и выводом диалогового окна с запросом на подтверждение повторной попытки открытия файла.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Файлы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-23 20:05:38/0.0036721229553223/0