Глава 27 Дайте кораблю минутный отдых!
Ой, что мы с вами натворили! Могучая программа шифрования файлов дает нам право если не на медаль, то хотя бы на передышку. Пощадим наши серые клеточки и отправимся на экскурсию по своему кораблю — среде программирования Free Pascal. Ведь мы обошли еще не все палубы этого лайнера. Сейчас рассмотрим настройку компилятора, а в следующей главе обсудим возможности текстового редактора и справочной системы.
Ошибка ошибке рознь
Где найти безгрешных программистов? Нет таковых! Лихорадочно барабаня по клавишам в попытке изваять очередной проект, мы то и дело ошибаемся. Часть этих ошибок отлавливает компилятор, — он видит синтаксические ошибки — нарушения правил языка. Вы споткнулись на ключевом слове или забыли объявить переменную? — нажмите клавишу F9, и компилятор «ткнет носом» в место ошибки. И пока не исправите свои огрехи, не надейтесь получить исполняемый файл. Зато и работают такие программы, «непосильным трудом нажитые», весьма надежно. Восхищенный новичок однажды породил афоризм: «компилируется — значит работает». Увы! если бы так! Некоторые ошибки проявляются лишь во время работы программы, — это ошибки времени исполнения — Runtime errors.
Фатальные ошибки
Да, компилятор Паскаля способен уберечь от многих ошибок, но посмотрите на следующий пример:
var X : integer; begin
Readln(X);
Writeln(100 div X);
end.
Программа печатает результат деления числа 100 на переменную X. Здесь нет синтаксических ошибок. И все работает прекрасно, пока пользователь не введет число ноль. Тогда вместо результата деления вы получите неприятное сообщение «Runtime error 200», и программа прервется. Иначе говоря, деление на ноль не позволено никому, даже компьютеру.
Выручит ли здесь компилятор? Ведь это логическая ошибка, то есть ошибка в алгоритме. Нет, тут поможет лишь исправление программы, например, так.
179
Глава 27 Дайте кораблю минутный отдых!
var X : integer; begin
Readln(X); if X<>0
then Writeln(100 div X)
else Writeln(’Не делите на ноль, умоляю Вас!’);
end.
Деление на ноль — это фатальная, то есть неисправимая ошибка, она приводит к аварийной остановке программы. Но случаются и ошибки иного рода.
«Простительные» ошибки
Вот пример по части обработки файлов, — на этой «кухне» мы уже побывали. Попытка открыть для чтения несуществующий файл влечет ошибку вода/вывода (по-английски — «I/O Error»), — это тоже ошибка времени исполнения. Кто виноват? Разумеется, пользователь, — данные надо вводить внимательней. Но программе от этого не легче, — она обязана как-то реагировать. Как? Проще всего аварийно завершиться. Но можно поступить мягче — разобраться в ситуации и подсказать пользователю, где он неправ.
И здесь компилятор поддержит вас, позволив настроить реакцию программы на некоторые ошибки времени исполнения. По сути, способов реагировать только два: прервать программу при появлении ошибки, либо нет. Вариант реакции настраивают через опции компилятора. Рассмотрим выгоды такой настройки на примере ошибок ввода/вывода.
Опции компилятора
Обратимся к настройкам компилятора. Щелкните по пункту меню Options à Compiler… (рис. 60), и перед вами появится окно для настройки опций
(рис. 61).
Настройка опций компилятора
Рис. 60 – Выбор пункта меню для настройки опций компилятора
180
Глава 27 Дайте кораблю минутный отдых!
Контроль ошибок времени исполнения
Рис. 61 – Окно настроек опций компилятора
Вкладка «Generated code» содержит нужную нам группу флажков «Code generation». Флажок «I/O checking» заведует реакцией программы на ошибки ввода-вывода («I/O» — это сокращение от Input/Output — «ввод/вывод»). При установленном флажке компилятор будет создавать исполняемые EXE-файлы так, что ошибки ввода-вывода аварийно завершат программу. А если сбросить флажок и снова откомпилировать ту же программу, она поведет себя иначе, — программа не погибнет, однако и работать, как следует, не будет. В чем же смысл настройки?
Обработка ошибок ввода-вывода
Смысл в том, чтобы самому следить за вероятными ошибками. Для слежки используют функцию IOResult, которая не имеет параметров и возвращает ноль, если ошибок ввода-вывода не произошло. А если эта неприятность все же случилась, функция вернет ненулевой код ошибки, по которому легко выяснить её причину. Обратите внимание: функция возвращает состояние последней выполнявшейся операции ввода-вывода. При ошибке дальнейшая работа с файлом автоматически блокируется до его повторного открытия.
Рассмотрим способ безаварийного определения наличия файла на диске (здесь имя файла содержится в переменной FileName).
Assign(F, FileName); |
Reset(F); |
if IOResult=0
then Writeln (’Нашелся файл ’+ FileName)
else Writeln (’Файл ’+FileName+’ не обнаружен!’);
Этот фрагмент надёжно сработает только при отключенном флажке «I/O checking», иначе программа может прерваться аварийно. Стало быть, перед компиляцией надо проверять состояние флажка, а это хлопотно и ненадежно.
181
Глава 27 Дайте кораблю минутный отдых!
В настройках опций компилятора через меню есть и другой изъян. Как быть, когда в разных местах программы требуется по-разному реагировать на ошибки: где-то включить этот контроль, а где-то нет? Но флажок действует на всю программу в целом, глобально, — он не допускает выборочной настройки. Что делать?
Директивы компилятора
Выручают директивы, — особые сочетания символов, избирательно настраивающие компилятор. Директивы не являются элементами языка, поэтому вставляются в программу по-хитрому — внутри комментариев. Ведь комментарии, как известно, компилятор должен игнорировать, пропускать мимо ушей. Но компилятор просматривает и комментарии, «процеживая» их в поисках директив (подобно тому, как мы «процеживали» строки в поиске заменяемых символов).
Большинство директив выглядит как сочетание символа доллара «$» с латинской буквой и последующего знака «+» или «—». Все это заключается внутрь комментария. Знак «+» включает действие директивы, а «—» — отключает, что равносильно установке или сбросу флажков на вкладке опций компилятора. Например, директива, управляющая реакцией на ошибки ввода-вывода, записывается так.
{ $I+ |
- включить контроль ввода-вывода } |
{$I- - отключить контроль ввода-вывода }
Водин комментарий можно вместить несколько директив. Перечень директив вы найдете в справке по компилятору и в приложении Ж.
Директиву – в студию!
Сейчас мы извлечем первую пользу из директив: сотворим функцию, определяющую наличие файла на диске. Применим для этого директиву $I. Наша булева функция будет возвращать TRUE, если файл, имя которого передано в параметре, существует. Вот её текст, а заодно и фрагмент тестирующей программы.
182