ЭЛЕКТРОННАЯ БИБЛИОТЕКА КОАПП
Сборники Художественной, Технической, Справочной, Английской, Нормативной, Исторической, и др. литературы.


Реализуем лист некондиция и другой лежалый металл

 

B.Pascal 7 & Objects. Руководство пользователя

                       Руководство пользователя
ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН

         B.Pascal 7 & Objects /UG     - 1 -

        Введение........................................................6
          Как использовать руководства по Borland Pascal................6
        Глава 1. Установка и запуск Borland Pascal.....................10
          Использование программы Install..............................10
          Программа Install и Windows..................................11
          Запуск Borland Pascal........................................12
          Защищенный режим и память....................................12
        Запуск Borland Pascal for Windows..............................15
          Запуск BP.EXE в расширенном режиме Windows 386...............15
          Запуск BP.EXE в стандартном режиме Windows...................15
          Запуск BP.EXE в окне Windows DOS.............................15
          Жидкокристаллические и плазменные экраны.....................16
          Файл README..................................................16
          Файлы FILELIST.DOC и HELPME!.DOC.............................16
          Примеры программ.............................................17
        Глава 2. Что нового в Borland Pascal...........................18
          Три интегрированных интерактивных среды разработки программ..18
          Новые средства IDE...........................................18
          Компилятор командной строки, работающий в защищенном режиме..20
          Среда разработки программ защищенного режима DOS.............20
          Динамически компонуемые библиотеки DOS.......................20
        Добавления к языку Паскаль.....................................22
          Улучшения в библиотеке исполняющей системы...................23
        Новые подпрограммы модуля System...............................24
          Новые модули.................................................24
          Новые директивы компилятора..................................25
          Усовершенствования компилятора...............................26
          Улучшения в Turbo Vision.....................................26
          Улучшения ObjectWindows......................................27
          Новые средства и утилиты.....................................28
        Глава 3. Основы интегрированной среды для DOS..................29
          Запуск IDE...................................................30
          Компоненты интегрированной среды.............................30
        Окна IDE.......................................................33
        Управление окном...............................................36
        Строка состояния...............................................38
        Диалоговые окна................................................39
        Глава 4. Программирование в интегрированной интерактивной
          среде для DOS................................................43
          Запуск IDE и выход из нее....................................43
          Параметры запуска............................................43
          Установка параметров.........................................48
        Выход из IDE...................................................49
          Использование справочной системы Help........................49
          Перемещение в справочной системе.............................49
          Запрос помощи................................................50
          Копирование примеров исходного кода..........................51
          Загрузка других справочных файлов............................52
          Выход из справочника Help....................................53
          Запись и редактирование исходного кода.......................53
          Настройка конфигурации редактора.............................54

         B.Pascal 7 & Objects /UG     - 2 -

          Изменение решения: команда Undo..............................54
          Групповая отмена.............................................54
          Отмена отмены................................................55
        Работа с блоками текста........................................56
          Выделение блока..............................................56
          Вырезание, копирование и вставка блоков......................56
          Изменение поведения выделенных блоков........................57
        Поиск..........................................................58
          Поиск и замена...............................................59
          Соответствие пар ограничителей...............................59
        Переход к строке с заданным номером............................61
          Использование локального меню окна редактирования............61
        Выделение синтаксиса...........................................62
          Выбор файлов для выделения...................................63
          Запрещение выделения синтаксиса..............................63
        Печать исходного кода..........................................65
        Работа с файлами...............................................66
        Открытие файлов................................................67
          Открытие файла в позиции курсора.............................68
        Компиляция и выполнение........................................69
          Выбор целевой платформы......................................69
        Компиляция.....................................................71
          Формирование (Make)..........................................71
        Построение (Build).............................................73
          Выполнение...................................................73
          Передача программе параметров................................73
        Параметры компилятора и компоновщика...........................74
          Оптимизация кода.............................................76
        Условная компиляция............................................79
        Директивы DEFINE и UNDEF.......................................80
        Предопределенные идентификаторы................................81
          Идентификаторы IFxxx, ELSE и ENDIF...........................81
          Директивы IFDEF и IFNDEF.....................................83
          Директива IFOPT..............................................84
        Просмотр исходного кода........................................85
        Просмотр объектов..............................................88
        Просмотр модулей...............................................95
        Просмотр глобальных идентификаторов............................96
        Просмотр идентификаторов в исходном коде.......................97
        Просмотр функций ObjectBrowser.................................99
        Выполнение в IDE других программ..............................101
          Настройка меню Tools........................................101
          Работа с окном Messages.....................................103
        Настройка конфигурации IDE....................................105
          Сохранение рабочей операционной среды.......................105
          Использование файла конфигурации............................105
          Использование файла оперативной области.....................106
        Управление проектом...........................................108
        Глава 5. Программирование в интегрированной интерактивной
         среде для Windows............................................110
          Запуск IDE для Windows......................................110
        Использование оперативной полосы..............................111
          Настройка конфигурации оперативной полосы...................114

         B.Pascal 7 & Objects /UG     - 3 -

        Использование справочной системы Help.........................115
          Перемещение по справочной системе...........................115
          Запрос помощи...............................................116
        Копирование примеров кода.....................................119
          Выход из справочной системы.................................119
          Запись и редактирование исходного кода......................119
          Настройка конфигурации редактора............................120
        Набор команд..................................................121
          Использование редактора.....................................121
        Выделение синтаксиса..........................................122
          Цветовое выделение текста...................................122
          Использование системных цветов Windows......................123
          Изменение атрибутов текста..................................123
        Печать исходного кода.........................................125
        Работа с файлами..............................................126
          Открытие файлов.............................................126
          Где находятся файлы?........................................127
          Работа с файлами в другом каталоге..........................127
          Компиляция и выполнение.....................................128
          Просмотр исходного кода.....................................128
        Просмотр объектов.............................................133
          Буквенные символы в ObjectBrowser...........................134
          Фильтры.....................................................135
        Просмотр глобальных идентификаторов...........................137
          Просмотр идентификаторов в исходном коде....................137
          Выполнение в IDE других программ............................138
          Настройка конфигурации IDE..................................139
        Глава 6. Отладка в интегрированной среде......................140
          Что такое отладка?..........................................140
          Какие существуют виды ошибок?...............................140
        Методы отладки................................................143
        Генерация отладочной информации...............................145
        Управление выполнением........................................146
        Что такое шаг?................................................147
          Выполнение программы по шагам...............................147
        Трассировка программы.........................................149
          Трассировка или выполнение по шагам?........................149
        Выполнение больших фрагментов.................................151
          Поиск нужного места.........................................151
          Повторное выполнение........................................151
          Отслеживание вывода программы...............................152
          Переключение экранов........................................152
          Окно Output.................................................152
          Использование двух мониторов................................152
          Просмотр значений...........................................153
        Что такое выражение?..........................................154
        Просмотр выражений............................................156
        Спецификаторы формата в выражениях отладчика..................157
          Вычисление и модификация....................................158
        Использование точек останова..................................160
          Задание точек останова......................................160
          Отмена точке останова.......................................160
          Модификация точек останова..................................160

         B.Pascal 7 & Objects /UG     - 4 -

          Создание условный точек останова............................161
          Прерывание программы без точек останова.....................161
        Глава 7. Модули Borland Pascal................................163
          Что такое модуль?...........................................163
        Структура модуля..............................................164
        Интерфейсная секция...........................................165
          Секция реализации...........................................165
          Секция инициализации........................................166
          Как используются модули?....................................166
          Ссылки на описания модуля...................................168
          Оператор uses секции реализации.............................170
        Стандартные модули............................................171
          Создание ваших собственных модулей..........................171
          Компиляция модуля...........................................171
          Доступность модуля для программы............................172
        Пример........................................................173
          Модули и большие программы..................................173
          Утилита TPUMOVER............................................175
        Глава 8. Использование указателей.............................176
          Для чего используются указатели?............................176
          Работа с большими объемами данных...........................176
          Работа с данными неизвестного размера.......................177
          Работа с временными буферами данных.........................178
          Работа с несколькими типами данных..........................178
          Связанные списки............................................179
          Что такое указатель?........................................179
          Ссылочный тип...............................................179
          Типизированные указатели....................................180
          Разыменование указателей....................................180
        Как использовать указатели?...................................182
          Выделение памяти для динамических переменных................182
        Освобождение памяти, выделенной для динамических переменных...185
          Процедуры GetMem и FreeMem..................................185
        Проверка объема доступной динамически распределяемой памяти...188
          Общие проблемы использования указателей.....................188
          Разыменование неинициализированных указателей...............188
          Потери динамически распределяемой памяти....................189
          Управление связанным списком................................190
        Построение списка.............................................192
          Перемещение по списку.......................................192
          Освобождение выделенной для списка памяти...................193
        Глава 9. Объектно-ориентированное программирование............194
          Объекты.....................................................195
          Наследование................................................196
        Объекты: наследующие записи...................................198
          Экземпляры объектных типов..................................200
          Поля объектов...............................................200
          Хорошая и плохая техника программирования...................201
        Методы........................................................202
          Совмещенные код и данные....................................203
          Определение методов.........................................204
          Область действия метода и параметр Self.....................205
          Поля данных объекта и формальные параметры метода...........206

         B.Pascal 7 & Objects /UG     - 5 -

          Объекты, экспортируемые модулями............................207
          Секция private..............................................208
          Программирование в "действительном залоге"..................209
        Инкапсуляция..................................................211
          Методы: никакого ухудшения..................................212
          Расширяющиеся объекты.......................................212
          Наследование статических методов............................216
        Виртуальные методы и полиморфизм..............................220
          Раннее связывание против позднего связывания................221
          Совместимость типов объектов................................222
        Полиморфические объекты.......................................225
          Виртуальные методы..........................................226
          Проверка диапазонов при вызове виртуальных методов..........229
          Расширяемость объекта.......................................230
          Статические методы или виртуальные методы?..................230
          Динамические объекты........................................231
          Размещение и инициализация с помощью процедуры New..........232
          Удаление динамических объектов..............................233
        Деструкторы...................................................234
          Пример размещения динамического объекта.....................236
          Что же дальше?..............................................240
          Заключение..................................................240
        Глава 10. Взгляд на Windows...................................242
        Что такое приложение Windows?.................................243
          Преимущества Windows........................................244
          Требования..................................................245
          Программные средства........................................245
          Архитектура с управлением по событиям.......................245
          Графика, независимая от устройств...........................245
          Многозадачность.............................................246
          Управление памятью..........................................246
          Ресурсы.....................................................247
          Динамическая компоновка.....................................247
          Буфер вырезанного изображения...............................248
          Динамический обмен данными..................................248
        Множественный документальный интерфейс........................249
        Типы данных Windows...........................................250
          Объектно-ориентированная работа с окнами....................250
          Лучший интерфейс с Windows..................................250
            Интерфейсные объекты......................................251
            Абстрагирование функций Windows...........................251
            Автоматизация ответа на сообщения.........................251
        Структура программы Windows...................................253
          Структура Windows...........................................253
          Взаимодействие с Windows и DOS..............................253
        Элементарная программа........................................254
            Действия программы при запуске............................254
            Назначение основного окна.................................255
        Цикл разработки прикладной программы..........................256
          Изучение ObjectWindows......................................256

         B.Pascal 7 & Objects /UG     - 6 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                                  Введение
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal  with  Objects  (Паскаль  с  объектами  фирмы
        Borland) предназначен  для всех тех пользователей,  которые хотят
        разрабатывать прикладные программы для операционной  системы  DOS
        или операционной  среды  Windows.  Вы можете создавать прикладные
        программы, работающие в реальном режиме DOS, Windows или приклад-
        ные  программы  для  защищенного режима DOS или Windows.  Borland
        Pascal предлагает богатую среду программирования,  которая делает
        разработку  программного обеспечения более производительной и бо-
        лее приятной.  Используя структурированный язык  высокого  уровня
        Паскаль, вы  можете писать программы для приложений любого типа и
        размера.

             Borland Pascal 7.0,  оставаясь совместимым с программным ко-
        дом, написанным  для  Turbo  Pascal или Turbo Pascal for Windows,
        предоставляет вам новые  возможности.  Исследуя  эти  возможности
        следует учитывать, что этот компилятор Паскаля является быстрым и
        эффективным компилятором и принят в качестве  общемирового  стан-
        дарта.

                Как использовать руководства по Borland Pascal
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal  поставляется  с  одиннадцатью руководствами,
        каждое из которых имеет свое назначение.

                   Примечание: Если раньше вы никогда не работали с прог-
              раммным продуктом Turbo Pascal,  прочтите руководство поль-
              зователя.

             "Руководство пользователя" будет для вас полезным, если:

             - вы хотите знать, как установить Borland Pascal;

             - ранее  вы использовали Turbo Pascal или Borland Pascal for
               Windows и хотите знать, что нового в этой версии;

             - вы хотите узнать,  как работать с  интегрированной  средой
               разработки программ  Borland  (IDE)  и использовать ее для
               разработки и отладки программ;

             - вы хотите узнать о программных модулях и о том,  как напи-
               сать свой собственный модуль;

             - ранее  вы не использовали в своих программах указатели или
               хотите освежить свои знания об указателях;

             - вы не знакомы с объектно-ориентированным  программировани-
               ем;

             - хотите получить начальные сведения об ObjectWindows.

         B.Pascal 7 & Objects /UG     - 7 -


                   Примечание: Если  вы  хотите  узнать  о  языке Borland
              Pascal, прочтите "Руководство по языку".

             "Руководство по языку" посвящено языку Borland Pascal и  по-
        ясняет как извлечь из него максимум возможного.  Используйте "Ру-
        ководство по языку", чтобы:

             - найти формальное определение языка Borland Pascal, включая
               подробные  диаграммы синтаксиса,  описывающие каждую конс-
               трукцию Borland Pascal;

             - узнать как использовать библиотеки динамической компоновки
               и как написать свою собственную библиотеку;

             - изучить организацию библиотек исполняющей системы и их ис-
               пользование;

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

             - исследовать,  как программы Borland Pascal  использую  па-
               мять;

             - узнать,  как  Borland Pascal реализует управление програм-
               мой;

             - узнать об оптимизации кода в Borland Pascal;

             - выяснить, как Borland Pascal использует язык ассемблера.

                   Примечание: При программировании в  Borland  Pascal  в
              качестве основного  справочника используйте "Справочное ру-
              ководство программиста".

             "Справочное руководство  программиста"  представляет   собой
        справочник со всеми необходимыми вам подробностями.  При програм-
        мировании держите это руководство рядом с компьютером. Используй-
        те "Справочное руководство программиста", если вы хотите:

             - узнать о деталях конкретной процедуры,  функции,  типе или
               константе библиотеки исполняющей системы и  выяснить,  как
               их использовать;

             - понять,  как  работают  директивы компилятора,  что делает
               каждая директива компилятора и как пользоваться этими  ди-
               рективами;

             - выяснить, что означает сообщение об ошибке;

             - познакомиться с использованием компилятора,  работающего в
               режиме командной строки;

         B.Pascal 7 & Objects /UG     - 8 -


             - просмотреть команды редактора;

             - просмотреть краткую справочную  информацию  по  директивам
               компилятора;

             - ознакомиться со списком зарезервированных слов и стандарт-
               ных директив.

                   Примечание: Чтобы узнать о разработке программ для DOS
              с помощью  Turbo Vision,  используйте "Руководство по прог-
              раммированию с использованием Turbo Vision"

             "Руководство по  программированию  с  использованием   Turbo
        Vision" знакомит  вас  с  Turbo Vision и поясняет как с ней рабо-
        тать. Turbo Vision - это интегрированная система разработки прик-
        ладных программ,  позволяющая вам быстро начать объектно-ориенти-
        рованное программирование в DOS.  Чтобы освоить Turbo Vision, вам
        нужно:

             - проработать руководство и приобрести некоторые навыки раз-
               работки прикладной программы Turbo Vision;

             - изучить иерархию Turbo Vision  и  познакомиться  с  типами
               объектов;

             - понять смысл программирования,  управляемого событиями,  и
               что оно за собой влечет;

             - использовать справочник по Turbo Vision для нахождения де-
               тальной информации  об  объектах  и соответствующих типах,
               константах и переменных в иерархии Turbo Vision.

                   Примечание: Чтобы узнать о том  как  писать  программы
              для Windows с помощью ObjectWindows, используйте "Руководс-
              тво по программированию с использованием ObjectWindows"

             "Руководство по    программированию     с     использованием
        ObjectWindows" -  это  ваше руководство для разработки приложений
        Windows с помощью библиотеки ObjectWindows  Borland  Pascal  with
        Objects. Чтобы овладеть ObjectWindows, вам понадобится:

             - проработать руководство и приобрести некоторые навыки раз-
               работки прикладной программы ObjectWindows;

             - изучить иерархию ObjectWindows и прочитать  о  том,  какие
               задачи могут выполнять объекты ObjectWindows;

             - научиться  работать в своей программе ObjectWindows с гра-
               фикой, ресурсами и данными;

             - использовать справочник по  ObjectWindows  для  нахождения
               детальной  информации об объектах и соответствующих типах,

         B.Pascal 7 & Objects /UG     - 9 -

               константах и переменных в иерархии ObjectWindows.

                   Примечание: Чтобы узнать  об  инструментальных  средс-
              твах, которые могут сделать программирование на Паскале еще
              более продуктивным,  познакомьтесь с "Руководством по  инс-
              трументальным средствам и утилитам".

             "Руководство по инструментальным средствам и утилитам" пояс-
        няет как использовать поставляемые с  Borland  Pascal  инструмен-
        тальные средства и утилиты. Познакомьтесь с "Руководством по инс-
        трументальным средствам и утилитам", если вы хотите:

             - узнать о том, как использовать утилиту TPUMOVER для добав-
               ления и удаления модулей из библиотеки исполняющей системы
               Borland Pascal.

             - выяснить,  как можно использовать  администратор  проектов
               MAKE;

             - использовать утилиту WinSight для проверки сообщений,  по-
               лучаемых и контролируемых вашим приложением Windows;

             - использовать утилиту WinSpector для проверки вашего прило-
               жения Windows  после  получения невосстанавливаемой ошибки
               прикладной программы  (Unrecoverable  Application  Error),
               чтобы помочь вам выяснить, что здесь неверно;

             - прочитать о компиляторе ресурсов Resource Compiler, позво-
               ляющем компилировать ваши ресурсы  Windows;  для  создания
               ресурсов  вы,  несомненно,  предпочтете использовать пакет
               разработчика ресурсов фирмы Borland  (Resource  Workshop),
               но для полноты мы включили компилятор ресурсов;

             - узнать о том, как создавать справочные файлы Windows 3.0 и
               3.1;

             - выяснить,  как использовать при работе с инструментальными
               средствами  режима  командной  строки резидентную в памяти
               справочную систему Borland Pascal - Turbo Help.

             Кроме этих книг,  специально посвященных Borland Pascal, па-
        кет  Borland  Pascal включает в себя также следующие руководства,
        которые можно использовать с Borland Pascal и  другими  языковыми
        средствами Borland:

             - "Руководство пользователя по Турбо отладчику";

             - "Руководство пользователя по Турбо профилировщику";

             - "Руководство пользователя по Турбо Ассемблеру";

             - "Краткий справочник по Турбо Ассемблеру".


         B.Pascal 7 & Objects /UG    - 10 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                   Глава 1. Установка и запуск Borland Pascal
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Ваш пакет Borland Pascal включает в себя пять различных вер-
        сий Borland Pascal:

             * BP.EXE,  интегрированную  среду разработки программ (IDE),
               которая работает в  защищенном  режиме  DOS  и  генерирует
               прикладные  программы DOS реального режима,  Windows и DOS
               защищенного режима.
             * BPW.EXE,   интегрированную  среду,  которая  работает  под
               Windows и генерирует прикладные  программы  DOS  реального
               режима, Windows и DOS защищенного режима.
             * TURBO.EXE,  интегрированную среду,  которая работает в ре-
               альном режиме DOS и генерирует только прикладные программы
               DOS реального режима.
             * BPC.EXE,  компилятор, работающий в режиме командной строки
               в защищенном режиме DOS и генерирующий прикладные програм-
               мы DOS реального режима, Windows и DOS защищенного режима.
             * TPC.EXE компилятор, работающий в режиме командной строки в
               реальном режиме DOS и генерирующий только прикладные прог-
               раммы DOS реального режима.

             Borland Pascal  поставляется с автоматической программой ус-
        тановки,  которая называется INSTALL. Из-за использования методов
        упаковки файлов вы должны воспользоваться данной программой, а не
        просто скопировать на свой жесткий  диск  файлы  Borland  Pascal.
        Программа  INSTALL  автоматически  копирует и распаковывает файлы
        Borland Pascal и Borland Pascal for Windows.

             Мы предполагаем,  что вы уже знакомы с командами DOS. Напри-
        мер, для создания резервных  копий  своих  дистрибутивных  дискет
        (купленных вами дискет) вам потребуется команда  DISKCOPY.  Когда
        вы получите дискеты, сделайте их полную рабочую копию, а оригина-
        лы сохраните затем в надежном месте.

             Данная глава содержит информацию по следующим вопросам:

             * установка  Borland  Pascal  и Borland Pascal for Windows в
               вашей системе;
             * доступ к файлу README;
             * доступ к файлу HELPME!.DOC;
             * использование примеров программ Borland.

                         Использование программы Install
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Кроме выполнения других функций программа Install распознает

         B.Pascal 7 & Objects /UG    - 11 -

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

             Чтобы установить Borland Pascal, сделайте следующее:

             1. Вставьте установочную дискету (дискету 1) в  дисковод  A.
                Наберите следующую команду, затем нажмите клавишу Enter:

                    A: INSTALL

             2. Нажмите Enter, когда выведется экран установки.

             3. Следуйте подсказкам.

             4. Программе  Install  для  записи временных файлов перед их
                распаковкой требуется пространство на диске.  В начальном
                экране INSTALL перечисляются требования к пространству на
                диске;  если его недостаточно, выйдите из Install и осво-
                бодите необходимое пространство.  После завершения работы
                Install эти временные файлы будут удалены.

             5. В конце установки вам может потребоваться добавить в файл
                CONFIG.SYS следующую строку:

                    FILES = 20

                а в файл AUTOEXEC.BAT следующую строку:

                    PATH = C:\BP\BIN

                (или модифицируйте оператор PATH, если он уже имеется).

                   Примечание: Если вы смените используемый по  умолчанию
              каталог, вам нужно изменить установку PATH.

             Когда вы  завершите работу,  программа Install напомнит вам,
        что нужно прочесть файл README, который содержит последнюю инфор-
        мацию о  деталях  имеющегося  у вас издания данной версии Borland
        Pascal.

                           Программа Install и Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В следующий раз, когда вы запустите Microsoft Windows (после
        выхода из программы просмотра файла  README),  выведется  запрос,
        хотите  ли вы создать в администраторе программ программную груп-
        пу Borland Pascal.  Если вы выберете утвердительный  ответ,  Yes,
        Windows создает  программную  группу,  содержащую пиктограммы для

         B.Pascal 7 & Objects /UG    - 12 -

        программ и утилит Borland Pascal и Borland Pascal for Windows.

             Программа Install предполагает,  что Windows устанавливается
        в каталоге,  который вы задали как каталог Windows в процессе ус-
        тановки. Она предполагает также,  что администратор программ  за-
        пускается автоматически   как   "оболочка"  Windows  при  запуске
        Windows. Если вы используете программную  оболочку,  отличную  от
        администратора программ,  то вам может потребоваться отредактиро-
        вать файл SYSTEM.INI в каталоге Windows и включить в него строку:

             SHELL=PROGMAN.EXE

             В противном случае при первоначальном открытии Windows и по-
        пытке Borland Pascal создать новую группу администратора программ
        вы получите сообщение, говорящее об "отсутствии связи с админист-
        ратором программ".  После того как Borland Pascal for  Windows  и
        другие инструментальные средства будут установлены в группе адми-
        нистратора программ,  вы можете проверить эти установки  и,  если
        хотите, переустановить их в альтернативной командной оболочке.

                              Запуск Borland Pascal
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Для запуска  Borland Pascal перейдите в созданный программой
        Install подкаталог Borland Pascal BIN.  Обычно этим каталогом яв-
        ляется каталог C:\BP\BIN. Для запуска интегрированной среды защи-
        щенного режима наберите:

             BP

                   Примечание: Об интегрированной среде Windows рассказы-
              вается ниже.

             Файлы DPMI16BI.OVL  и RTM.EXE должны присутствовать в  ката-
        логе по текущему маршруту, в противном случае BP.EXE не запустит-
        ся.

             Чтобы запустить интегрированную среду IDE,  работающую в ре-
        альном режиме, наберите:

             TURBO

                           Защищенный режим и память
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Интегрированная среда DOS защищенного режима, компилятор ре-
        жима командной строки и другие инструментальные средства защищен-
        ного режима используют интерфейс защищенного режима DOS, что дает
        вам доступ ко всей памяти компьютера.  Кроме того,  вы можете ис-
        пользовать Borland  Pascal для написания своих собственных прило-
        жений, работающих в защищенном режиме.  Интерфейс защищенного ре-
        жима полностью прозрачен для пользователя, и за немногими возмож-
        ными исключениями вам не нужно о нем думать.

         B.Pascal 7 & Objects /UG    - 13 -


                                    DPMIINST

             Одним таким исключением может быть ситуация, когда вы запус-
        каете Borland Pascal самый первый раз.  Для определения того, как
        разрешить использование защищенного режима на  вашем  компьютере,
        Borland Pascal  использует  внутреннюю  базу данных характеристик
        различных машин и соответствующим образом настраивается.  Если на
        вашей машине более старый микропроцессор,  чем 80286,  то Borland
        Pascal может его не распознать.  При запуске  Borland  Pascal  вы
        увидите следующее сообщение:

             Machine not in database (RUN DPMIINST)
             (Машины нет в базе данных, запустите DPMIINST)

             Если вы  получили это сообщение,  просто запустите программу
        DPMIINST, набрав DPMIINST в ответ на подсказку DOS.

             Для определения  наилучшего  способа  разрешения защищенного
        режима DPMIINST выполняет на вашей машине последовательность тес-
        тов и автоматически конфигурирует соответствующим образом Borland
        Pascal. После выполнения программы DPMIINST вам больше не  потре-
        буется ее запускать.

             Некоторые администраторы памяти,  драйверы устройств и рези-
        дентные в  памяти  программы  (TSR)  могут  нарушать  способность
        DPMIINST анализировать  ваш  компьютер.  Если выполнение DPMIINST
        завершается неудачно, временно запретите или удалите эти програм-
        мы. Это дает DPMIINST неограниченный доступ, который необходим ей
        для определения наилучшего пути перехода в защищенный режим.

                               Переменная DPMIMEM

             По умолчанию интерфейс DPMIMEM Borland  Pascal  распределяет
        для своего использования всю доступную дополнительную и расширен-
        ную память.  Если вы не хотите распределять всю доступную  память
        для ядра  DPMIMEM,  вы  можете установить переменную операционной
        среды таким образом, чтобы задать максимальный объем используемой
        памяти. Эту  переменную  можно  ввести непосредственно в ответ на
        подсказку DOS или задать в виде строки  файла  AUTOEXEC.BAT,  ис-
        пользуя следующий синтаксис:

             SET DPMIMEM=MAXMEM nnnn

        где nnnn - объем памяти в килобайтах.

             Например, если  у  вас есть система с 4 мегабайтами памяти и
        вы хотите,  чтобы ядро DPMIMEM использовало 2 мегабайта, оставляя
        2 мегабайта  свободными,  переменную  DPMIMEM  следует установить
        следующим образом:

             SET DPMIMEM=MAXMEM 2000


         B.Pascal 7 & Objects /UG    - 14 -

                                     RTMRES

             RTMRES выполняет  предзагрузку  DPMI-сервера.  Он  разрешает
        DPMI и порождает командный процессор DOS.  Предзагрузка DPMI-сер-
        вера позволяет вам загружать  инструментальные  средства  Borland
        Pascal, работающий в защищенном режиме,  такие как BP, BPC, TASMX
        и т.д. несколько быстрее. Для выхода из командного процессора на-
        берите EXIT.

             RTMRES особенно полезен,  если вы используете BPC - компиля-
        тор командной строки,  работающий в защищенном режиме DOS. Каждый
        раз,  когда вы его вызываете,  загружается DPMI-сервер.  Если  вы
        предварительно  запустили RTMRES,  то сервер уже присутствует,  и
        компилятор режима командной строки загружается быстрее.

                       Borland Pascal и расширенная память

             После загрузки  ядра DPMI (выполнением BP или с помощью ути-
        литы RTMRES) интегрированная интерактивная среда  Borland  Pascal
        взаимодействует с  DPMI-сервером черед администратор этапа выпол-
        нения Borland (RTM.EXE) для распределения памяти  таким  образом,
        что сможет  загружаться  и выполняться интегрированная среда IDE.
        По умолчанию IDE использует всю расширенную память,  зарезервиро-
        ванную ядром DPMI.



         B.Pascal 7 & Objects /UG    - 15 -

                        Запуск Borland Pascal for Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Чтобы запустить Borland Pascal for Windows, щелкните кнопкой
        "мыши" на  пиктограмма  Borland Pascal for Windows администратора
        программ. Из  Windows вы можете также запускать две интегрирован-
        ные интерактивные среды для DOS; их пиктограммы можно найти в ад-
        министраторе программ.


                 Запуск BP.EXE в расширенном режиме Windows 386
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Интегрированная среда защищенного режима DOS должна прекрас-
        но работать, если вы запускаете Windows в расширенном режиме 386.
        Переменную DPMIMEM вам устанавливать не потребуется; вместо этого
        используйте для конфигурирования объема памяти, которую вы хотите
        отвести для использования Borland Pascal, файл PIF Borland Pascal
        for Windows (BP\BIN\BP.PIF).


                   Запуск BP.EXE в стандартном режиме Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Предварительная загрузка  DPMI-сервера  позволяет вам запус-
        кать инструментальные средства защищенного режима (BP, BPC, TASMX
        и т.д.)  в Windows в стандартном режиме DOS.  Для этого запустите
        RTMRES.EXE (как описано выше). Использование RTMRES.EXE в сочета-
        нии с Windows всегда устанавливает переменную DPMIMEM в объем па-
        мяти, меньший максимального.  Это обеспечивает в Windows  наличие
        достаточного объема физической памяти для работы.

             Если вы  работаете  под  управлением оболочки RTMRES,  то не
        сможете запустить Windows  в  улучшенном  режиме  386,  поскольку
        DPMI-сервер по  умолчанию распределяет всю расширенную память для
        своего собственного использования.  Вам нужно  сначала  выйти  из
        оболочки, а  затем запустить Windows или использовать для ограни-
        чения объема  памяти,  распределяемой  DPMI-сервером,  переменную
        DPMIMEM.


                        Запуск BP.EXE в окне Windows DOS
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если в окне Windows DOS вы выберите  запуск  интегрированной
        среды защищенного  режима,  то  вам  нужно сначала модифицировать
        файл DOSPRMPT.PIF (который можно найти в каталоге Windows),  бла-
        годаря чему  IDE защищенного режима сможет использовать расширен-
        ную память.

             Откройте файл DOSPRMPT.PIF с помощью редактора PIF и укажите
        объем расширенной памяти, который вы хотите использовать в интег-
        рированной интерактивной среде защищенного  режима.  Если  вы  не

         B.Pascal 7 & Objects /UG    - 16 -

        вполне знакомы с работой редактора PIF,  см. "Руководство пользо-
        вателя по Microsoft Windows".


                    Жидкокристаллические и плазменные экраны
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если у  вас  имеется портативный компьютер с жидкокристалли-
        ческим ли плазменным дисплеем,  то Borland Pascal следует  запус-
        тить с параметром запуска /L. Наберите:

             BP /L
        или
             TURBO /L

             Хотя вы  всегда можете запустить Borland Pascal таким спосо-
        бом, в IDE также можно настроить  конфигурацию  на  использование
        черно-белого экрана,  используя для этого диалоговое окно Optionі
        EnviromentіStartup. Выберите параметр LCD Color Set.


                                   Файл README
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Файл README содержит последнюю информацию, которая может от-
        сутствовать в документации.

             Borland Pascal автоматически помещает  вам  в  файл  README,
        когда вы  выполняете  программу Install.  Чтобы получить доступ к
        файлу README позднее,  вы можете  использовать  программу  README
        Borland Pascal, набрав в командной строке DOS следующие команды:

             CD \BP
             README

                        Файлы FILELIST.DOC и HELPME!.DOC
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Ваш установочный диск содержит файл с именем FILELIST.DOC, в
        котором перечислены все  файлы,  содержащиеся  на  дистрибутивных
        дискетах, и   даны  краткие  описания  каждого  из  них,  и  файл
        HELPME!.DOC, содержащий ответы  на  вопросы,  с  которыми  обычно
        сталкиваются пользователи. Если вы встретитесь с трудностями, об-
        ратитесь к файлу HELPME!.DOC. Для просмотра файлов FILELIST.DOC и
        HELPME!.DOC вы  можете использовать программу README.  Наберите в
        командной строке следующее:

             README HELPME!.DOC
        или
             README FILELIST.DOC


         B.Pascal 7 & Objects /UG    - 17 -


                                Примеры программ
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Пакет Borland Pascal включает в себя большое количество при-
        мером программ в исходном коде как для DOS,  так и  для  Windows.
        Эти программы находятся в подкаталогах каталога EXAMPLES, создан-
        ного программой Install. Каталог EXAMPLES содержит также подката-
        логи других  инструментальных  средств  и утилит,  поставляемых с
        Borland Pascal (таких  как  Turbo  Assembler,  Turbo  Debugger  и
        Resource Workshop).  Потратьте  немного времени и просмотрите эти
        каталоги. Вы  увидите,  сколько  для  вас  предусмотрено примеров
        программ.



         B.Pascal 7 & Objects /UG    - 18 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                      Глава 2. Что нового в Borland Pascal
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal with Objects - это  профессиональная  объект-
        но-ориентированная система программирования для реального и защи-
        щенного режима DOS и Windows.  Если вы работаете  с  программными
        продуктами Turbo Pascal или Turbo Pascal for Windows,  то из дан-
        ной главы вы узнаете о новых средствах Borland Pascal  и  о  том,
        где найти информацию о них.


           Три интегрированных интерактивных среды разработки программ
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal предоставляет вам три  интегрированных  инте-
        рактивных среды разработки программ (IDE):

             * BP.EXE, интегрированную среду разработки программ, которая
               работает в защищенном режиме DOS и  генерирует  по  вашему
               выбору прикладные программы DOS реального режима,  Windows
               и DOS защищенного режима. IDE защищенного режима означает,
               что  каждое  ваше очень большое приложение будет иметь для
               компиляции достаточно памяти.

             * BPW.EXE,   интегрированную  среду,  которая  работает  под
               Windows и генерирует по вашему выбору прикладные программы
               DOS реального режима, Windows и DOS защищенного режима.

             * TURBO.EXE,  интегрированную среду,  которая работает в ре-
               альном режиме DOS и генерирует только прикладные программы
               DOS реального режима,  работающие  только  на  процессорах
               80х86.

                   Примечание: Для  работы IDE DOS защищенного режима ваш
              компьютер должен иметь процессор 80286 или старше и не  ме-
              нее 2 мегабайт памяти.

             Об интегрированных  средах  для DOS рассказывается в Главе 4
        "Программирование в интегрированной интерактивной среде для DOS".
        О специальных  средствах интегрированной среды для Windows вы мо-
        жете узнать из Главы 5 "Программирование в интегрированной  инте-
        рактивной среде для Windows".


                               Новые средства IDE
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В перечисленных IDE вы можете найти следующие  новые  средс-
        тва:

             * Два средства просмотра объектов ObjectBrowser - одно в IDE
               для DOS защищенного режима,  другое в IDE для  Windows.  С
               помощью  ObjectBrowser  вы  можете  просматривать  в своей

         B.Pascal 7 & Objects /UG    - 19 -

               программе объекты и модули,  проверять свой исходный  код,
               получать полные перекрестные ссылки на каждый используемый
               в программе идентификатор и видеть свою программу с  новой
               позиции. Об ObjectBrowser для DOS и Windows в данной книге
               рассказывается ниже.

             * Выделение синтаксиса.  Во всех  интегрированных  средах  в
               программах используется цветовое выделение элементов кода,
               благодаря чему вы можете быстро идентифицировать фрагменты
               исходного кода.  В IDE для Windows вы можете также исполь-
               зовать синтаксические элементы, выделяемые жирным, наклон-
               ным шрифтом или подчеркиванием.  Во всех IDE вы можете пе-
               чатать синтаксически выделенный код. О выделении синтакси-
               са рассказывается в Главе 4 "Программирование в интегриро-
               ванной интерактивной среде для DOS" и в Главе 5  "Програм-
               мирование   в   интегрированной  интерактивной  среде  для
               Windows".

             * Оперативная полоса SpeedBar в IDE для Windows.  Эта опера-
               тивная  полоса  предоставляет быстрый способ выбора команд
               меню и других действий с помощью "мыши". Вы можете по сво-
               ему выбору  выводить  ее горизонтально,  вертикально или в
               виде свободной палитры, либо даже выключить ее полностью.

             * В редакторах для DOS и Windows имеются средства Undo  (От-
               мена) и Redo (Повтор).  Если вы сделаете в процессе редак-
               тирования ошибку,  нажмите Undo,  и ваша ошибка  исчезнет.
               Нажмите Redo - и она появится вновь.

             * Меню   инструментальных  средств  Tools.  Инструментальные
               средства и утилиты,  поставляемые с Borland Pascal, вы мо-
               жете запускать непосредственно из IDE. В IDE для DOS в ме-
               ню Tools вы можете добавить свои собственные утилиты и из-
               менить по  своему  усмотрению оперативные клавиши.  О меню
               Tools IDE для DOS и о меню Tools IDE для Windows рассказы-
               вается в Главе 4.

             * Окно  сообщений  Messages в IDE для DOS.  Окно Messages вы
               можете использовать для вывода сообщений из  таких  утилит
               как GREP.  Вы  можете  выбрать  редактирование программной
               строки со ссылкой на сообщение или отслеживать сообщения в
               исходном коде при просмотре сообщений.

             * Локальные меню во всех интегрированных средах. Простым на-
               жатием правой кнопки "мыши" или клавиш Alt+F10  вы  можете
               вывести локальное  меню  со списком команд,  относящихся к
               активному окну.

             * Информация об идентификаторах сохраняется от одного сеанса
               к другому.  Это  позволяет  после выхода и перезапуска IDE
               вам просматривать,  отлаживать или выполнять программы без
               перекомпиляции.


         B.Pascal 7 & Objects /UG    - 20 -

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

             * В интегрированных средах для DOS  поддерживаются  множест-
               венные устанавливаемые  пользователем справочные файлы.  В
               справочную систему Borland Pascal вы можете загрузить  до-
               полнительные справочные файлы. IDE объединяет тематические
               указатели вновь загруженных справочных файлов и  стандарт-
               ного системного тематического указателя Help.


           Компилятор командной строки, работающий в защищенном режиме
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Компилятор командной строки BPC.EXE,  работает в  защищенном
        режиме, благодаря  чему  очень большие программы имеют достаточно
        памяти для успешной компиляции.  Аналогично IDE для DOS, работаю-
        щей в защищенном режиме, BPC.EXE может создавать прикладные прог-
        раммы реального режима DOS,  Windows и защищенного режима DOS.  О
        компиляторе, работающем в режиме командной строки, рассказывается
        в  Главе  3  "Компиляторы,  работающие в режиме командной строки"
        "Справочного руководства программиста".

                Среда разработки программ защищенного режима DOS
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             С помощью компиляторов командной строки BP.EXE и BPC.EXE  вы
        можете создавать  программы,  работающие  в защищенном режиме DOS
        без использования оверлеев.  Ваши программы смогут, наконец, пре-
        высить барьер реального режима DOS в 640К.

             Для многих ваших программ все,  что нужно сделать для созда-
        ния приложения DOS защищенного режима,  это выбор защищенного ре-
        жима DOS в качестве целевой платформы и установка соответствующих
        параметров компилятора (см.  Главу 4). Возможно, вы захотите про-
        честь также  Главу 17 "Руководства по языку" ("Программирование в
        защищенном режиме DOS"),  которой вопросы, касающиеся защищенного
        режима, рассматриваются более углубленно.

                     Динамически компонуемые библиотеки DOS
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Динамически компонуемые библиотеки  (DLL)  традиционно  были
        частью разработки  программ Windows.  С помощью Borland Pascal вы
        сможете создавать DLL для DOS.

             Библиотеки DLL загружаются на этапе выполнения  отдельно  от
        ваших файлов  .EXE  и  могут совместно использоваться несколькими
        прикладными программами. DLL для DOS работают в защищенном режиме

         B.Pascal 7 & Objects /UG    - 21 -

        DOS и  полностью совместимы с DLL для Windows,  что позволяет вам
        совместно использовать DLL для прикладных программ DOS и Windows.
        О динамически компонуемых библиотеках рассказывается в  Главе  11
        "Динамически компонуемые библиотеки" в "Руководстве по языку".

         B.Pascal 7 & Objects /UG    - 22 -

                           Добавления к языку Паскаль
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal  имеет несколько новых расширения языка,  об-
        легчающих написание программ:

             * Открытые параметры.  Открытые параметры позволяют  переда-
               вать  в  процедуру или функцию строки и массивы переменных
               размеров.  Об этих параметрах  рассказывается  в  Главе  9
               "Процедуры и функции", в разделе "Открытые параметры" кни-
               ги "Руководство по языку".

             * Стандартная директива public.  В Turbo Pascal 6.0 и  Turbo
               Pascal for Windows допускаются секции компонентов объектов
               private. Borland Pascal вводит секции компонентов объектов
               public, не имеющие ограничений по области действия описан-
               ных в них полей и методов. Если вы находите это удобным, в
               объектах  можно  чередовать  секции  компонентов  public и
               private.  Подробнее о новой стандартной  директиве  public
               рассказывается  в  разделе "Компоненты и область действия"
               Главы 4 "Типы" в "Руководстве программиста".

             * Зарезервированное слово inherited. Зарезервированное слово
               inherited может использоваться внутри метода для ссылки на
               предка объектного типа  метода.  См.  раздел  "Активизация
               уточненного метода"  Главы  4 "Типы" книги "Руководство по
               языку".

             * Параметры-константы.  Процедуры и формулы могут  использо-
               вать параметры-константы:  группе  параметров предшествует
               зарезервированное слово const, за которым следует тип. Па-
               раметры-константы защищают  от случайных присваиваний фор-
               мальному параметру,  и в некоторых случаях  это  позволяет
               компилятору генерировать более эффективный код. См. раздел
               "Параметры" в Главе 9 "Процедуры и функции" в "Руководстве
               по языку".

             * Динамические  методы и таблицы динамических методов (DMT).
               Если вы работали с Turbo Pascal for Windows, то уже знаете
               о динамических  методах  и  таблицах  динамических методов
               DMT. В Borland Pascal их могут также использовать програм-
               мы для DOS.

               Динамические методы отличаются от виртуальных методов спо-
               собом диспетчеризации динамических методов на этапе выпол-
               нения. Вместо  построения для динамических методов таблицы
               виртуальных методов (VMT) компилятор строит DMT. Использо-
               вание DMT уменьшает потребности вашей прикладной программы
               в памяти при программировании с объектами.  Более подробно
               о динамических  методах  рассказывается в разделе "Динами-
               ческие методы" в Главе 4 ("Типы") "Руководства по  языку".
               Чтобы  узнать подробности о таблицах динамических методов,
               см. раздел  "Таблицы  динамических  методов"  в  Главе  21

         B.Pascal 7 & Objects /UG    - 23 -

               ("Вопросы использования памяти") "Руководства по языку".


                   Улучшения в библиотеке исполняющей системы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal имеет  три  библиотеки  исполняющей  системы:
        TURBO.TPL для программ DOS реального режима, TPW.TPL для программ
        Windows и TPP.TPL для программ DOS защищенного режима.

             Улучшения библиотек исполняющей системы  касаются  следующих
        элементов:

             * более быстрого ввода-вывода текстового файла;

             * более быстрой функции Pos;

             * оптимизации 80386 для операций умножения,  деления, сдвига
               влево и вправо со значениями типа Longint.




         B.Pascal 7 & Objects /UG    - 24 -

                        Новые подпрограммы модуля System
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Модуль System содержит семь новых процедур и функций. Вы мо-
        жете найти их в Главе 1 ("Справочник по библиотеке") "Справочного
        руководства программиста".

             * Процедура  Assigned выполняет проверку и анализ того,  со-
               держит ли указатель или процедурная переменная nil.

             * Процедура Break завершает оператор for, while или repeat.

             * Процедура Continue продолжает следующие итерации оператора
               for, while или repeat.

             * Процедура Include включает элемент в множество.

             * Процедура Exclude исключает элемент из множества.

             * Функция High возвращает наивысшее значение в диапазоне ар-
               гумента.

             * Функция Low возвращает низшее значение в  диапазоне  аргу-
               мента.


                                  Новые модули
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Благодаря модулю Strings  программисты,  использующие  Turbo
        Pascal for Windows,  могли работать со строками с завершающим ну-
        лем (в стиле Си).  Теперь модуль Strings могут  использовать  как
        программисты, работающие в Windows,  так и работающие в DOS. Под-
        робнее о строках с завершающим нулем рассказывается  в  Главе  18
        "Использование строк  с завершающим нулем" в "Руководстве по язы-
        ку". Полную информацию о строках с завершающим  нулем  вы  можете
        получить, прочитав Главу 1 ("Справочник по библиотеке") "Справоч-
        ного руководства программиста".

             Программисты, работающие с Turbo  Pascal  for  Windows,  уже
        знакомы с модулем WinDos.  Программисты,  работающие в DOS, также
        могут использовать модуль WinDos для реализации операционных сис-
        тем и подпрограмм обработки файлов.  Чтобы выяснить,  следует вам
        использовать модуль WinDos или Dos,  прочитайте Главу 16  "Интер-
        фейс с DOS" "Руководства по языку".  Все процедуры и функции под-
        робно поясняются в Главе 1 ("Справочник по библиотеке") "Справоч-
        ного руководства программиста".

             Модуль WinAPI  дает вам возможность прямого доступа к расши-
        рениям DOS защищенного режима.  Интерфейс WinAPI  разработан  как
        подмножество API  (интерфейс прикладных программ) Windows,  чтобы
        облегчить написание переносимых приложений и  двоично-совместимых
        DLL. О  модуле WinAPI рассказывается в Главе 17 "Программирование

         B.Pascal 7 & Objects /UG    - 25 -

        в DOS в защищенном режиме" "Руководства по языку".  Более  полную
        информацию о  процедурах  и  функциях модуля WinAPI можно найти в
        Главе 1 ("Справочник  по  библиотеке")  "Справочного  руководства
        программиста".

             Модуль WinPrn позволяет послать информацию,  выводимую вашей
        программой Windows,  на выбранный принтер.  О печати в программах
        Windows рассказывается  в  Главе 14 ("Ввод и вывод") "Руководства
        по языку". См. также расширенные пояснения по процедурам WinPrn в
        Главе  1  ("Справочник  по  библиотеке") "Справочного руководства
        программиста".

             Модуль Win31 обеспечивает интерфейс с дополнительными  прог-
        раммами API, которые можно найти в DLL KERNEL и USER Windows 3.1.
        Приложения, использующие модуль  Win31,  не  будут  работать  под
        Windows 3.0.  Подробности о модуле Win31 вы можете узнать в спра-
        вочной системе Borland Pascal.

             Остальные расширения API Windows 3.1 Borland Pascal  поддер-
        живает в  нескольких модулях (информацию о них вы можете получить
        в справочной системе Borland Pascal):

             ColorDlg               LZExpand             ShellAPI
             CommDlg                MMSystem             Stress
             Cpl                    OLE                  TooHelp
             DDEML                  PenWin               Ver
             Dlgs                   Print                WinMem32


                           Новые директивы компилятора
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal  имеет пять новых директив компилятора.  Под-
        робнее о них рассказывается в Главе 2  ("Директивы  компилятора")
        "Справочного руководства программиста":

             * Директива  $P  (открытые  строковые  параметры)  управляет
               смыслом параметров-переменных,  описанных с помощью ключе-
               вого слова string.

             * Директива $T (указатели с проверкой типа) управляет типами
               значений указателей, генерируемых операцией @.

             * Директива $Q (проверка переполнения) управляет  генерацией
               кода проверки  переполнения  для  отдельных арифметических
               операций.

             * Директива $K (эффективные вызовы) управляет генерацией эф-
               фективных вызовов процедур и функций,  экспортируемых при-
               ложением Windows.  Подробнее об обработке в Borland Pascal
               эффективных вызовов  рассказывается в разделе "Код входа и
               выхода" Главы 22 ("Вопросы  управления")  "Руководства  по
               языку".

         B.Pascal 7 & Objects /UG    - 26 -


             * Директива  $Y  (информация  об  идентификаторе) генерирует
               в компилируемой программе или модуле ссылочную  информацию
               идентификатора, благодаря  чему  ObjectBrowser может выво-
               дить на экран определение идентификатора и  ссылочную  ин-
               формацию для данного программного модуля.


                         Усовершенствования компилятора
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Кроме расширений языка Borland Pascal и добавления новых ди-
        ректив компилятора, в сам компилятор также внесены улучшения:

             * Компилятор  позволяет выполнять более простую компоновку с
               Си и ассемблером путем передачи в ваш выполняемый файл ин-
               формации о  номерах строк .OBJ.  Таким образом,  вы можете
               использовать встроенные отладчик для выполнения  по  шагам
               кода языка  Си  и ассемблера.  См.  в данной книге Главу 6
               "Отладка в интегрированной среде".

             * Когда правым операндом операции in является константа мно-
               жественного типа,  компилятор генерирует более эффективный
               код. См. раздел "Встраивание констант множественного типа"
               в Главе 23 ("Оптимизация кода") в "Руководстве по языку".

             * Компилятор генерирует более эффективный код для малых мно-
               жеств. О малых множествах подробнее рассказывается в Главе
               23 ("Оптимизация кода") в "Руководстве по языку".

             * Компилятор допускает неограниченную вложенность модулей.

             * Оператор  uses в разделе implementation модуля не вызывает
               теперь циклической ссылки на модуль.

             * В определенных ситуациях компилятор подавляет операции из-
               быточной загрузки  указателей.  См. Главу 23 ("Оптимизация
               кода") "Руководства по языку".


                            Улучшения в Turbo Vision
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В Turbo  Vision 2.0 в иерархию добавлены новые объекты,  а к
        существующим объектам добавлены некоторые новые возможности.  Из-
        менения существующий объектов имеют обратную совместимость,  поэ-
        тому существующий код Turbo Vision следует компилировать без  из-
        менений, а существующие потоки и ресурсы загружаются без ошибок.

             В Turbo  Vision 2.0 имеются некоторые новые средства.  О них
        рассказывается в  "Руководстве  по   программированию   с   Turbo
        Vision":


         B.Pascal 7 & Objects /UG    - 27 -

             * Поддержка  проверки  допустимости данных.  Ваши приложения
               Turbo Vision могут обеспечить получения для обработки  до-
               пустимых данных.

             * Кнопки  с  независимой  фиксацией  с множеством состояний.
               Кнопки с независимой фиксацией могут иметь состояния,  от-
               личные от "выбрана" и "не выбрана". IDE защищенного режима
               DOS (BP.EXE) использует кнопки с независимой  фиксацией  с
               множеством состояний  в  своем  диалоговом окне параметров
               компилятора Compiler Options.

             * Средство просмотра схемы объектов.  Для вывода  схем  ваши
               приложения могут использовать два объекта - TOutlineViewer
               и  TOutline.   Эти   объекты   использует   средство   DOS
               ObjectBrowser.

             * Поддержка версий объектов в потоках. Даже если ваши объек-
               ты были созданы с помощью Turbo Vision 1.0, ваши программы
               все равно  смогут считывать их как объекты,  совместимые с
               Turbo Vision 2.0.

             * Новое учебное руководство и  пересмотренная  документация.
               Вы увидите,  что  можно  быстро  изучить  и  освоить Turbo
               Vision.


                             Улучшения ObjectWindows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В иерархию ObjectWindows добавлены новые объекты.  К сущест-
        вующим объектам также добавлены некоторые новые возможности.

             Модуль WObjects больше не существует. Существующий у вас ис-
        ходный код можно будет успешно перекомпилировать, если вы замени-
        те каждую ссылку на WObjects модулями OWindows, ODialogs, OMemory
        и Objects.

             ObjectWindows содержит  новые средства.  Узнать о них можно,
        прочитав "Руководство  по   программированию   с   использованием
        ObjectWindows":

             * Поддержка  проверки  допустимости данных.  Ваши приложения
               ObjectWindows могут обеспечить получение для обработки до-
               пустимых данных.

             * Печать объектов.  Благодаря новым объектам печати выводить
               данные на печать в программах ObjectWindows стало проще.

             * Поддержка специализированных управляющих элементов Windows
               фирмы Borland. Ваши программы Windows могут иметь вид, со-
               ответствующий стандарту Borland.



         B.Pascal 7 & Objects /UG    - 28 -

                            Новые средства и утилиты
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если вашей целевой платформой является Windows,  помочь про-
        цессу разработки могут два новых средства. Прочесть о них можно в
        "Руководстве по инструментальным средствам и утилитам".

             * Утилита WinSight. WinSight - это инструментальное средство
               отладки,  которое дает вам информацию об окнах,  классах и
               сообщениях.  Используйте ее для изучения новых  приложений
               Windows  (ваших или чужих),  чтобы увидеть как создаются и
               используются окна и классы окон, и какие сообщения получа-
               ют окна во время выполнения программы.

             * Утилита WinSpector.  С помощью WinSpector вы можете прове-
               рить приложение Windows после завершения его  с  невосста-
               навливаемой ошибкой  (Unrecoverable  Application  Error  -
               UAE). Это поможет вам понять причину ошибки.

             Borland Pascal также включает в себя обновленные версии сле-
        дующих инструментальных средств:

             * Turbo Debugger (Турбо отладчик) включает отладчик TDW, ко-
               торый  может  отлаживать  прикладные программы Windows,  и
               TDX,  который может отлаживать прикладные программы  защи-
               щенного режима DOS.

             * Turbo Profiler (Турбо профилировщик),  который включает  в
               себя два профилировщика - один для программ DOS,  а другой
               для программ Windows.

             * Turbo Assembler (Турбо ассемблер),  добавляющий к коду ас-
               семблера объектно-ориентированное программирование.

             * Resource Workshop (Пакет разработчика ресурсов),  работаю-
               щий в среде Windows и способный создавать  для  приложений
               Windows  все  ресурсы (диалоговые окна,  курсоры,  битовые
               массивы, пиктограммы и т.д.).




         B.Pascal 7 & Objects /UG    - 29 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                  Глава 3. Основы интегрированной среды для DOS
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal представляет собой не только быстрый компиля-
        тор Паскаля. Это эффективный компилятор, интегрированную интерак-
        тивную среду которого очень легко изучать и использовать. При ра-
        боте с Borland Pascal для того, чтобы создавать, отлаживать и за-
        пускать программы на Паскале,  вам не требуется использовать  от-
        дельный  редактор,  компоновщик,  компилятор и отладчик.  Все эти
        средства встроены в Borland Pascal и доступны из  интегрированной
        интерактивной среды разработки программ (IDE).

                   Примечание: Если  вы предпочитаете использовать компи-
              лятор режима командной строки.  См.  Главу 3  "Компиляторы,
              работающие  в  режиме командной строки" в "Справочном руко-
              водстве программиста".

             Имея пакет Borland Pascal,  вы можете выбрать одну  из  трех
        интегрированных сред:

             * BP.EXE, интегрированную среду разработки программ, которая
               работает в защищенном режиме DOS и  генерирует  прикладные
               программы  DOS реального режима,  DOS защищенного режима и
               Windows.

               Чтобы запустить BP.EXE,  вы должны иметь компьютер с  про-
               цессором 80286  или  старше  и не менее 2 мегабайт памяти.
               Поскольку IDE работает в защищенном режиме, ее емкость ог-
               раничена только объемом доступной на компьютере памятью.

             * TURBO.EXE,  интегрированную среду,  которая работает в ре-
               альном режиме DOS и генерирует только прикладные программы
               DOS реального режима.

             * BPW.EXE,   интегрированную  среду,  которая  работает  под
               Windows и генерирует прикладные  программы  DOS  реального
               режима, Windows и DOS защищенного режима.

             В этой главе поясняются основы использования IDE для DOS.

             Если вы  уже  имеете опыт работы в Windows,  то вам известны
        основы работы в IDE Windows,  поскольку вы  знаете  как  работает
        сама Windows. Если вы не знакомы с IDE для Windows фирмы Borland,
        то следует просмотреть сначала Главу 4 "Программирование в интег-
        рированной среде для DOS".  IDE для DOS и Windows во многом похо-
        жи: в обеих средах большинство задач выполняются аналогично. Ког-
        да вы  поймете,  как  выполнять задачи по программированию в IDE,
        прочитайте Главу 5 "Программирование и  интегрированной  интерак-
        тивной среде для Windows", где рассказывается о средствах, специ-
        фических в IDE для Windows и  об  отличиях  IDE  для  DOS  и  для
        Windows.



         B.Pascal 7 & Objects /UG    - 30 -

                                   Запуск IDE
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Перейдите в подкаталог Borland Pascal,  созданный программой
        Install. Обычно этим каталогом является каталог C:\BP\BIN.  Чтобы
        запустить IDE защищенного режима, введите команду:

             BP

                   Примечание: О параметрах запуска Borland Pascal  расс-
              казывается  в  Главе  4 "Программирование в интегрированной
              среде для DOS".

             Файлы DPMI16BI,OVL и RTM.EXE должны находиться в текущем ка-
        талоге или в каталоге,  указанном в маршруте, иначе BP.EXE не за-
        пустится.

             Чтобы запустить IDE,  работающую в реальном режиме,  введите
        команду:

             TURBO


                        Компоненты интегрированной среды
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Интегрированная интерактивная среда разработки программ  со-
        держит три видимых компонента:  строку меню в верхней части экра-
        на, оперативную область и строку состояния в нижней части экрана.
        При  активной строке меню вы увидите подсвеченный заголовок меню.
        Это текущее выбранное меню.

             Выбрать команды меню вы можете с помощью клавиатуры или "мы-
        ши".

             Выбрать команды  меню  с  помощью клавиатуры можно следующим
        образом:

             1. Нажмите клавишу F10. Это активизирует строку меню.

             2. Для выбора меню,  которое вы хотите вывести,  используйте
                клавиши стрелок. Затем нажмите Enter.

                Примечание: Чтобы  отменить действие,  нажмите клавишу
                Esc.

                В качестве сокращения этого шага вы можете нажать подсве-
                ченную букву заголовка меню.  Например, находясь в строке
                меню, нажмите E для быстрого вывода меню Edit.  Либо  без
                активизации строки  меню вы можете нажать для вывода нуж-
                ного меню клавишу Alt и подсвеченную букву.

             3. Для выбора нужной команды меню используйте клавиши  стре-

         B.Pascal 7 & Objects /UG    - 31 -

                лок. Затем нажмите клавишу Enter.

                Здесь снова в качестве альтернативного варианта вы можете
                для выбора команды при выводе меню просто нажать  подсве-
                ченную букву.

                При этом Borland Pascal либо выполнит команду, либо выве-
                дет диалоговое окно или другое меню.

             Для выбора команд можно также использовать "мышь".  Для это-
        го:

             1. Для вывода нужного меню щелкните кнопкой "мыши",  остано-
                вившись на нужном заголовке меню.

             2. Щелкните кнопкой "мыши" на нужной команде.

                Примечание: Вы  можете  настроить  действие   Ctrl+правая
                кнопка "мыши" и даже поменять действия кнопок "мыши"; вы-
                берите команду OptionsіEnviromentіMouse.

             Вы можете также "вытянуть" меню из заголовка вниз до команды
        меню. Освободите кнопку "мыши" на нужной команде (если ваши наме-
        рения изменятся, просто убедите меню обратно - команда выбрана не
        будет).

             Если за командой меню следует многоточие (...), выбор коман-
        ды приводит к выводу диалогового окна.  Если за командой  указана
        закрашенная стрелка  (>),  то эта команда приводит к другому меню
        (всплывающему меню).  Команда баз многоточия или  стрелки  указы-
        вает действие, выполняемое при ее выборе.

             Иногда команды  меню  выводятся "тусклыми",  и при их выборе
        ничего не происходит. Это случается, когда выбор отдельной коман-
        ды в данном контексте не имеет смысла.  Например,  если в текущем
        окне редактирования у вас нет выделенного блока,  вы  не  сможете
        вырезать, копировать или стирать текст,  поскольку не указали ре-
        дактору, сколько текста нужно вырезать,  скопировать или стереть.
        Следовательно, соответствующие команды (Cut,  Copy и Clear) будут
        в меню Edit тусклыми.  После выделения текста в окне редактирова-
        ния вы сможете выбирать эти команды.


         B.Pascal 7 & Objects /UG    - 32 -

                               Оперативные клавиши

             Работая с клавиатурой,  для доступа к строке меню и командам
        вы также можете использовать множество сокращенных вариантов  ко-
        манд (оперативных  клавиш). Перейти в основное меню и активизиро-
        вать его элементы можно нажатием клавиши Alt и подсвеченной  бук-
        вы.  Когда вы находитесь в меню, можете нажать подсвеченную букву
        элемента или следующее за  ней  сокращение.  Оперативные  клавиши
        можно использовать  в  любом  месте  IDE - для этого не требуется
        сначала выводить меню.

             Строка состояния также содержит оперативные клавиши. Для вы-
        бора соответствующей  команды  нажмите  оперативную  клавишу  или
        щелкните "мышью" на фактическом представлении оперативной клавиши
        в строке состояния.



         B.Pascal 7 & Objects /UG    - 33 -

                                    Окна IDE
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Большинство и того,  что вы видите в IDE, происходит в окне.
        Окно - это область экрана,  которую можно перемещать, масштабиро-
        вать, перекрывать,  выводить без перекрытия, закрывать, открывать
        и изменять ее размер.

        ЪДДДДДДДДДДДДДДДДї   ЪДДДДДДДДДДДї    ЪДДДДДДДДДДДДДДДДДДДДДДДДДї
        і Для быстрого   і   і Заголовок і    і Кнопка масштабирования  і
        і закрытия окна  і   і содержит  і    і содержит значок, на     і
        і можно щелкнуть і   і название  і    і котором можно щелкнуть  і
        і "мышью" на     і   і данного   і    і мыщью для распахивания  і
        і блоке закрытия і   і окна      і    і или сжатия окна         і
        і окна           і   АДДДДДДДДВДДЩ    АДДДДДДДДДДДДДДДДДДДДДДДВДЩ
        АДДДВДДДДДДДДДДДДЩ            і                               і
            і                         і                               і
            v                         v                               v
        ЙНН[Ы]ННННННННННННННННН Заголовок окна НННННННННННННННННН 3 Н[^]»
        є                                                         ^     ^
        є                                                         і     ±
        є                               ЪДДДДДДДДДДДДДДДДДДДДДДДДДБДДДї ±
        є                               і  Каждое открытое окно имеет і ±
        є                               і  номер. Используйте Alt и # і Ы
        є                               і  для открытия окна.         і ±
        є                               АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ ±
        є                                                               ±
        є  ЪДДДДДДДДДДї       ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї        ±
        є  і Строка и і       і  Используйте полосы прокрутки  і        ±
        є  і столбец  і       і  с "мышью" для перемещения     ГДДДДДДД>±
        є  і позиции  і       і  содержимого окна.             і        ±
        є  і курcора  і       АДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДЩ        ±
        є  АДДДВДДДДДДЩ                      і                          ±
        є      і                             і                          ±
        є      v                             v                          v
        ИН*Н1:1ННН<±±±±±±±±±±±±±±Ы±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>ДЩ
          ^                          ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї   ^
         ЪБДДДДДДДДДДДДї             і Чтобы сделать окно больше    ГДДДЩ
         і Индикатор   і             і или меньше, буксируйте угол  і
         і модификации і             і изменения размера.           і
         і файла       і             АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ
         АДДДДДДДДДДДДДЩ

             Рис. 3.1 Типичное окно.

             При работе в IDE вы можете открыть и использовать  множество
        окон,  но в каждый момент времени активным может быть только одно
        окно.  Активное окно - это то окно,  в котором вы в данный момент
        работаете.  Любая команда, которую вы выбираете, или текст, кото-
        рый вы набираете, относится только к активному окну.  Однако, ес-
        ли вы открыли в нескольких окнах один и тот же файл,  любое дейс-
        твие,  применяемое к этому файлу, может отражаться на всех окнах,
        содержащих его.

         B.Pascal 7 & Objects /UG    - 34 -


             Существует несколько  типов окон,  но большинство из них со-
        держат следующие элементы:

             - строку заголовку;
             - элемент закрытия;
             - полосы прокрутки;
             - угол изменения размера;
             - элемент "распахивания";
             - номер окна.

             IDE отмечает активное окно,  обрисовывая его двойной рамкой,
        благодаря чему его можно легко идентифицировать на  экране.  Если
        ваши окна перекрываются,  то активное окно всегда находится перед
        всеми другими ("переднее" окно).

             В активном окне редактирования в левом верхнем углу выводят-
        ся также значения текущей строки и столбца. Если вы модифицирова-
        ли файл,  слева от значений столбца и строки выводится  звездочка
        *.

             Элемент закрытия окна находится в верхнем левом углу.  Пози-
        ционировав на этот элемент "мышь" и щелкнув  кнопкой,  вы  можете
        быстро  закрыть данное окно (в противном случае можно выбрать ко-
        манду WindowіClose).  Справочное окно Help  считается  временным,
        поэтому закрыть его можно просто нажав клавишу Esc.

             Верхняя горизонтальная строка меню, строка заголовка, содер-
        жит название окна и его номер.  Двойной щелчок кнопкой "мыши"  на
        заголовке  окна приводит к его "распахиванию" (увеличению до раз-
        мера полного экрана)  или  наоборот,  восстановлению  предыдущего
        размера, если  оно  уже  распахнуто.  Вы  можете также перемещать
        (буксировать) с помощью "мыши" заголовок,  что приводит к переме-
        щению окна.

             Каждому открываемому  вами окну присваивается номер (он ука-
        зывается справа вверху).  Нажатие клавиш Alt+0  дает  вам  список
        всех  открытых окон.  Окно можно сделать активным,  нажав клавишу
        Alt в сочетании с номером окна.  Например,  если справочное  окно
        Help имеет  номер  5,  но перекрыто сейчас другим окном,  нажатие
        Alt+5 переводит вас в это окно (оно становится первым).

                   Примечание: Borland Pascal нумерует  только  первые  9
              открытых вами окон.

             В правом  верхнем  углу  окна выводится элемент распахивания
        (масштабирования) окна.  Если символ в этом элементе представляет
        собой стрелку вверх,  то щелчок кнопкой "мыши" при позиционирова-
        нии в этом элементу приведет к максимальному увеличению его  раз-
        мера (распахиванию).  Если это двойная стрелка, то окно уже имеет
        максимальный размер.  В этом случае щелчок кнопкой "мыши" возвра-
        щает  окно  к предыдущему размеру.  Чтобы "распахнуть" окно с по-
        мощью клавиатуры, выберите команду WindowіZoom или нажмите клави-

         B.Pascal 7 & Objects /UG    - 35 -

        шу F5.

                   Примечание: Двойной щелчок "мышью" на строке заголовка
              окна также приведет к его распахиванию  или  восстановлению
              размера.

             Полоса прокрутки  -  это  вертикальная  или   горизонтальная
        полоса, которая выглядит следующим образом:

            <±±±±±±±±±±±±±±±±±±±±±±±±±±±Ы±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>

             Эти полосы можно использовать при работе с "мышью" для прок-
        рутки содержимого окна.

             * Если  щелкнуть кнопкой "мыши",  позиционировавшись в конце
               полосы, это приведет к прокрутке на одну строку.

             * Если нажать и не отпускать кнопку, прокрутка будет продол-
               жаться.

             * Нажатие кнопки "мыши" на затененной области в конце полосы
               прокрутки (стрелки) приведет к постраничному "листанию".

             * Если вы с помощью "мыши" будете  перемещать  (буксировать)
               по  полосе  прокрутки  скользящий маркер (здесь он отмечен
               символом Ы),  то содержимое окна сместится (прокрутится) в
               соответствии с относительной позицией полосы прокрутки.

                   Примечание: Полосы  прокрутки позволяют любому пользо-
              вателю (использующему "мышь" или  клавиатуру)  видеть,  как
              далеко он продвинулся в файле.

             В правом нижнем углу окна находится элемент изменения разме-
        ра. Вы можете буксировать этот угол с помощью "мыши",  увеличивая
        или уменьшая размеры окна. Указанный угол отмечен одинарной, а не
        двойной линией, как остальная граница окна.

             Чтобы изменить размер окна с  помощью  клавиатуры,  сделайте
        следующее:

             1. Используйте  команду  Size/Move меню Window,  или нажмите
                клавиши Ctrl+F5.

             2. Удерживая нажатой клавишу Shift,  для  изменения  размера
                окна используйте клавиши стрелок.

             Чтобы переместить окно с помощью клавиатуры, сделайте следу-
        ющее:

             1. Используйте команду Size/Move меню  Window,  или  нажмите
                клавиши Ctrl+F5.

             2. Для перемещения окна используйте клавиши стрелок.

         B.Pascal 7 & Objects /UG    - 36 -

                                Управление окном

             В Таблице 3.1 кратко перечислено, как можно управлять окнами
        в Borland Pascal.  Заметим,  что для выполнения этих действий вам
        не требуется "мышь" - можно прекрасно обойтись и клавиатурой.

                            Работа с окнами                   Таблица 3.1
        ЪДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
        іЧтобы:               і Используйте следующие методы:          і
        ГДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        іОткрыть окно         і Команду  Choose FileіOpen  для открытияі
        іредактора            і файла и вывода его на экран, или клави-і
        і                     і шу F3.                                 і
        ГДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        іОткрыть другие окна  і Выберите нужное окно из  меню Window  ві
        і                     і меню Tools или Debug.                  і
        ГДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        іЗакрыть окно         і Команду Close меню Window  (или  клави-і
        і                     і ши Alt+F3),  либо щелкните кнопкой "мы-і
        і                     і ши" на элементе закрытия окна.         і
        ГДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        іУвидеть предыдущее   і Выберите команду  WindowіPrevious  или і
        іокно                 і используйте клавиши Shift+F6.          і
        ГДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        іАктивизировать окно  і Щелкните  кнопкой в любом  месте  окна,і
        і                     і или                                    і
        і                     і                                        і
        і                     і Нажмите клавишу Alt, плюс номер окна (ві
        і                     і верхнем правом углу окна), или         і
        і                     і                                        і
        і                     і Используйте команду  Choose WindowіListі
        і                     і (Выбор окнаіСписок), или нажмите клави-і
        і                     і ши Alt+0 и выделите окно из списка, илиі
        і                     і                                        і
        і                     і Используйте команду Choose  WindowіNextі
        і                     і или F6,  чтобы сделать активным следую-і
        і                     і щее (в том порядке,  как вы их открыва-і
        і                     і ли) окно.  Либо нажмите клавиши Alt+F6,і
        і                     і чтобы сделать активным предыдущее окно.і
        ГДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        іПереместить активное і Переместите  с  помощью  "мыши"  строкуі
        іокно                 і заголовка или  нажмите  клавиши Ctrl+F5і
        і                     і (WindowіSize/Move - ОкноіРазмер/Переме-і
        і                     і щение) и используйте для позиционирова-і
        і                     і ния  окна в нужное место клавиши управ-і
        і                     і ления курсором, после чего нажмите кла-і
        і                     і вишу Enter.                            і

        B.Pascal 7 & Objects /UG    - 37 -

        ЪДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
        і Чтобы:               і Используйте следующие методы:          і
        ГДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        іИзменить размер      і Переместите с помощью "мыши"  угол  из-і
        іактивного окна       і менения   размера  (или  любой   другойі
        і                     і угол). Либо  выберите  команду  Windowіі
        і                     і Size/Move и нажмите клавишу Shift, еслиі
        і                     і вы  используете  для  изменения размераі
        і                     і окна клавиши управления курсором. Послеі
        і                     і этого нажмите клавишу Enter.  Можно ис-і
        і                     і пользовать сокращенный вариант - нажатьі
        і                     і Ctrl+F5  и  использовать  клавишу Shiftі
        і                     і совместно с клавишами управления курсо-і
        і                     і ром (стрелки).                         і
        ГДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        іМасштабировать       і Нажмите  кнопку "мыши", позиционировав-і
        іактивное окно        і шись на элементе в правом  верхнем  уг-і
        і                     і лу окна, или                           і
        і                     і                                        і
        і                     і Дважды щелкните  кнопкой,  позициониро-і
        і                     і вавшись в строке заголовка, или        і
        і                     і                                        і
        і                     і Используйте команду ChooseіWindowіZoom,і
        і                     і или нажмите клавишу F5.                і
        АДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ


         B.Pascal 7 & Objects /UG    - 38 -

                                Строка состояния
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Строка состояния выводится в нижней части экрана. Она выпол-
        няет следующие четыре функции:

             - напоминает вам об основных и оперативных клавишах,  приме-
               нимых в данный момент к активному окну;

             - сообщает,  какие можно вместо выбора команд меню и нажатия
               оперативных клавиш использовать кнопки "мыши";

             - сообщает,  что делает программа, например, выводит сообще-
               ние "Saving имя_файла" при сохранении файла редактором;

             - предлагает краткие пояснения по некоторым командам меню  и
               элементам диалоговых окон.

            При переключении  окон  или  изменении  выполняемых  действий
        строка состояния изменяется.  Наиболее общий вид строка состояния
        имеет,  когда  вы  записываете  или редактируете программы в окне
        Edit. Это показано ниже:

        ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
        іF1 Help   F2 Save   F3 Open   Alt+F9 Compile  F9 Make  F10 Menuі
        АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ
               ^        ^        ^            ^           ^         ^
               і        і        і            і           і         і
             Справка Сохранение Открытие   Компиляция Формирование Меню

             Рис. 3.2 Типичная строка состояния.



         B.Pascal 7 & Objects /UG    - 39 -

                                 Диалоговые окна
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если после команды меню указано многоточие (...), то по этой
        команде открывается диалоговое окно. Диалоговое окно предоставля-
        ет удобный способ просмотра и установки набора параметров.

             Для установок значений в диалоговом окне  используется  пять
        основных способов управления экраном: кнопки с зависимой фиксаци-
        ей, командные кнопки, кнопки с независимой фиксацией (параметры),
        элементы (блоки) ввода и блоки списка.  Приведем пример типичного
        диалогового окна,  на котором иллюстрируются  некоторые  из  этих
        элементов:

          ЙН[Ы]НННННННННН Типичное диалоговое окно НННННННННННННННННННН»
          є                                                            є
          є                                                            є
          є  Блок ввода                  Блок списка       >[±±±OK±±±]<є
          є  ЪДДДДДДДДДДДДДДДДДДДДДДї     ЪДДДДДДДДДДДДДДДї            є
          є  і±±±±±±±±±±±±±±±±±±±±±±ііvі  іЭлемент 1     ^і            є
          є  АДДДДДДДДДДДДДДДДДДДДДДЩ     іЭлемент 2     Ыі [±Cancel±] є
          є                               іЭлемент 3     Ыі            є
          є  Кнопки с       Кнопки с      іЭлемент 4     Ыі            є
          є  независимой    зависимой     іЭлемент 5     Ыі            є
          є  фиксацией      фиксацией     іЭлемент 6     Ыі            є
          є                               іЭлемент 7     Іі            є
          є  [X] Парам. 1   ( ) Парам. A  іЭлемент 8     Ыі            є
          є  [ ] Парам. 2   (.) Парам. B  іЭлемент 9     vі [±±Help±±] є
          є  [X] Парам. 3   ( ) Парам. C  АДДДДДДДДДДДДДДДЩ            є
          є  [ ] Парам. 4   ( ) Парам. D                               є
          є  [ ] Парам. 5                                              є
          є                                                            є
          ИННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННј

             Рис. 3.3 Типичное диалоговое окно.

                                Командные кнопки

             Данное диалоговое окно содержит  три  стандартных  командных
        кнопки: OK, Cancel и Help.

             * Если вы выберите OK (Подтверждение),  то выбор, заданный в
               диалоговом окне, будет зафиксирован в Borland Pascal.

             * Если вы выбираете Cancel (Отмена),  то внесенные изменения
               игнорируются, а диалоговое окно остается на экране.

             * Выбор  Help  (Справка)  приводит к выводу в IDE справочной
               информации по данному диалоговому окну. Клавиатурным экви-
               валентом  для  кнопки  Cancel  всегда является клавиша Esc
               (даже если Cancel не выводится).

             Если вы работаете с "мышью", то можете просто щелкнуть кноп-

         B.Pascal 7 & Objects /UG    - 40 -

        кой, позиционировавшись на нужной командной кнопке. При использо-
        вании клавиатуры для активизации элемента (кнопки) можно нажимать
        подсвеченные  в нем буквы.  Например,  нажатие буквы K приводит к
        выбору функциональной кнопки OK. Нажатие Tab или Shift+Tab приво-
        дит к перемещению в диалоговом окне вперед или  назад  от  одного
        управляющего элемента к другому.  Когда элемент становится актив-
        ным,  он подсвечивается. Если кнопка выбрана, чтобы задействовать
        ее, просто нажмите Enter.

             Командная кнопка OK диалогового окна  является  используемой
        по  умолчанию.  Это означает,  что для выбора данной кнопки нужно
        только нажать клавишу Enter.  (В системах с монохромным  дисплеем
        используемые по умолчанию кнопки указываются стрелками,  в систе-
        мах с цветным дисплеем они подсвечиваются.) Нужно помнить о  том,
        что переход  к  командной  кнопке с помощью клавиши Tab делает ее
        используемой по умолчанию.

                   Примечание: С помощью клавиши Tab  вы  можете  выбрать
              другую  кнопку.  Для  выбора  этой  кнопки  нажмите клавишу
              Enter.

                   Кнопки с зависимой и независимой фиксацией

             В любой момент вы можете установить любое число кнопок с не-
        зависимой фиксацией. Когда вы выбираете кнопку с независимой фик-
        сацией, в ней появляется символ X, показывающий, что она установ-
        лена. Пустой элемент показывает, что он не установлен (выключен).

             Вы можете установить (включить) кнопку с независимой  фикса-
        цией тремя способами:

             * позиционировав  на  ней  или на ее тексте "мышь" и щелкнув
               кнопкой;

             * нажимая клавишу Tab (и клавиши  стрелок),  пока  не  будет
               подсвечена  нужная  кнопка с независимой фиксацией (или ее
               группа), а затем нажав клавишу пробела.

             * нажав подсвеченную в тексте букву.

             На монохромных мониторах IDE отмечает активную кнопку с  не-
        зависимой фиксацией  символом  >> после этой кнопки.  При нажатии
        клавиши Tab символ >> перемещается к следующей  группе  кнопок  с
        зависимой или независимой фиксацией.

                  Примечание: Кнопки с зависимой фиксацией называются так
              потому,  что они действуют, как группа кнопок, где нажать в
              каждый  момент можно только одну кнопку (как при выборе те-
              леканала).  При нажатии кнопки прежняя нажатая кнопка возв-
              ращается в исходное положение.

             Кнопки с  зависимой фиксацией отличаются от кнопок с незави-
        симой фиксацией тем,  что они представляют взаимоисключающие воз-

         B.Pascal 7 & Objects /UG    - 41 -

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

             Существует три способа выбора кнопок с зависимой фиксацией:

             * щелкните на ней или ее тексте кнопкой "мыши";

             * наберите подсвеченную в соответствующем тексте букву;

             * нажимайте клавишу Tab,  пока группа не будет подсвечена, а
               затем для выбора конкретной кнопки используйте клавиши уп-
               равления курсором:  для выхода из группы с новым выбранным
               функциональным  переключателем  нажмите  клавишу  Tab  или
               Shift+Tab.

                                   Блоки ввода

             Блок ввода - это тот элемент,  в котором вы можете вводить в
        свою прикладную программу текст.  В элементах (полях) ввода можно
        использовать  большинство основных клавиш редактирования,  напри-
        мер,  клавиши стрелок,  Home,  End и переключатель вставки/замены
        Ins. Если вы продолжаете набирать текст при достижении конца эле-
        мента ввода,  его содержимое будет автоматически  прокручиваться.
        Если в элементе имеется больше текста, чем показано, то на концах
        его выводятся закрашенные стрелки (< и >).  Для прокрутки  текста
        вы  можете  позиционироваться на этих стрелках и щелкнуть кнопкой
        "мыши".

             Если вам требуется ввести в блоке ввода управляющие  символы
        (такие,  как  ^L или ^M),  то перед этими символами нужно указать
        префиксный символ ^P. Поэтому, например, для ввода ^L в поле вво-
        да нужно использовать последовательность ^P^L. Это полезно приме-
        нять при вводе строк.

             Если справа от блока ввода указывается символ стрелки  вниз,
        то с этим элементом связан протокол ввода. Для просмотра протоко-
        ла используйте клавишу со стрелкой вниз,  а выбрав нужный элемент
        из  списка,  нажмите  Enter.  В списке (протоколе) выводится весь
        текст, который вы набирали в элементе ввода ранее. Если вы хотите
        заново  набрать  текст,  который уже был введен,  нажмите клавишу
        стрелки вниз  или  щелкните кнопкой "мыши"  на  символе  "стрелка
        вниз". Можно также редактировать запись из протокола.  Для выхода
        из списка протокола без выбора нажмите клавишу Esc.

             Приведем пример протокола  для  элемента  Find  text  (Поиск
        текста). Если вы ранее использовали его семь раз, он может выгля-
        деть следующим образом:


         B.Pascal 7 & Objects /UG    - 42 -

                                     ЪДДДДДДДДДДДДДДДДДДДДДїЪДДДї
                        Text to find і±±±±±±±±±±±±±±±±±±±±±іі v і
                                     АДДДДДДДДДДДДДДДДДДДДДЩАДДДЩ
                                      ЙННННННННННННННННННННННННН»
                                      є date = record           ^
                                      є Writeln('               ±
                                      є string[7]               ±
                                      є {                       Ы
                                      є AbortCode               v
                                      ИНННННННННННННННННННННННННј

             Рис. 3.4 Пример протокола в диалоговом блоке.

                                  Блоки списка

             Во многих диалоговых окнах присутствует еще один компонент -
        блок  списка.  Этот список позволяет вам просматривать и выбирать
        запись из списка переменной длины, не выходя из диалогового окна.
        Если в списке появляется мерцающий курсор и вы хотите что-то най-
        ти, можно ввести слово (или его первые буквы), после чего IDE вы-
        полнит его поиск.

             Активизировать блок списка можно щелкнув на нем кнопкой "мы-
        ши"  или  выбрав подсвеченную букву заголовка списка (либо нажать
        клавишу Tab или клавиши управления курсором,  пока  он  не  будет
        подсвечен). После вывода списка для его просмотра можно использо-
        вать полосу прокрутки или клавиши стрелок (вверх и вниз) на  кла-
        виатуре.

             Теперь вы  познакомились с основными понятиями использования
        IDE и готовы использовать интегрированную  среду  для  разработки
        прикладных программ.  См.  следующую  главу - "Программирование в
        интегрированной интерактивной среде для DOS".

         B.Pascal 7 & Objects /UG    - 43 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                           Глава 4. Программирование в
                   интегрированной интерактивной среде для DOS
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При разработке  прикладной программы в интегрированной среде
        IDE вы можете выполнять следующие основные задачи:

             * запускать IDE и выходить из нее;
             * записывать и редактировать свой исходный код;
             * работать с файлами (открывать, закрывать и сохранять их);
             * компилировать и выполнять свои программы;
             * отлаживать программы;
             * просматривать исходный код;
             * настраивать по своему усмотрению конфигурацию IDE;
             * управлять программными проектами.

             Данная глава дает основные понятия по каждой из  перечислен-
        ных тем,  за исключением отладки программы (о которой рассказыва-
        ется в Главе 6 "Отладка в интегрированной среде").


                            Запуск IDE и выход из нее
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Перейдите в подкаталог Borland Pascal,  созданный вами с по-
        мощью программы Install.  Обычно этим каталогом является  каталог
        C:\BP\BIN. Чтобы запустить IDE защищенного режима, введите коман-
        ду:

              BP

             Файлы DPMI16BI.OVL и RTM.EXE должны находиться в текущем ка-
        талоге по вашему маршруту, иначе BP.EXE не запустится.

             Чтобы запустить IDE,  работающую в реальном режиме,  введите
        команду:

             TURBO

              Вместе с командами для запуска IDE вы  можете  использовать
        один или более параметров и имен файлов.


                                Параметры запуска
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При запуске IDE вы можете указывать параметры  запуска.  Эти

         B.Pascal 7 & Objects /UG    - 44 -

        параметры запуска имеют следующий синтаксис:

             BP[/параметры][файлы]
        или
             TURBO[/параметры][файлы]

             Указание после параметра символа + или пробела включает его,
        указание символа - отключает. Например:

             BP /G /P- myfile

        запускает IDE,  открывает окно редактирования,  выводя в нем файл
        MYFILE, разрешает  сохранение  графической памяти и запрещает пе-
        реключений палитр.

             Вместо символа косой черты (/) перед  параметром  вы  можете
        использовать минус (-). Например:

             BP -G -P- myfile

             Некоторые параметры  запуска применяются только к IDE реаль-
        ного режима - TURBO.EXE.  В этом случае параметр помечен  словами
        "(только TURBO)". Два параметра применяются к IDE защищенного ре-
        жима - BP.EXE.  В этом случае параметр  помечен  словами  (только
        BP).

                                   Параметр /C

             Если вы используете параметр /C, за которым без пробела сле-
        дует имя  файла  конфигурации,  то IDE при запуске загружает этот
        файл конфигурации. Например:

             TURBO /Cmyconfig

             О файлах конфигурации рассказывается ниже.

                                   Параметр /D

             Если вы  укажете параметр /D,  IDE сможет одновременно рабо-
        тать с двумя мониторами.  IDE  проверяет,  имеется  ли  на  вашем
        компьютере соответствующее оборудование,  например, монохромная и
        цветная плата.  Если это не так,  то IDE игнорирует данный  пара-
        метр.  Режим  с двумя мониторами полезно использовать при отладке
        программы.  Один монитор вы можете использовать как экран выводи-
        мых  программой данных,  а другой - для работы с отладчиком.  Ис-
        пользуя два монитора, вы можете также выйти в командный процессор
        DOS (FileіShell to DOS), так что на одном экране будет выводиться
        IDE, а другой дает вам доступ к командной строке DOS.

             Если система имеет два монитора, DOS интерпретирует один мо-
        нитор как активный монитор.  Для переключения между двумя монито-
        рами можно использовать команду DOS MODE. Например, MODE CJ80 ак-

         B.Pascal 7 & Objects /UG    - 45 -

        тивизирует цветной монитор,  а MODE MONO активизирует монохромный
        монитор. В  режиме с двумя мониторами обычный экран IDE выводится
        на неактивном мониторе,  а вывод программы поступает на  активный
        монитор.

             Поэтому когда  вы  на  одном  мониторе  набираете в ответ на
        подсказку DOS BP /D или TURBO /D, IDE выводится на другом монито-
        ре. Когда  вы  хотите проверить программу на конкретном мониторе,
        выйдите из IDE,  переключите активный монитор на тот,  на котором
        вы  хотите  ее  проверить,  а затем снова дайте команду BP /D или
        TURBO /D.  Вывод программы затем будет поступать на тот  монитор,
        где вы набрали команду.

             При использовании команды /D следует иметь в виду следующее:

             * Не изменяйте активный монитор (используя, например, коман-
               ду DOS MODE),  когда вы находитесь в командном  процессоре
               DOS (FileіDOS Shell).

             * Пользовательские  программы,  использующие прямой доступ к
               портам видеоплаты неактивного монитора,  не поддерживаются
               и могут дать непредсказуемые результаты.

             * Когда вы выполняете или отлаживаете программы, которые яв-
               ным образом используют два монитора,  не указывайте  пара-
               метр /D.

                           Параметр /E (только TURBO)

             Используйте параметр  /E  для  изменения размера динамически
        распределяемой области памяти редактора.  По умолчанию ее  размер
        равен 28К (минимальная установка).  Максимальное значение - 128К.
        Размер динамически  распределяемой  области  памяти,  превышающий
        28К, улучшает производительность IDE только в том случае, если вы
        используете в качестве устройства свопинга медленный диск. Если у
        вас есть  память EMS или вы разместили файл свопинга на виртуаль-
        ном диске (см. параметр /S), не изменяйте используемый по умолча-
        нию параметр.

                             Параметр /F (только BP)

             С помощью  параметра  /F  вы можете задать файл свопинга для
        администратора Borland Pascal этапа выполнения (RTM.EXE).  Напри-
        мер, если вы компилируете прикладную программу, которая требует 4
        мегабайта памяти,  но на вашем компьютере доступно только два ме-
        габайта, то вы можете задать файл свопинга  4-мегабайтной  вирту-
        альной  памяти;  ваша прикладная программа получит необходимую ей
        для компиляции память.  Для файла свопинга допустимы  размеры  от
        1024К  до 16384К.  В следующем примере задается файл свопинга в 2
        мегабайта:

             BP /F2048


         B.Pascal 7 & Objects /UG    - 46 -

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

             BP /F0

                                   Параметр /G

             Используйте параметр /G для  разрешения  полного  сохранения
        графической памяти, при отладке графических программ в системах с
        EGA, VGA  или MCGA.  При включении сохранения графического экрана
        (Graphics Screen Save) IDE резервирует дополнительные 8  килобайт
        для буфера, который размещается в EMS (при ее доступности).

                                   Параметр /L

             Используйте параметр /L,  если вы работаете с IDE на жидкок-
        ристаллическом или плазменном экране.

                                   Параметр /N

             Используйте параметр  /N для разрешения или запрета проверки
        на помехи на адаптере CGA. Если вы работаете с адаптером CGA, ко-
        торый не  дает на экране помехи ("снег") при обновлении изображе-
        ния, запретите данный параметр.  Если вы не работаете с CGA, этот
        параметр не действует.

                           Параметр /O (только TURBO)

             Используйте параметр /O для изменения размера оверлейной ди-
        намически распределяемой памяти  IDE.  По  умолчанию  назначается
        размер 90К.  Если у вас есть EMS,  то вы можете уменьшить  размер
        оверлейной динамически распределяемой памяти, не ухудшая произво-
        дительности IDE и освободив дополнительную памяти для  компиляции
        и отладки программ.

                                   Параметр /P

             Используйте параметр /P, управляющий переключением палитр на
        видеоадаптере EGA, когда ваша программа модифицирует регистры па-
        литры.  Палитра EGA будет восстанавливаться при каждом переключе-
        нии экрана.

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

                                   Параметр /R

             Если параметр /R включен при запуске IDE,  то текущим стано-
        вится тот каталог,  в котором вы находились во  время  последнего
        выхода из IDE. По умолчанию этот параметр включен. Чтобы этот па-
        раметр начал  действовать,  нужно  также  выбрать  параметр   IDE
        OptionsіEnviromentіPreferences и установить параметр Desktop Auto

         B.Pascal 7 & Objects /UG    - 47 -

        Save. Если вы не хотите,  чтобы IDE запоминала последний каталог,
        выключите параметр /R.

                                   Параметр /S

             Если ваша система не имеет дополнительной памяти, используй-
        те параметр /S для задания диска и маршрута доступа  к  "быстрой"
        области свопинга,  такой  как виртуальный диск (например,  /Sd:\,
        где d - дисковод).  Если каталог свопинга не задан,  то файл сво-
        пинга создается в текущем каталоге.

                                   Параметр /T

             Если вы не хотите,  чтобы IDE загружала библиотеку исполняю-
        щей системы, запретите параметр /T. Для TURBO.EXE библиотекой ис-
        полняющей системы  является  TURBO.TPL.  В зависимости от целевой
        платформы для BP.EXE библиотекой исполняющей системы  может  быть
        TURBO.TPL (реальный режим),  TPW.TPL (Windows) или TPP.TPL (защи-
        щенный режим).  Если библиотека исполняющей системы не загружена,
        перед компиляцией  или  отладкой  программ вам потребуется модуль
        System. Запретив параметр /N и выделив SYSTEM.TPU  из  библиотеки
        исполняющей системы  с помощью TPUMOVER,  вы можете увеличить ем-
        кость IDE реального режима.  Если вы используете IDE  защищенного
        режима, то может сделать тоже самое, выделив в зависимости от це-
        левой платформы модуль SYSTEM.TPU,  SYSTEM.TPW или SYSTEM.TPP.  О
        выборе целевой платформы рассказывается ниже.

                   Примечание: Об утилите TPUMOVER рассказывается в Главе
              1  "Перемещение модулей" в "Руководстве по инструментальным
              средствам и утилитам".

                           Параметр /W (только TURBO)

             Используйте параметр /W,  если вы хотите изменить размер ди-
        намической памяти окна.  По умолчанию этот размер устанавливается
        в 32К.  Минимальная установка - 24К; максимальная - 64К. Если вам
        не требуется открывать в оперативной памяти много окон, уменьшите
        размер динамической памяти окна. Размер по умолчанию дает IDE хо-
        рошую емкость и достаточное оконное пространство.

                           Параметр /X (только TURBO)

             Используйте параметр /X, если вы хотите, чтобы IDE использо-
        вала дополнительную  память  (EMS).  По  умолчанию  этот параметр
        включен. При разрешении данного параметра IDE улучшает производи-
        тельностье, размещая  в  дополнительной памяти перекрываемый код,
        данные редактора и другие системные ресурсы.

                             Параметр /Y (только BP)

             С помощью этого параметра вы можете сделать так,  чтобы ком-
        пилятор "запоминал"  информацию об идентификаторах между компиля-
        циями. Если данный параметр включен,  и вы изменили свою програм-

         B.Pascal 7 & Objects /UG    - 48 -

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

                              Установка параметров
                         запуска в интегрированной среде

             Параметры запуска  вы можете также установить в самой интег-
        рированной среде:

             1. Выберите команду  OptionsіEnviromentіStartup  для  вывода
                диалогового окна Startup Options.

             2. Выберите нужные параметры и задействуйте кнопку OK.

             Установленные параметры  будут действовать при следующем за-
        пуске IDE.



         B.Pascal 7 & Objects /UG    - 49 -

                                  Выход из IDE
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Из IDE можно выйти двумя способами:

             * Чтобы полностью выйти из IDE,  выберите команду FileіExit.
               Если вы внесли изменения,  которые не были сохранены,  IDE
               выводит запрос,  хотите ли вы сохранить перед выходом свои
               программы.

             * Чтобы временно выйти из IDE для ввода команд  в  ответ  на
               подсказку DOS,  выберите команду FileіDOS Shell. IDE оста-
               ется в памяти,  но управление передается в DOS.  Вы можете
               ввести команды DOS и даже запустить другие программы. Ког-
               да вы будете готовы вернуться в IDE,  наберите в командной
               строке EXIT и нажмите Enter. IDE выводится в том виде, как
               вы из нее выше.


                      Использование справочной системы Help
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Справочная система Help предоставляет вам возможность легко-
        го доступа к детальной информации о языке Borland Pascal,  интег-
        рированной интерактивной  среде,  библиотеке исполняющей системе,
        директивах компилятора и т.д.

             Если вы ранее не работали со справочной  системой  Help  для
        DOS по языкам Borland,  то, прочитав следующие разделы, вы можете
        вывести справочный экран.  Экран содержимого справочника  Borland
        Pascal Help Contents выводится при выборе команды HelpіContents.


                        Перемещение в справочной системе
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если вы посмотрите на справочный экран,  то  увидите  текст,
        который выводится  цветом,  отличным  от окружающего текста.  Это
        ссылки. Вы можете использовать ссылки для вывода нового  справоч-
        ного экрана,  содержащего новую информацию по соответствующей те-
        ме. Выберите один из следующих методов:

             * Дважды щелкните на ссылке "мышью".

             * Если справочный экран не содержит командных кнопок:

               Нажимайте повторно клавишу Tab,  пока не будет  подсвечена
               ссылка, затем нажмите клавишу Enter.

             * Если справочный экран представляет собой диалоговое окно с
               командными кнопками:

               - Если вы используете "мышь",  щелкните "мышью" на  кнопке

         B.Pascal 7 & Objects /UG    - 50 -

                 перекрестных ссылок Cross-ref.

               - Если вы используете клавиатуру,  нажмите Enter; при этом
                 по умолчанию выбирается кнопка Cross-ref.  Чтобы выбрать
                 другую кнопку,  нажимайте повторно клавишу Tab,  пока не
                 будет подсвечена нужная кнопка,  затем  нажмите  клавишу
                 Enter.

             Выводится новый  справочный экран Help с информацией по выб-
        ранной теме. Вы перешли в новое место справочной системы. На этом
        экране вы можете видеть другие ссылки, которые можно выбирать для
        получения дальнейшей информации.

             Чтобы вернуться к предыдущему экрану Help,  выберите команду
        HelpіPrevious Topic или нажмите клавиши Alt+F1.


                                  Запрос помощи
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Доступ к справочнику Help можно получить несколькими  спосо-
        бами:

             * Выбрав  команду Help в строке меню или нажав Alt+H для вы-
               вода меню Help.

               В меню Help вы  можете  выбрать  вывод  экрана  оглавления
               Contents, экрана  тематического  указателя  Index  по всей
               справочной системе, детальную информацию по теме, на кото-
               рую указывает  курсор в окне редактирования или справку по
               работе со справочной системой Help.

             * Для вывода экрана тематического указателя  Borland  Pascal
               Help Index нажмите клавиши Shift+F1.

               Экран тематического  указателя Index аналогичен тематичес-
               кому указателю книги.  Однако, вместо того, чтобы перевер-
               нуть страницы  для  получения  информации  по  нужной теме
               здесь нужно дважды щелкнуть на ней кнопкой "мыши" или  пе-
               рейти к теме с помощью клавиши Tab и нажать Enter.

             * Нажав клавишу F1.

               Вы получите контекстно-зависимую информацию,  зависящую от
               того, что вы делаете в этот момент - редактируете, отлажи-
               ваете программу, выбираете параметры меню и т.д.

               Если вы находились в диалоговом окне,  то увидите справоч-
               ный экран по тому параметру,  который выделен в момент на-
               жатия F1.

             * Выбрав командную кнопку Help в диалоговом окне.


         B.Pascal 7 & Objects /UG    - 51 -

               При выборе  командной кнопки Help вы получите информацию о
               диалоговом окне.

             * Поместив курсор на термин в окне редактирования  и  выбрав
               Topic Search. Используйте любой из следующих методов:

               - нажмите клавиши Ctrl+F1;

               - выберите команду HelpіTopic Search;

               - удерживая  клавишу Ctrl,  щелкните правой кнопкой "мыши"
                 (комбинация нажатий  Ctrl+правая  кнопка  "мыши"  должна
                 быть   предварительно   настроена   -  выберите  команду
                 OptionsіEnviromentіMouse и   выберите   команду    Topic
                 Search).

               - выберите  команду Topic Search в локальном меню окна ре-
                 дактирования (нажмите клавиши Alt+F10 для вывода на  эк-
                 ран локального меню или щелкните правой кнопкой "мыши".

                   Примечание: О локальном меню окна редактирования расс-
              казывается ниже.

             В справочном экране выводится информация о термине, на кото-
        ром установлен курсор в активном окне.


                       Копирование примеров исходного кода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Справочная система  Help  содержит  примеры  кода для каждой
        процедуры и функции.  Вы можете скопировать эти примеры из  спра-
        вочной системы в окно редактирования. Выполните следующие шаги:

             1. Выведите  справочный  экран по интересующей вас процедуре
                или функции.

             2. Прокрутите справочное окно,  пока не увидите в нем пример
                исходного кода.

             3. Для  вывода  локального меню Help нажмите клавиши Alt+F10
                или щелкните правой кнопкой "мыши".

             4. Скопируйте пример:

                * для копирования всего  примера  выберите  команду  Copy
                  Example;

                * для копирования части исходного кода подсветите то, что
                  вы хотите скопировать, и выберите команду Copy.

             5. Вернитесь  в  окно  редактирования  и  выберите   команду
                EditіPaste, нажмите клавишу Shift+Ins или выберите коман-

         B.Pascal 7 & Objects /UG    - 52 -

                ду Paste в локальном меню окна редактирования.


                        Загрузка других справочных файлов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Интегрированная среда  позволяет вам подключать к справочной
        системе Help другие справочные файлы.  Например,  если вы  хотите
        получать справочную информацию по Turbo Vision,  то можете загру-
        зить справочный файл Turbo Vision.  IDE  объединяет  тематические
        указатели справочных файлов,  что позволяет вам получить доступ в
        экране Index как к обычной справочной системе Help, так и к спра-
        вочной системе Turbo Vision.

             Чтобы загрузить  новую  справочную  систему Help,  выполните
        следующие шаги:

             1. Выберите команду HelpіFiles (СправочникіФайлы).

                Выводится диалоговое  окно  установки  справочных  файлов
                Install Help Files.

             2. Выберите команду New (Новый).

                Выводится диалоговое  окно Help Files (Справочные файлы).
                Все справочные файлы в вашем каталоге BIN  с  расширением
                .TPH выводится в блоке списка. Если вы не видите справоч-
                ных файлов, измените каталог BP\BIN.

             3. Дважды щелкните "мышью" на справочном файле,  который  вы
                хотите включить в справочную систему,  или выделите его и
                нажмите клавишу Enter.

                     Примечание: Если  вы  хотите  также  выбрать  второй
                справочный файл, повторите этот шаг.

                Диалоговое окно Install Help Files появляется вновь,  и в
                нем выводится справочный файл, который вы выбрали в блоке
                списка.

             4. Выберите командную кнопку OK.

             5. Выберите команду HelpіIndex или нажмите клавиши Shift+F1.

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

                Тематические указатели остаются объединенными  в  течении
                текущего сеанса.  Если  в  диалоговом  окне   Preferences
                (OptionsіEnviromentіPreferences)  вы  установили параметр
                Enviroment Auto Save, то тематические указатели будут ос-

         B.Pascal 7 & Objects /UG    - 53 -

                таваться объединенными и в следующих сеансах.  Если вы не
                сохранили свою операционную среду,  то при следующем  за-
                пуске  IDE тематический указатель Help возвращается в ис-
                ходное состояние. Другими словами, объединение тематичес-
                ких  указателей  не  будет сохраняться от одного сеанса к
                другому.

                     Примечание: О  сохранении операционной среды расска-
                зывается ниже.

             Если вы не хотите видеть на экране  тематического  указателя
        Index конкретные записи  Help,  то  можете  "удалить"  справочный
        файл:

             1. Выберите команду HelpіFiles.

             2. Выберите имя справочного файла,  который вы больше не хо-
                тите просматривать.

             3. Выберите команду Delete.

             4. Выберите командную кнопку OK.


                            Выход из справочника Help
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Чтобы закрыть  окно Help и вернуться в свою прикладную прог-
        рамму вы можете выбрать один из следующих методов:

             * Нажать клавишу Esc.

             * Щелкнуть "мышью" на элементе закрытия окна Help.

             * Щелкнуть "мышью" вне окна Help.

             Если вы хотите вновь вывести  предыдущий  справочный  экран,
        нажмите клавиши Alt+F1.


                     Запись и редактирование исходного кода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Набирайте текст, как это делается в любом редакторе. Для за-
        вершения строки  нажимайте  Enter.  Когда  вы  введете достаточно
        строк, чтобы заполнить экран, он будет прокручиваться.

                   Примечание: В IDE  вы  можете  открыть  столько  окон,
              сколько позволяет память вашей системы.

             Полный список команд редактирования вы можете найти в Прило-
        жении A ("Справочник по редактору") "Руководства программиста".


         B.Pascal 7 & Objects /UG    - 54 -


                        Настройка конфигурации редактора
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Для модификации  поведения  редактора Borland Pascal имеется
        несколько параметров. Для вывода диалогового окна Editor выберите
        команду OptionsіEnviromentіEditor.

             Чтобы подробнее  узнать о каждом параметре,  выделите данный
        параметр и нажмите клавишу F1.  Справочная система Help поясняет,
        что делает данный параметр.

                   Примечание: О выделении синтаксиса в редакторе расска-
              зывается ниже.


                         Изменение решения: команда Undo
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Редактор имеет команду отмены Undo,  которая облегчает изме-
        нение вашего решения при выполнении каких-либо действий и исправ-
        ление ошибки.  Чтобы отменить действие предыдущей операции редак-
        тирования, выберите  команду  EditіUndo   или   нажмите   клавиши
        Alt+Backspace. Если вы продолжаете выбирать команду Undo,  редак-
        тор продолжает отменять действия. С помощью команды возобновления
        EditіRedo вы можете также отменить саму команду Undo.

             Команда Undo  вставляет все удаленные вами символы,  удаляет
        любой вставленный символ,  заменяет все перезаписанные символы  и
        перемещает курсор обратно на предыдущую позицию. Если вы отменяе-
        те блочную операцию, то файлы выводится в том виде, какой он имел
        перед выполнение блочной операции.

             Команда Undo не изменяет установку параметров,  влияющих бо-
        лее чем на одно окно.  Например,  если вы используете клавишу Ins
        для изменения  режима  вставки на режим замены,  а затем выберите
        Undo, редактор не изменит режим обратно не режим вставки. Но если
        вы удалили символ,  перешли в режим замены, затем выбрали команду
        Undo, то удаленные ранее символ выводится вновь.


                                Групповая отмена

             Параметр Group Undo в  диалоговом  окне  OptionsіEnviromentі
        Editor влияет на то,  как ведет себя команда Undo и соответствую-
        щая команда Redo. Если вы выберите параметр Group Undo (Групповая
        отмена), при нажатии клавиш Alt+Backspace или EditіUndo, редактор
        изменяет последнюю группу команд.

             Приведем пример того,  как работает групповой параметр. Если
        вы наберете,  например, MISTAKE и параметр Group Undo установлен,
        то Undo удаляет все слово.  Если параметр Group Undo не выбран, и
        вы набираете MISTAKE, Undo удаляет только последний символ, букву

         B.Pascal 7 & Objects /UG    - 55 -

        E. Чтобы отменить слово MISTAKE при выключенном  параметре  Group
        Undo, вам нужно использовать команду Undo семь раз.

                   Примечание: Группа - это последовательность команд од-
              ного типа.

             Вставки, удаления,  замены и  перемещения  курсора  являются
        групповыми операциями. Когда вы меняете тип команды, старая груп-
        па завершается и начинается новая. Для редактора вставка возврата
        каретки нажатием клавиши Enter - это вставка,  за которой следует
        перемещение курсора.  Поскольку тип редактирования изменился  (вы
        вставили символы,  затем переместили курсор), группа вставки сим-
        волов завершается, когда вы нажимаете Enter.

                                  Отмена отмены

             Команда EditіRedo изменяет на  обратное  действие  последней
        команды Undo. Redo немедленно действует только после команды Undo
        или другой команды Redo.  Последовательность команд Redo отменяет
        действие последовательности  команд Undo.  Как и в случае команды
        Undo, на команду Redo влияет параметр Group Undo.




         B.Pascal 7 & Objects /UG    - 56 -

                             Работа с блоками текста
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Блок текста  -  это любой объем текста (от одного символа до
        сотен строк),  который выделен на экране. В каждый момент времени
        в окне может быть выделен только один блок.

                                 Выделение блока

             Для выделения  блока  текста  существует по крайней мере три
        способа:

             * Буксируйте "мышь" по тексту, который вы хотите выделить.

             * Переместите свой курсор в  начало  блока  текста,  нажмите
               клавишу Shift и,  удерживая ее, переместите курсор к концу
               блока с помощью клавиш стрелок.

             * Щелкните "мышью" в начале блока, переместите курсор к кон-
               цу  блока  с помощью клавиш стрелок,  затем,  нажав Shift,
               снова щелкните кнопкой "мыши".

             Если вы уже работали с редакторами Borland ранее,  то можете
        использовать команды работы с блоками как обычно.  Таблицу команд
        редактора Borland для работы с блоками можно найти в Приложении A
        ("Справочник по редактору") "Руководства программиста".


                     Вырезание, копирование и вставка блоков

             После выбора  блока  его можно скопировать,  переместить или
        записать в файл.

             * Чтобы вырезать выделенный текст, нажмите клавиши Shift+Del
               или выберите команды EditіCut.  Выделенный блок удаляется
               из текста и помещается  в  буфер  вырезанного  изображения
               ("карман") - временную область памяти.

             * Для   копирования   выделенного   текста  нажмите  клавиши
               Ctrl+Ins или выберите команду EditіCopy.  Выделенный  блок
               остается в тексте, а его копия помещается в буфер вырезан-
               ного изображения и готова для вставки в другом окне  реда-
               ктирования.

             * Чтобы вставить (скопировать) текст,  содержащийся в буфере
               вырезанного изображения,  в активное окно, нажмите клавиши
               Shift+Ins или выберите команду EditіPaste.  Блок, содержа-
               щийся в буфере, вставляется в текущей позиции курсора.

             * Для стирания (удаления) выделенного текста нажмите клавиши
               Ctrl+Del или выберите команду EditіClear.  Выделенный блок
               удаляется из  текста,  и копия не помещается в буфер выре-
               занного изображения.  Единственный  способ  восстановления

         B.Pascal 7 & Objects /UG    - 57 -

               удаленного текста состоит в применении команды EditіUndo.


                      Изменение поведения выделенных блоков

             На поведение в редакторе выделенных блоков влияют два  пара-
        метра -  Persistent  Blocks и Overwrite Blocks.  Их можно найти в
        диалоговом окне OptionsіEnviromentіEditor.

             * Если включен параметр Persistent Blocks  (Постоянные  бло-
               ки), то  выделенные  блоки остаются выделенными пока вы их
               не удалите или не отмените выделение (или пока не выделите
               другой блок).

             * Если параметр Persistent Blocks выключен, и вы перемещаете
               курсор за выделенный блок, то выделение блока отменяется.

             * Если параметр  Persistent  Blocks  выключен,  то  параметр
               Overwrite Blocks setting игнорируется.

             * Если включен параметр Overwrite Block (Затирание блока), и
               вы набираете букву,  то выделенный блок заменяется набран-
               ной буквой.

             * Если  параметр  Overwrite  Block выключен,  и вы набираете
               букву, то буква вставляется после выделенного текста.

             * Если  параметр  Overwrite  Block   включен,   а   параметр
               Persistent Block выключен,  и вы нажимаете клавишу Del или
               клавишу Backspace, то весь выделенный текста удаляется.

             Если вы вставляете текст (нажимая символ или вставляя его из
        буфера), то весь выделенный текст заменяется вставленным текстом.



         B.Pascal 7 & Objects /UG    - 58 -

                                      Поиск
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Вы можете использовать редактор для поиска строки в исходном
        коде. Для поиска строки текста в активном окне редактирования вы-
        полните следующие шаги:

             1. Выберите команду SearchіFind. При этом открывается диало-
                говое окно Find Text (Поиск текста).

             2. Наберите искомую строку в блоке ввода Text to Find.

             3. Вы можете также задать различные параметры поиска:

                * Кнопки  с независимой фиксацией Options (Параметры) оп-
                  ределяют, будет при поиске:

                  - различаться регистр символов;

                  - выполняться поиск только полного слова;

                  - использоваться регулярные выражения (об использовании
                    регулярных  выражений в строках поиска рассказывается
                    в Приложении A "Справочного  руководства  программис-
                    та").

                * Кнопки  с  зависимой фиксацией Scope (Область действия)
                  управляют тем,  в какой части файла выполняется поиск -
                  во все файле или только в выделенном тексте.

                * Кнопки  с  зависимой  фиксацией Direction (Направление)
                  управляют тем,  в каком направлении вы выполняете поиск
                  - в прямом или в обратном.

                * Кнопки  с зависимой фиксацией Origin (Начало) управляет
                  тем, откуда начинается поиск.

             4. Для выполнения поиска выберите командную кнопку OK.

             5. Если вы хотите выполнить повторный поиск того же  элемен-
                та, выберите команду SearchіSearch Again (ПоискіПовторный
                поиск).

             По умолчанию в блоке ввода Text to Find (Искомый текст)  вы-
        водится слово,  на котором позиционируется курсор. Если вы не хо-
        тите, чтобы это происходило, сделайте следующее:

             1. Выберите команду OptionsіEnviromentіEditor.

             2. Отмените установку параметра Find Text at Cursor.

             При выводе  диалогового  окна  Find  в блоке ввода выводится
        слово, на котором находится курсор. Если вы хотите вместо отдель-

         B.Pascal 7 & Objects /UG    - 59 -

        ного слова  найти предложение или группу слов,  нажмите клавишу >
        (когда курсор находится в блоке ввода Find Text).  В блоке  ввода
        появляется дополнительный текст,  как если бы он "вытягивался" из
        окна редактирования.


                                 Поиск и замена

             Для поиска строки текста и замены ее другой строкой выберите
        команду SearchіReplace (ПоискіЗамена). Выберите в диалоговом окне
        параметры, как это делается для команды  Search,  но  включите  в
        блок Next Text строку замены.

             Если вы  хотите заменить все вхождения строки в своем файле,
        выберите параметр Change All. Если вы выберете параметр Prompt on
        Replace, редактор будет выполнять поиск, пока не найдет указанную
        строку, затем запросит,  хотите ли вы ее заменить. Если вы не ис-
        пользуете параметр  Prompt  on  Replace,  лучше  выбрать параметр
        Whole Words Only (Только полные  слова).  Это  позволит  избежать
        случаев замены символов в середине слова - возможно,  вы не хоти-
        те, чтобы это происходило.


                         Соответствие пар ограничителей

             Иногда вам не требуется искать текст,  а нужно  найти  соот-
        ветствующий парный  ограничитель (фигурную или квадратную скобку,
        одинарную кавычку, двойную кавычку, двойной знак вопроса или ком-
        бинацию скобки и звездочки,  обозначающую комментарий). Предполо-
        жим у вас есть сложное выражение с множеством  вложенных  выраже-
        ний, и вы хотите убедиться, что не пропущена ни одна скобка. Нуж-
        но сделать следующее:

             1. Поместите курсор на ограничителе (скобке).

             2. Нажмите клавиши Ctrl+Q[.

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

             Если для выбранного вами ограничителя  нет  соответствующего
        парного, редактор не смещает курсор.

             На самом деле есть две команды редактирования пар  ограничи-
        телей:  одна для поиска соответствующей пары в прямом направлении
        (Ctrl+Q[), а другая - в обратном (Ctrl+Q]).

             Если вы  поместите  курсор на одинарную или двойную кавычку,
        редактор не знает,  в каком направлении нужно искать парный огра-
        ничитель. В этом случае вы должны задать корректную команду поис-
        ка пары.


         B.Pascal 7 & Objects /UG    - 60 -

             Для круглых, квадратных и фигурных скобок не имеет значения,
        какая команда используется для поиска пары. Редактор знает, в ка-
        ком направлении искать соответствующий ограничитель.

             Приведем пример, иллюстрирующий соответствие пар:

                       совпадающая  совпадающая совпадающая
                          пара         пара        пара
                          ЪБї        ЪДДБДДї     ЪДДБДДї
             Array1[Array2[x]]      ((x > 0) and (y < 0)
                   АДДДДВДДДДЩ      АДДДДДДДДДВДДДДДДДДЩ
                   совпадающая           совпадающая
                      пара                  пара

             Рис. 4.1 Поиск соответствующей квадратной или круглой  скоб-
        ки.




         B.Pascal 7 & Objects /UG    - 61 -

                       Переход к строке с заданным номером
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Редактор отслеживает,  на какой строке  находится  курсор  в
        строке состояния  окна.  Быстрый  способ  перехода в определенное
        место в файле состоит в использовании команды Go to  Line  Number
        (Переход на строку с номером):

             1. Выберите команду SearchіGo to Line Number.

             2. Наберите номер строки, на которую вы хотите перейти.

             3. Выберите командную кнопку OK.


                Использование локального меню окна редактирования
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Многие из функций, выполняемых вами при работе в окне редак-
        тирования, удобно  расположены в локальном меню окна редактирова-
        ния. Когда окно редактирования активно, вы можете вывести локаль-
        ное меню двумя способами:

             * Нажать клавиши Alt+F10.

             * Щелкнуть правой кнопкой "мыши".

             Интегрированная среда  IDE  содержит  также другие локальные
        меню. Прочитав об использовании справочника Help, отладке и прос-
        мотре, вы узнаете, где находятся остальные локальные меню.




         B.Pascal 7 & Objects /UG    - 62 -

                              Выделение синтаксиса
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Когда вы пишете или редактируете программу на Паскале, неко-
        торые части  исходного  кода  выводятся на экран разными цветами.
        Например, зарезервированные слова Borland Pascal выводятся  белым
        цветом, а остальной текст - желтым.  Такое цветовое выделение ис-
        ходного кода облегчает быструю идентификацию частей кода.

                                  Цвета текста

             Чтобы изменить цвет элемента, выполните следующие шаги:

             1. Выберите команду OptionsіEnviromentіColors. Выводится ди-
                алоговое окно Colors (Цвета).


             ЙН[ ]НННННННННННННННННННННННColorsННННННННННННННННННННННННН»
             є                                                          є
             є Group            Item                                    є
             є  Compiler     ^   Whitespace       ^  ЪДForegroundДДДДДї є
             є  Desktop      ±   Comments         ±  і±±±±ІІІІ±±±±    і є
             є  Dialogs      ±   Reserved words   ±  іІІІІЫЫЫЫ    °°°°і є
             є  Help         ±   Identifiers      ±  іЫЫЫЫ    °°°°ЫЫЫЫі є
             є  Menus        ±   Symbols          ±  АДДДДДДДДДДДДДДДДЩ є
             є  Messages     ±   Strings          ±  ЪДBackgroundДДДДДї є
             є  Output       ±   Members          ±  і±±±±ІІІІ±±±±    і є
             є  Register     Ы   Assembler        ±  іІІІІЫЫЫЫ    °°°°і є
             є ІSyntaxІІІІІІІ±                    ±  іЫЫЫЫ    °°°°    і є
             є  Watches      ±                    ±  АДДДДДДДДДДДДДДДДЩ є
             є               ±                    Ы  Text°Text°Text°    є
             є               v                    v  Text°Text°Text°    є
             є                                                          є
             є                  ЫЫЫЫЫOKЫЫЫЫ  ЫЫЫCancelЫЫЫ  ЫЫЫHelpЫЫЫЫ  є
             є                   ±±±±±±±±±±±  ±±±±±±±±±±±±  ±±±±±±±±±±± є
             є                                                          є
             ИННННННННННННННННННННННННННННННННННННННННННННННННННННННННННј

                Рис. 4.2 Диалоговое окно Colors.

                Colors -  цвета;  Group - группа;  Compiler - компилятор;
                Desktop - оперативная область;  Dialogs - диалоги; Help -
                справочник;  Menus - меню; Messages - сообщения; Output -
                вывод;  Register - регистр; Syntax - синтаксис; Watches -
                выражения просмотра; Item - элемент; Whitespace - пробел;
                Comments - комментарий;  Reserved words - зарезервирован-
                ные слова; Identifiers - идентификаторы; Symbols - имена;
                Strings - строки; Members - элементы (члены); Assembler -
                ассемблер; Foreground - основной цвет; Background - фоно-
                вый цвет.

                В блоке списка слева выводятся все группы элементов,  ко-
                торые вы можете выделять цветом в IDE.

         B.Pascal 7 & Objects /UG    - 63 -


             2. Прокрутите блок списка  Group,  пока  не  увидите  группу
                Syntax  (Синтаксис).  Выберите  группу  Syntax  и в блоке
                списка Item выведутся элементы кода Паскаля,  которые  вы
                можете выделять цветом.

             3. Выделите элемент,  который вы  хотите  изменять  в  блоке
                списка Item.

             4. Выберите основной и фоновый цвет,  который вы хотите наз-
                начить для элемента.

                * Чтобы выбрать фоновый цвет с помощью "мыши",  щелкните
                  ее кнопкой  на  нужном цвете матрицы цветов Foreground.
                  Чтобы выбрать цвет с помощью клавиатуры, нажимайте кла-
                  вишу Tab, пока не будет выбрана матрица фонового цвета,
                  затем для выделения цвета используйте клавиши стрелок.

                * Чтобы выбрать фоновый цвет, выберите нужный цвет в мат-
                  рице цветов Background.

                Как только вы сделаете выбор цвета,  он будет  отражен  в
                примере текстового окна.

             5. Выберите командную кнопку OK.

                           Выбор файлов для выделения

             По умолчанию выделение синтаксиса происходит только в файлах
        с расширениями .PAS и .INC. Вы можете использовать выделение син-
        таксиса в файлах другого типа.

             Чтобы изменить тип файлов,  выводимых с выделением синтакси-
        са, сделайте следующее:

             1. Выберите команду OptionsіEnviromentіEditor.

             2. Измените текст в блоке Highlight Extensions.

                Допускается любое разрешенное имя файла DOS, включая тра-
                фаретные символы. Вы можете задать несколько имен файлов.
                В этом случае их нужно разделить двоеточиями.

                         Запрещение выделения синтаксиса

             Если вы не хотите использовать выделение синтаксиса,  то мо-
        жете выключить его:

             1. Выберите команду OptionsіEnviromentіEditor.

             2. Отмените выбор параметра Syntax Highlight (Выделение син-
                таксиса).


         B.Pascal 7 & Objects /UG    - 64 -

             Цвет обычного   текста   изменяется  модификацией  параметра
        EditorіNormal Text в диалоговом окне  OptionsіEnviromentіCoplors.
        Если вы не выключите подсветку синтаксиса,  изменение цвета обыч-
        ного текста не действует.




         B.Pascal 7 & Objects /UG    - 65 -

                              Печать исходного кода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если вы  хотите получить печатную копию своего исходного ко-
        да, выберите команду FileіPrint.  IDE расширяет символы табуляции
        (заменяя табуляцию  соответствующим числом пробелов и затем печа-
        тает ваш файл.

                    Выделение элементов синтаксиса при печати

             Вы можете напечатать текст таким образом, чтобы синтаксичес-
        кие элементы  были  выделены.  Перед печатью вы должны пропустить
        выводимый на принтер текст черед программу-фильтр PRNFLTR.EXE:

             1. Выберите команду FileіPrinter Setup.

             2. Если программа PRNFLTR.EXE не находится по вашему маршру-
                ту или в текущем каталоге,  добавьте информацию о текущем
                маршруте в запись PRNFLTR в диалоговом окне Filter Path.

             3. В блоке ввода Command  Line  вы  можете  указать  принтер
                Epsor, HP LaserJet или PostScript.

                * Если вы используете принтер Epson, введите:

                  $NOSWAP /EPSON

                * Если вы используете принтер HP LaserJet, введите:

                  $NOSWAP /HP

                * Если вы используете принтер PostScript, введите:

                  $NOSWAP /PS

                 Если у вас другой тип принтера, то вы можете модифициро-
                 вать файл PRNFLTR.PAS, чтобы воспринимались соответству-
                 ющие коды.

             4. Установите параметр Send Highllighting Escape Codes.

             5. Выберите командную кнопку OK.

             6. Выберите команду FileіPrint.

                Если параметр Syntax Highlight установлен,  ваш текст пе-
                чатается с выделением синтаксических элементов.



         B.Pascal 7 & Objects /UG    - 66 -

                                Работа с файлами
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При программировании  в IDE вы можете создавать новые файлы,
        открывать существующие файлы и сохранять их. Основные команды ра-
        боты с файлами перечислены в следующей таблице:

             ЪДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
             і     Команда      і             Описание             і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіNew         і Открывает новое  окно  редактиро-і
             і                  і вания и присваивает ему временноеі
             і                  і имя.                             і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіOpen        і Выводит  диалоговое окно,  с  по-і
             і                  і мощью   которого   можно  открытьі
             і                  і файл.                            і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіSave        і Сохраняет  файл в  активном  окнеі
             і                  і редактора на диске.              і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіSave As     і Сохраняет  файл в  активном  окнеі
             і                  і редактора под другим именем.     і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіSave All    і Сохраняет  все   модифицированныеі
             і                  і файлы.                           і
             АДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ



         B.Pascal 7 & Objects /UG    - 67 -

                                 Открытие файлов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Для открытия файла выполните следующие шаги:

             1. Выберите команду  FileіOpen.  Выводится  диалоговое  окно
                Open a  File  (Открытие файла).  Для задания открываемого
                файла вы можете выполнить одно из следующих действий.

                * В блоке ввода наберите полное имя файла.

                * Наберите имя файла с трафаретными  символами.  Это  от-
                  фильтровывает  список  файлов  в  соответствии с вашими
                  спецификациями.  В списке Files выберите имя файла, ко-
                  торый вы хотите редактировать.

                * Для  вывода списка протокола (спецификаций имен файлов,
                  которые вы задавали ранее), нажмите стрелку вниз. Выбе-
                  рите требуемое имя файла или спецификацию. Выбор специ-
                  фикации файла  выводит  файлы,  соответствующие  данной
                  спецификации.

                * Дважды  щелкнув  "мышью"  на  имени  другого каталога в
                  списке файлов,  просмотрите содержимое этого  каталога.
                  Выберите имя файла, который вы хотите редактировать.

             2. После  того  как имя файла,  который вы хотите редактиро-
                вать, будет выделено в блоке ввода, выберите команду Open
                (Открыть) или Replace (Заменить).  Команда Open загружает
                файл в новое окно редактирования; команда Replace заменя-
                ет  содержимое  активного  окна  редактирования выбранным
                файлом.

             После выделения имени файла вы можете просто нажать  клавишу
        Enter или, когда увидите имя нужного файла в списке, дважды щелк-
        нуть на нем кнопкой "мыши". Файл будет открыт.

             Если вы откроете один или более файлов, а затем закроете их,
        то увидите  их  список в нижней части меню File (до пяти файлов).
        Если вы выберите в меню один из этих пяти файлов,  то файл откры-
        вается в  окне  редактирования.  Когда вы работаете с несколькими
        открытыми файлами,  то можете закрыть некоторые из них, при необ-
        ходимости быстро открывая их снова с помощью списка. Это уменьшит
        перегруженность вашей оперативной области.

             Вы можете также изменить используемый по  умолчанию  каталог
        на тот,  в котором находится открываемый вами файл.  Это изменяет
        поведение, заданное переменными операционной среды Windows:

             1. Выберите команду OptionsіEnviromentіPreferences.

             2. Установите параметр Change Dir (Смена каталога).


         B.Pascal 7 & Objects /UG    - 68 -

             3. Выберите командную кнопку OK.


                        Открытие файла в позиции курсора
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE дает вам быстрый способ открытия файла, имя которого на-
        ходится в вашем исходном коде. Вы найдете это удобным, когда пот-
        ребуется просмотреть код модуля или включаемого файла, используе-
        мого в вашей программе.

             1. Поместите курсор на имя файла, который вы хотите открыть.

             2. Нажмите клавиши Ctrl+Enter или  выведите  локальное  меню
                окна  редактирования  и  выберите  команду  Open  File at
                Cursor (Открытие файла в позиции курсора).




         B.Pascal 7 & Objects /UG    - 69 -

                             Компиляция и выполнение
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE предоставляет  вам несколько способов создания выполняе-
        мой программы,  модуля или (если вы используете защищенный режим)
        динамически компонуемую библиотеку. Вы можете:

             * Скомпилировать  текущий  файл  с помощью команды (Compileі
               Compile).

             * Скомпилировать все измененные файлы (CompileіMake).

             * Скомпилировать все файлы проекта (CompileіBuild).

             * Скомпилировать и выполнить программу (RunіRun).

             Каждая из этих возможностей подходит для  конкретной  ситуа-
        ции. Следующие разделы помогут вам решить, какую возможность луч-
        ше использовать.


                             Выбор целевой платформы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если вы используете BP.EXE, то перед компиляцией своей прог-
        раммы  вам нужно сообщить IDE,  какой вид прикладной программы вы
        создаете:  программу DOS реального режима,  программу Windows или
        программу  DOS  защищенного  режима.  Тип  создаваемой прикладной
        программы называется целевой платформой.

                   Примечание: TURBO.EXE  может  создавать приложение ре-
              ального режима.

             Для выбора целевой платформы сделайте следующее:

             1. Выберите команду CompileіTarget.

             2. В диалоговом окне Target выберите нужную целевую платфор-
                му.

             3. Выберите командную кнопку OK.


         B.Pascal 7 & Objects /UG    - 70 -

             При компиляции  модуля  расширения имени файла полученного в
        результате модуля в зависимости от целевой платформы будут разли-
        чаться:

          ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
          і    Целевая платформа      і Расширение имени файла модуля і
          і                           і       объектного кода         і
          ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
          і  Реальный режим DOS       і           .TPU                і
          і                           і                               і
          і  Windows                  і           .TPW                і
          і                           і                               і
          і  Защищенный режим DOS     і           .TPP                і
          АДДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ


         B.Pascal 7 & Objects /UG    - 71 -

                                   Компиляция
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Команда CompileіCompile  компилирует  только файл в активном
        окне редактирования. При компиляции программы выводится окно сос-
        тояния, в  котором  сообщается  о  ходе и результатах компиляции.
        Когда компиляция и компоновка будет выполнена, нажмите любую кла-
        вишу. Окно  состояния  исчезнет.  Если имеется ошибка,  в верхней
        части окна редактирования вы увидите сообщение об ошибке,  а кур-
        сор будет позиционирован на ту строку кода, где имеется ошибка.

                             Выбор места назначения

             Если вы используете IDE защищенного режима, то с помощью ко-
        манды CompileіDestination можете выбрать компиляцию программы  на
        диск или в память.  Если вы выберете компиляцию на диск,  ваш вы-
        полняемый код сохраняется на диске в виде файла .EXE.  Компиляция
        на диск увеличивает объем памяти,  доступной в IDE для компиляции
        и отладки вашей программ.  При выборе компиляции  в  память  ваша
        программа будет записываться в память,  и, если вы ее не сохрани-
        те, будет потеряна при выходе из IDE.

             При компиляции на диск полученные в  результате  файлы  .EXE
        или .TPU сохраняются в том же каталоге, что и исходные файлы, или
        в каталоге EXE and TPU (OptionsіDirectories), если он задан.

                               Формирование (Make)
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

             Команда CompileіMake  создает файл .EXE или модуль.  Если вы
        в качестве целевой платформы используете IDE защищенного режима и
        Windows, она может также создавать динамически компонуемую библи-
        отеку (DLL).

                   Примечание: О создании DLL рассказывается в  Главе  11
              "Библиотеки  динамической  компоновки" "Руководства по язы-
              ку".

             Команда Make (Формирование) использует следующие правила:

             * Если задан основной файл, то он компилируется. В противном
               случае  компилируется файл в активном окне редактирования.
               Перед компиляцией IDE проверяет все файлы,  чтобы убедить-
               ся, что они существуют и являются текущими.

                    Примечание: Более  подробно об основных файла расска-
               зывается ниже.

         B.Pascal 7 & Objects /UG    - 72 -


             * Если  исходный файл для данного модуля модифицирован с мо-
               мента создания файла .TPU,  .TPW или .TPP (объектный код),
               то этот модуль перекомпилируется.

             * Если изменяется интерфейс для данного модуля, перекомпили-
               руются все другие зависящие от него модули.

                    Примечание: О модулях подробнее рассказывается в Гла-
               ве 7 "Модули Borland Pascal".

             * Если модуль компонуется с файлом .OBJ (внешние подпрограм-
               мы) и  файл  .OBJ  является более новым,  чем модули .TPU,
               .TPW или .TPP, то модуль перекомпилируется.

             * Если модуль содержит включаемый файл,  и  включаемый  файл
               более новый, чем модули .TPU, .TPW или .TPP, то модуль пе-
               рекомпилируется.

             Если компилятор не может найти исходный код модуля,  то  мо-
        дуль не компилируется и используется как есть.



         B.Pascal 7 & Objects /UG    - 73 -

                               Построение (Build)
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Команда CompileіBuild (КомпиляцияіПостроение)  перестраивает
        все компоненты  вашей программы независимо от того,  являются они
        текущими или нет.

             Эта команда аналогична команде CompileіMake,  только она вы-
        полняет полную перекомпиляцию,  даже если файл не изменялся. Если
        вы остановите команду Build,  нажав клавиши Ctrl+Break, или полу-
        чите ошибки,  которые  прекращают построение, то, выбрав Compileі
        Make, вы можете определить, где это произошло.

             Если в  IDE реального режима DOS вы выбрали компиляцию в па-
        мять, то все файлы .TPU обновляются на диске (для всех перекомпи-
        лируемых командой Build модулей).


                                   Выполнение
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             После создания выполняемого файла вы можете попробовать, как
        она работает.  Для этого можно использовать команду  RunіRun.  На
        самом деле  вам  не нужно предварительно компилировать свою прог-
        рамму. Если ваш код изменился с момента последней компиляции, ко-
        манда Run автоматически формирует вашу программу и затем выполня-
        ет ее.

             Если ваша программа представляет собой прикладную  программу
        DOS защищенного режима, то в текущем каталоге или по маршруту DOS
        у вас должны находиться файлы DPMI16BL.OVL и RTM.EXE, в противном
        случае программа  выполняться не будет.  Вы можете свободно расп-
        ространять эти файлы с готовой прикладной программой.

                          Передача программе параметров

             При запуске программы вы можете передать  ей  параметры  ко-
        мандной строки.  Для вывода диалогового окна Parameters (Парамет-
        ры) и набора списка параметров,  которые вы хотите  использовать,
        выберите команду RunіParamenters.


         B.Pascal 7 & Objects /UG    - 74 -

                      Параметры компилятора и компоновщика
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE позволяет вам выбрать несколько параметров,  влияющих на
        характер компиляции кода.  Для вывода диалогового окна параметров
        компилятора Compiler Options выберите  команду  OptionsіCompiler.
        Если вы не уверены относительно того, что делает конкретный пара-
        метр, выберите его в диалоговом окне, в строке состояния появится
        поясняющая справка.  Для вывода более подробной информации о дан-
        ном параметре нажмите клавишу F1 или выберите  команду  Help  для
        получения справочной информации обо всем диалоговом окне Compiler
        Options.

        ЙН[ ]ННННННННННННННННННННННCompiler OptionsННННННННННННННННННННН»
        є  Compiler settings for:         ±±Real mode target±±±±±±±±±±v±є
        єДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДє
        є Code generation                                               є
        є ±[±]±Force±far±calls±±±±±±±±±[±]±286±instructions±±±±±±±±±    є
        є ±[±]±Overlays±allowed±±±±±±±±[±]±Smart±callbacks±±±±±±±±±±    є
        є ±[X]±Word±align±data±±±±±±±±±[±]±Windows±stack±frames±±±±±    є
        є Runtime errors              Syntax Options                    є
        є ±[±]±Range±checking±±±±±    ±[X]±Strict±var-strings±±±±±±±    є
        є ±[X]±Stack±checking±±±±±    ±[±]±Complete±boolean±eval±±±±    є
        є ±[X]±I/O±checking±±±±±±±    ±[X]±Extended±syntax±±±±±±±±±±    є
        є ±[ ]±Overflow±checking±±    ±[±]±Typed±@±operator±±±±±±±±±    є
        є Debugging                   ±[±]±Open±parameters±±±±±±±±±±    є
        є ±[X]±Debug±Information±±    Numeric processing                є
        є ±[X]±Local±symbols±±±±±±    ±[±]±8087/80287±±±±±±±±±±±±±±±    є
        є ±[X]±Symbol±information±    ±[X]±Emulation±±±±±±±±±±±±±±±±    є
        є                                                               є
        є Conditional defines                                           є
        є ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫvЫ  є
        є                                                               є
        є                       ЫЫЫЫЫOKЫЫЫЫ  ЫЫЫCancelЫЫЫ  ЫЫЫHelpЫЫЫЫ  є
        є                        ±±±±±±±±±±±  ±±±±±±±±±±±±  ±±±±±±±±±±± є
        є                                                               є
        ИНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННј

             Рис. 4.3 Диалоговое окно Compiler Options.

             Compiler settings for - установки компилятора для; Real mode
        target -  целевая  платформа реального режима;  Code generation -
        генерация кода;  Force far calls -  принудительное  использование
        вызовов дальнего  типа;  286 instructions - инструкции процессора
        286; Overlays allowed - допустимость оверлеев;  Smart callbacks -
        эффективные вызовы; Word align data - выравнивание данных на гра-
        ницу слова;  Windows stack frames кадры  стека  Windows;  Runtime
        errors - ошибки этапа выполнения; Syntax Options - синтаксические
        ошибки; Range checking - проверка диапазона; Strict var-strings -
        строгая проверка строковых переменных;  Stack checking - проверка
        стека;  Complete boolean eval - полное вычисление булевских выра-
        жений;  I/O  checking - проверка ввода-вывода;  Extended syntax -
        расширенный синтаксис;  Overflow checking - проверка переполнения

         B.Pascal 7 & Objects /UG    - 75 -

        стека;  Typed  @ operator - типизованная операция @;  Debugging -
        отладка;  Open parameters - открытые параметры; Debug Information
        - отладочная информация; Numeric processing - числовая обработка;
        Local symbols - локальные идентификаторы; 8087/80287 - процессоры
        8087/80287;  Symbol information - локальная информация; Emulation
        - эмуляция; Conditional defines - условные определения.

                               Задание параметров
                        компилятора для целевой платформы

             Выбираемые вами параметры компилятора в сильной степени  за-
        висят от того,  какую целевую платформу вы используете. Например,
        если вы создаете приложение DOS реального режима,  то можете раз-
        решить использование  оверлеев,  что  не  требуется  для программ
        Windows или защищенного режима DOS.

             Для указанной целевой платформы вы можете  установить  стан-
        дартные параметры компилятора:

                   Примечание: Меню    Compiler    Options    компилятора
              TURBO.EXE не имеет параметра Compiler Setting For.

             1. Для  вывода  прокручиваемого  списка  щелкните "мышью" на
                стрелке v или нажмите клавишу  стрелки  вниз  при  выборе
                блока списка Compiler Setting For.

             2. Проверьте выбранную целевую платформу.

             IDE автоматически устанавливает обычно используемые парамет-
        ры. В любой момент вы можете переопределить эти выбранные  в  IDE
        параметры.

             Если параметр  компилятора  несовместим  с выбранной целевой
        платформой,  то он становится тусклым,  и вы не можете его  выби-
        рать.

                              Установка параметров
                      компилятора для всех целевых платформ

             Если вы хотите чтобы конкретный параметр компилятора был ус-
        тановлен  независимо от используемой целевой платформы,  сделайте
        следующее:

             1. В качестве значения параметра Compiler Settings For выбе-
                рите All Targets.

             2. Установите или отмените параметр компилятора,  который вы
                хотите установить.

             Например, если вы хотите использовать инструкции  процессора
        286 для всех платформ,  выберите All Targets (Все платформы), за-
        тем установите параметр 286 instructions.


         B.Pascal 7 & Objects /UG    - 76 -

             Когда вы выбираете All Targets, то можете увидеть, что в не-
        которых кнопках  с независимой фиксацией выводится вопросительный
        знак (?). Это указывает, то установка параметра для всех платформ
        не является одинаковой.  Вы можете изменить этот параметр, сделав
        его одинаковым для всех платформ, или оставить как есть.

                         Задание параметров компоновщика

             Характер компоновки вашего кода зависит от установок в  диа-
        логовом окне Linker Options (Параметры компоновщика). Для его вы-
        вода выберите команду OptionsіLinker.  Если нужна более детальная
        информация, выберите Help.

                      Включение в код директив компилятора

             Существует еще  один способ задания режима компиляции исход-
        ного кода. Вместо использования для установки параметров диалого-
        вых окон  вы  можете  включить  в свой код директивы компилятора.
        Например, вы можете включить в свою программу проверку диапазона,
        установив в   диалоговом  окне  OptionsіCompiler  параметр  Range
        Checking, или поместить в исходный код  директиву  {$R+}.  Полное
        описание директив  компилятора и их использования вы можете найти
        в Главе  2  ("Директивы  компилятора")  "Справочного  руководства
        программиста".

             Включаемые в  исходный код директивы компилятора имеют боль-
        ший приоритет,  чем параметры компилятора, устанавливаемые в IDE.
        Например, если  в  IDE вы установите параметр Range Checking,  но
        ваша программа включает в себя директиву {R-},  то программа ком-
        пилируется с выключенной проверкой диапазона.

                                Оптимизация кода

             Некоторые параметры  компилятора,  поскольку  они включают в
        программу код проверки и обработки ошибок,  влияют как на размер,
        так и  на скорость вашего кода.  Хотя такие параметры полезно ис-
        пользовать при разработке программы,  без них вы можете  получить
        более быстрый и компактный код.

             Приведем параметры, влияющие на оптимизацию кода. Каждая ди-
        ректива компилятора сопровождается указанием соответствующего па-
        раметра компилятора.  Рассмотрим  использование  для  завершающей
        компиляции следующих параметров:

             * Выравнивание данных  на  границу  слова  Word  Align  Data
               ({$A+})  выравнивает переменные и типизированные константы
               на границу слова, что дает в системах с процессорами 80x86
               более быстрый доступ к памяти.

             * Выключение полного вычисления булевских выражений Complete
               Boolean Evaluation ({$B-}) дает код, который в зависимости
               от установки  ваших булевских выражений более быстро рабо-
               тает.

         B.Pascal 7 & Objects /UG    - 77 -


             * При выключенной эмуляции Emulation ({$E-})  компилятор  не
               будет выполнять  компоновку с библиотекой исполняющей сис-
               темы, эмулирующей сопроцессор 80x87.  Она должна использо-
               вать сопроцессор  80х87  (в  случае его наличия) или стан-
               дартный 6-байтовый тип  Real.  При  компиляции  приложений
               Windows эмуляция  не  используется;  при наличии директивы
               эмуляции компилятор ее игнорирует.

             * Когда  задана  генерация  кода   процессора   80286   Code
               Generation ({$G+}), компилятор для улучшения генерации ко-
               да использует дополнительные инструкции процессора  80286.
               Скомпилированные таким образом программы не будут работать
               на процессорах 8088 и 8086.

             * При выключенной проверке ввода-вывода I/O Checking ({$I-})
               компилятор не  проверяет ошибки ввода-вывода.  Вызвав пре-
               допределенную функцию IOResult,  вы можете  самостоятельно
               проверить ошибки ввода-вывода.

             * Когда  выключена  числовая  обработка  Numeric  Processing
               ({$N-}), компилятор генерирует  код,  способный  выполнять
               все операции  с  плавающей  точкой  с  помощью встроенного
               6-байтового типа Real.  Если параметр  Numeric  Processing
               включен, ({$N+}),  компилятор использует сопроцессор 80х87
               или эмулирует сопроцессор с помощью  программного  обеспе-
               чения, в зависимости от наличия сопроцессора 80х87.  Полу-
               ченный в результате код может использовать четыре дополни-
               тельных вещественных  типа  (Single,  Double,  Extended  и
               Comp).

             * Когда выключена проверка диапазона Stack Checking ({$R-}),
               компилятор не  выполняет проверку на ошибки индексирования
               массива и присваивание значения вне диапазона.

             * При выключенной проверке стека Stack Checking ({$S-}) ком-
               пилятор не обеспечивает достаточного пространства в  стеке
               для каждого вызова процедуры или функции.

             * Когда включена нестрогая проверка строк-переменных Relaxed
               String Var Checking ($V-}),  компилятор не проверяет пара-
               метры-переменные строкового типа.  Это позволяет вам пере-
               давать строки фактических параметров,  имеющие длину,  от-
               личную от длины,  определенной  для  формального  парамет-
               ра-переменной.

             * При  разрешении  расширенного  синтаксиса  Extended Syntax
               ({$X+}) вы можете использовать вызовы функций как операто-
               ры, поскольку  результат функциональных вызовов может отб-
               расываться.

         B.Pascal 7 & Objects /UG    - 78 -


             Оптимизация вашего кода с помощью этих параметров имеет  два
        преимущества. Во-первых,  это  делает  ваш код более компактным и
        быстрым. Во-вторых,  позволяет делать вам некоторые вещи, которые
        вы обычно делать не можете.  Однако, все эти параметры вносят не-
        который риск, поэтому используйте их аккуратно, и если ваша прог-
        рамма начинает вести себя странно, вернитесь к исходной ситуации.


         B.Pascal 7 & Objects /UG    - 79 -

                               Условная компиляция
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Чтобы облегчить  ваши  задачи,  Borland  Pascal   предлагает
        средство условной компиляции.  Это означает,  что можете компили-
        ровать части своей программы на основе параметров или  определен-
        ных идентификаторов.

             Условные директивы аналогичны по формату директивам компиля-
        тора, с которыми вы уже познакомились.  Они имеют следующий  фор-
        мат:

             {$директива аргумент}

        где "директива" - это такая директива как DEFINE, IFDEF и т.д., а
        аргумент - необязательный аргумент. Между ними обязательно должен
        присутствовать разделитель  (пробел или табуляция).  Все условные
        директивы и их смысл приведены в Таблице 4.3.

                   Примечание: Полное описание директив условной компиля-
              ции можно найти в Главе 2 ("Директивы компилятора")  "Спра-
              вочного руководства программиста".

                          Директива условной компиляции       Таблица 4.3
        ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
        і          Директива           і            Описание            і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і    {$DEFINE идентификатор}   і Определяет "идентификатор" для і
        і                              і других директив.               і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і    {$UNDEF идентификатор}    і Отменяет определение  "иденти- і
        і                              і фикатора".                     і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і    {$IFDEF идентификатор}    і Компилирует следующий код, ес- і
        і                              і ли определен "идентификатор".  і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і    {$IFNDEF идентификатор}   і Компилирует следующий код, ес- і
        і                              і ли  "идентификатор" не опреде- і
        і                              і лен.                           і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і    {$IFOPT x+}               і Компилирует следующий код, ес- і
        і                              і ли разрешена директива x.      і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і    {$IFOPT x-}               і Компилирует следующий код, ес- і
        і                              і ли запрещена директива x.      і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і    {ELSE}                    і Компилирует следующий код, ес- і
        і                              і ли предыдущее выражение  IFxxx і
        і                              і не равно True.                 і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і    {$ENDIF}                  і Отмечает конец блока IFxxx или і
        і                              і ELSE.                          і
        АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ

         B.Pascal 7 & Objects /UG    - 80 -

                            Директивы DEFINE и UNDEF
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Директивы IFDEF и IFNDEF проверяют,  определен  ли  заданный
        идентификатор. Эти идентификаторы определяются с помощью DEFINE и
        UNDEF. (Можно также определять идентификаторы в командной  строке
        или в IDE.)

             Чтобы определить идентификатор, включите в программу следую-
        щую директиву:

             {$DEFINE идентификатор}

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

             {$DEFINE debug}

             Этим для остальной части компилируемого модуля или до следу-
        ющего оператора:

             {$UNDEF debug}

        определяется идентификатор debug.

             Директива UNDEF "разопределяет" идентификатор.  Если иденти-
        фикатор не определен, то она не действует.

                   Определение условных идентификаторов в IDE

             Вместо того,  чтобы вставлять директиву DEFINE в свой исход-
        ный код,  вы  можете  также  определить условные идентификаторы и
        блоке ввода Conditional Defines (Условные определения). Определи-
        те идентификаторы,  введя их в блоке ввода и разделив точками за-
        пятой. Например,  в следующем примере определяются  два  условных
        идентификатора - TestCode и DebugCode:

             TestCode:DebugCode



         B.Pascal 7 & Objects /UG    - 81 -

                         Предопределенные идентификаторы

             Кроме определяемых вами идентификаторов вы можете также про-
        верять отдельные идентификаторы, определяемые компилятором:

                    Предопределенные условные идентификаторы  Таблица 4.4
        ЪДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
        і   Идентификатор   і              Показывает                   і
        ГДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і   CPU86           і Данная версия Borland Pascal предназначенаі
        і                   і для семейства процессоров 80х86.          і
        ГДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і   CPU87           і Присутствует   арифметический  сопроцессорі
        і                   і 80х87.                                    і
        ГДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і   DPMI            і Данная версия предназначена для операцион-і
        і                   і ной среды защищенного режима DOS. При соз-і
        і                   і дании приложений  для  защищенного  режимаі
        і                   і DOS   данный  идентификатор  доступен  дляі
        і                   і BP.EXE.                                   і
        ГДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і   MSDOS           і Данная  версия предназначена для  операци-і
        і                   і онной системы MS-DOS. Данный идентификаторі
        і                   і доступен в BP.EXE только при создании при-і
        і                   і ложений  DOS реального или защищенного ре-і
        і                   і жима и в TURBO.EXE.                       і
        ГДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і   VER70           і Данная версия является версией  7.0 компи-і
        і                   і лятора.                                   і
        ГДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і   WINDOWS         і Данная  версия предназначена для  операци-і
        і                   і онной среды Windows.  Данный идентификаторі
        і                   і доступен в BP.EXE и в BPW.EXE, когда целе-і
        і                   і вой платформой является Windows.          і
        АДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ

             Подробнее о предопределенных условных идентификаторах компи-
        лятора рассказывается в Главе 2 ("Директивы компилятора")  "Руко-
        водства программиста".


                       Идентификаторы IFxxx, ELSE и ENDIF

             Смысл условных  директив  в том,  что если определен или нет
        конкретный идентификатор  либо если установлен или нет конкретный
        параметр,  вы можете выбирать для компиляции некоторые части  ис-
        ходного кода.  Они имеют следующий общий формат,  где IFxxx - это
        директивы IFDEF,  INDEF или IFOPT,  за которыми следует соответс-
        твующий  аргумент,  а "исходный код" - любое количество исходного
        кода Паскаля.

             {$IFxxx}
                исходный код

         B.Pascal 7 & Objects /UG    - 82 -

             {$ENDIF}

             Если выражение в директиве IFxxx принимает значение True, то
        "исходный код" компилируется;  в противном случае он игнорируется
        и интерпретируется как обычный комментарий в программе.

             Часто у вас имеются альтернативные фрагменты кода.  Если вы-
        ражение принимает значение True,  то компилируется один  фрагмент
        кода, а  если False - другой.  Компилятор позволяет сделать это с
        помощью директивы $ELSE:

             {$IFxxx}
                исходный код A
             {$ELSE}
                исходный код B
             {$ENDIF}

             Если выражение в IFxxx равно True,  то компилируется "исход-
        ный код A", в противном случае компилируется "исходный код B".

             Все директивы IFxxx должны завершаться с одном исходном фай-
        ле. Это означает,  что они не могут начинаться в  одном  исходном
        файле и заканчиваться в другом.  Однако,  в директиве IFxxx может
        указываться включаемый файл:

             {$IFxxx}
                {$I file1.pas}
             {$ELSE}
                {$I file2.pas}
             {$ENDIF}

             Таким образом,  на основе некоторого условия вы можете выби-
        рать альтернативные включаемые файлы

             Допускается использовать вложенные конструкции IFxxx..ENDIF,
        так что вы можете записать, например, следующее:

             {$IFxxx}                   { первая директива IF }
               .
               .
               .
             {$IFxxx}                   { первая директива IF }
               .
               .
               .

             {$ENDIF}                   { завершает вторую директиву IF }
               .
               .
               .
             {$ENDIF}                   { завершает первую директиву IF }



         B.Pascal 7 & Objects /UG    - 83 -

                            Директивы IFDEF и IFNDEF

             Директивы IFDEF и IFNDEF позволяют вам условно компилировать
        код на основе определения или неопределения некоторых идентифика-
        торов.

             Директивы IFDEF и IFNDEF обычно используются для включения в
        компилируемый код отладочной информации. Например, если вы помес-
        тите в начало каждого модуля следующий код:

             {$IFDEF debug}
             {$D+,L+}
             {$ELSE}
             {$D-,L-}
             {$ENDIF}

        а в начало программы следующую директиву:

             {$DEFINE debug}

        и компилируете  свою программу,  для использования с Турбо отлад-
        чиком генерируется полная отладочная информация.  Аналогично,  вы
        можете иметь фрагменты кода,  компилируемые только при отладке. В
        этом случае можно записать:

             {$IFDEF debug}
                исходный код
             {$ENDIF}

        где "исходный код" компилируется только в том случае, если в дан-
        ной точке определен идентификатор debug.


         B.Pascal 7 & Objects /UG    - 84 -


                                 Директива IFOPT

             Иногда включить  или  исключить код желательно в зависимости
        от того,  какой выбран параметр компилятора (проверка  диапазона,
        проверка  ввода-вывода  и т.д.).  Вы можете сделать это с помощью
        директивы IFOPT, которая имеет две формы:

             {$IFOPT x+}
        и
             {$IFOPT x-}

        где x - один из параметров компилятора.  При использовании первой
        формы содержащийся ниже код будет компилироваться,  если параметр
        компилятора в данный момент разрешен;  при  использовании  второй
        формы код компилируется при запрещении параметра. Например, чтобы
        выбрать тип данных для списка переменных на основе того, разреше-
        на или нет поддержка сопроцессора 80х87,  можно использовать сле-
        дующий исходный код:

             var
               {$IFOPT N+}
                  Radius,Circ,Area:  Double;
               {$ELSE}
                  Radius,Circ,Area:  Real;
               {$ENDIF}

                   Примечание: Полное описание всех параметров компилято-
              ра вы можете найти  в  Главе  2  ("Директивы  компилятора")
              "Справочного руководства программиста".




         B.Pascal 7 & Objects /UG    - 85 -

                             Просмотр исходного кода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE защищенного режима DOS содержит новое  программное  инс-
        трументальное средство  просмотра  объектов - ObjectBrowser.  Оно
        позволяет вам исследовать программы и модули в программах и  мно-
        гое другое.  Даже если разрабатываемое вами приложение не исполь-
        зует объектно-ориентированное   программирование,   вы    найдете
        ObjectBrowser чрезвычайно полезным средством.  Вы можете просмат-
        ривать иерархию объектов, модулей и всех процедур, функций, пере-
        менных, типов, констант и другие используемые в программе иденти-
        фикаторы. С помощью ObjectBrowser вы можете делать следующее:

             * Просмотреть в своей прикладной программе  иерархию  объек-
               тов. Затем выбрать объект и просмотреть все его процедуры,
               функции и другие содержащиеся в программе  идентификаторы.
               При проверке  идентификатора  вы  можете  вывести перечень
               всех ссылок на него в процедурах,  функциях  программы  и,
               если хотите,  перейти на то место в исходном коде,  где он
               используется.

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

             * Вывести список всех используемых в программе модулей,  за-
               тем выбрать  один из них и просмотреть список всех иденти-
               фикаторов его интерфейсной части.

             * Выбрать идентификатор в исходном коде,  затем  просмотреть
               детальную информацию по нему,  нажав клавишу Ctrl и однов-
               ременно щелкнув правой кнопкой "мыши".

             * Открыть множество окон просмотра, сравнить идентификаторы,
               выводимые в различных окнах,  а затем вернуться в предыду-
               щее открытое в средстве просмотра окно.

             Перед использованием ObjectBrowser убедитесь, что в диалого-
        вом окне OptionsіCompiler установлены следующие параметры:

             * Debug Information (Информация для отладки).

             * Locals Symbols (Локальные идентификаторы).

             * Symbol Information (Информация об идентификаторах).

             Убедитесь также,  что  в  диалоговом окне Debugging/Browsing
        (OptionsіDebugger) установлен  параметр   Integrated   Debugging/
        Browsing  (Отладка  с  использование  встроенного отладчика/Прос-
        мотр).


         B.Pascal 7 & Objects /UG    - 86 -

             Скомпилируйте программу, которую вы хотите просматривать.

             Для активизации ObjectBrowser выберите в меню Search (Поиск)
        команду Objects (Объекты), Units (Модули) или Globals (Глобальные
        идентификаторы). Вы можете также поместить курсор на  идентифика-
        тор в  исходном  коде  и выбрать для вывода ObjectBrowser команду
        SearchіSymbol (ПоискіИдентификатор).

             Вы можете также сделать так,  чтобы  компилятор  "запоминал"
        информацию об идентификаторах между компиляциями. Если этот пара-
        метр включен,  и вы измените программу,  но следующая  компиляция
        завершиться неудачно,  то вам все равно будет доступна информация
        об идентификаторах, сохраненная с последней компиляции. Благодаря
        этому вы сможете просмотреть свою программу,  что поможет вам оп-
        ределить источник проблемы.  Чтобы компилятор сохранял информацию
        об идентификаторах между компиляциями, нужно сделать следующее:

             1. Выбрать команду OptionsіEnviromentіStartup.

             2. Установить  параметр Preserve Symbols (Сохранение иденти-
                фикаторов); по умолчанию он установлен.

             3. Выбрать командную кнопку OK.

             4. Для выхода из IDE выбрать команду FileіExit.

             5. Снова запустить IDE.

                   Примечание: Поскольку Preserve Symbols - это  параметр
              запуска,  изменение  его установки не будет иметь действие,
              пока вы не выйдите из IDE и не запустите ее снова.

         B.Pascal 7 & Objects /UG    - 87 -


             Если у вас есть "мышь",  то исходный код удобнее  просматри-
        вать, если  задать  активизацию ObjectBrowser правой кнопкой "мы-
        ши". Затем,  удерживая нажатой клавишу Ctrl,  вы можете использо-
        вать правую кнопку "мыши" для указания и проверки объекта, проце-
        дуры, функции,  переменной или другого идентификатора в вашем ис-
        ходном коде и его анализа (вывода детальной информации).

                   Примечание: Для быстрого просмотра идентификатора,  на
              котором в исходном коде позиционирован  курсор,  вы  можете
              также  выбрать в локальном меню окна редактирования команду
              Browse Symbol at Cursor (Просмотр идентификатора в  позиции
              курсора).

             Чтобы задать просмотр с помощью "мыши",  выполните следующие
        шаги:

             1. Выберите команду OptionsіEnviromentіMouse.

             2. Выберите параметр Browse as the Ctrl + Right Mouse Button
                (Просмотр по клавише Ctrl + правая кнопка "мыши").

             3. Выберите командную кнопку OK.




         B.Pascal 7 & Objects /UG    - 88 -

                                Просмотр объектов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Команда SearchіObjects открывает окно,  в котором  выводятся
        все используемые в программе объекты, упорядоченные в иерархичес-
        кой структуре.  В верхней части окна ObjectBrowser показывает ба-
        зовый тип и выводит ниже и справа от базового типа потомков. Про-
        яснить соотношения "предок-потомок" помогают соединяющие линии.

                   Примечание: Подробную информацию о типах  объектов  вы
              можете найти в Главе 9 ("Объектно-ориентированной  програм-
              мирование").

        ±File±Edit±Search±±Run±±Compile±Debug±Tools±Options±Window±Help±±
        ЙН[*]НННННННННННННННННННННН Browse: Object НННННННННННННННН2Н[*]»
        є Global Scope                                                  є
        єДґ I ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДє
        єДObjects±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±^
        є ГДДДДLocation                                                 Ы
        є і    ГДДДBlock                                                ±
        є і    і   ГДДДBall                                             ±
        є і    і   АДДДBrick                                            ±
        є і    ГДДДCursor                                               ±
        є і    і   АДДДSaveScreen                                       ±
        є і    ГДДДObstacle                                             ±
        є і    і   ГДДДBoundary                                         ±
        є і    і   і   ГДДДLeftBound                                    ±
        є і    і   і   ГДДДLowerBound                                   ±
        є і    і   і   ГДДДRightBound                                   ±
        є і    і   і   АДДДUpperBound                                   ±
        є і    і   ГДДДPaddle                                           ±
        є і    і   АДДДWall                                             ±
        є і    АДДДTextString                                           ±
        є і        АДДДCounter                                          ±
        є і            АДДДDownCounter                                  ±
        є і                АДДДLimitCounter                             v
        И<±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>ДЩ
        °F1°Help°<Щ°Browse°°Ctrl°<Щ°Go°to°source°Space°Track°src°F10°Menu

             Рис. 4.4 Просмотр иерархии объектов прикладной программы.

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

             * С помощью клавиатуры сделайте следующее:

               1. Выберите объект.

               2. Нажмите клавишу - (минус).

             * При наличии "мыши" просто щелкните "мышью" на горизонталь-
               ной линии, соединяющей объект с иерархией.


         B.Pascal 7 & Objects /UG    - 89 -

             Теперь после объекта выводится + (плюс),  и он подсвечивает-
        ся, показывая, что потомки данного объекта на экран не выводятся.

             Вы можете вывести потомков объекта снова.

             * С помощью клавиатуры:

               1. Выделите объект с символом +.

               2. Нажмите клавишу +.

             * При  наличии  "мыши" щелкните ей на горизонтальной строке,
               соединяющей объект с иерархией.

             Потомки объекта появляются вновь.

             Из иерархии объектов вы можете просматривать все описанные в
        индивидуальном объекте идентификаторы.  Выделите объект и нажмите
        клавишу Enter, либо дважды щелкните на объекте кнопкой "мыши".

             При просмотре описанных в объекте идентификаторов вы  можете
        задать различные виды вывода:

             * Для  вывода информации о наследовании для просматриваемого
               объекта щелкните "мышью" на букве I в верхней  части  окна
               ObjectBrowser или нажмите клавиши Ctrl+I.

             * Для  вывода  на  экран перечня строк программы или модуля,
               где  имеется  ссылка  на  идентификатор  объекта  щелкните
               "мышью"  на букве R в верхней части окна ObjectBrowser или
               нажмите клавиши Ctrl+R.

             * Для вывода области действия объекта  щелкните  "мышью"  на
               букве S или нажмите клавиши Ctrl+S.

             Чтобы найти  идентификатор  в списке выводимых идентификато-
        ров, наберите первую букву имени идентификатора; ваш курсор быст-
        ро перемещается на соответствующий идентификатор.

             Чтобы ObjectBrowser  мог находить,  где расположены ваши ис-
        ходные файлые,  вам может потребоваться изменить маршрут каталога
        модулей и   включаемых   файлов   в   диалоговом   окне  Optionsі
        Directories.

             Если после открытия окна просмотра вы модифицируете исходный
        код, добавляя или удаляя строки программы, то программу лучше пе-
        рекомпилировать. Хотя ObjectBrowser после  модификации  исходного
        кода все  равно сможет отслеживать информацию об идентификаторах,
        номера строк исходного кода,  выводимые в окне редактирования, не
        будут обновляться, пока программа не будет перекомпилирована.

                Изменения режима вывода информации ObjectBrowser


         B.Pascal 7 & Objects /UG    - 90 -

             Вы можете управлять характером вывода в ObjectBrowser инфор-
        мации.

             Можно выбрать,   какие   идентификаторы   должны    выводить
        ObjectBrowser:

             1. Для  вывода диалогового окна Browser Options выберите ко-
                манду OptionsіBrowser.

             2. В группе Symbols отметьте только те идентификаторы, кото-
                рые вы  хотите выводить в ObjectBrowser.  Вы можете также
                выбрать вывод  идентификаторов,  наследуемых  от  предков
                объекта.

             3. Выберите командную кнопку OK.

                В ObjectBrowser выводятся только те идентификаторы, кото-
                рые вы выбрали.

             Вы можете также выбрать, какие идентификаторы выводить толь-
        ко в  активном окне просмотра.  Для вывода диалогового окна Local
        Browser Options (Локальные параметры просмотра)  выберите  в  ло-
        кальном меню  окна  просмотра команду Options или при отображении
        окна просмотра нажмите клавиши Ctrl+O.


         B.Pascal 7 & Objects /UG    - 91 -


             Если вы в качестве типа отображаемых идентификаторов выбере-
        те типы,  переменные  и  процедуры,  а затем будете просматривать
        объект Location в программе BREAKOUT.PAS (пример демонстрационной
        программы в каталоге EXAMPLES\DOS\BREAKOUT), то увидите следующую
        информацию об идентификаторах:

        ±File±Edit±Search±±Run±±Compile±Debug±Tools±Options±Window±Help±±
        ЙН[*]НННННННННННННННННННННН Browse: Object НННННННННННННННН2Н[*]»
        є Global Scope                                                  є
        єДґ S і I і R ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДє
        є±var±±±±Location.X:±±Integer±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±^
        є var    Location.Y:  Integer                                   Ы
        є var    Location.Visible:  Boolean                             ±
        є var    Location.Init(Integer, Integer)                        ±
        є proc   Location.Relocate(Integer, Integer)                    ±
        є proc   Location.MoveTo(Integer, Integer)                      ±
        є proc   Location.Show                                          ±
        є proc   Location.Hide                                          ±
        є func   Location.GetX:  Integer                                ±
        є func   Location.GetY:  Integer                                ±
        є func   Location.InVisible: Boolean                            ±
        є                                                               ±
        є                                                               ±
        є                                                               v
        И<Ы±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>ДЩ
        °F1°Help°<Щ°Browse°°Ctrl°<Щ°Go°to°source°Space°Track°src°F10°Menu

             Рис. 4.5 Просмотр информации об идентификаторах.

             Сокращения слева от перечисленных идентификаторов перечисля-
        ют идентификаторы,  представляющие вид выводимого идентификатора.
        Заметим, что включение идентификаторов  процедур  также  включает
        идентификаторы функций.

             ЪДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
             і Идентификатор і      Смысл                         і
             ГДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і    const      і Константа                          і
             і    func       і Функция                            і
             і    label      і Метка                              і
             і    proc       і Процедура                          і
             і    type       і Тип                                і
             і    var        і Переменная или типизированная кон- і
             і               і станта.                            і
             АДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ

             Для вывода   предыдущего  окна  просмотра  выберите  команду
        SearchіPrevious Browser или нажмите клавиши Ctrl+P.

             Когда вы  просматриваете  выделенный   идентификатор,   окно

         B.Pascal 7 & Objects /UG    - 92 -

        ObjectBrowser по  умолчанию  выводит  информацию об области дейс-
        твия. Если вы предпочитаете  по  умолчанию  видеть  информацию  о
        ссылках, то сделайте следующее:

             1. Выберите команду OptionsіBrowser.

             2. Выберите  в  качестве  значения  параметра Preferred Pane
                Reference.

             3. Выберите командную кнопку OK.

             По умолчанию ObjectBrowser выводит для проверяемого  иденти-
        фикатора полную информацию об описании. Вы можете просмотреть все
        поля и методы записей и объектов,  включая  полностью  уточненные
        идентификаторы.  Если  вы  не  хотите видеть полностью уточненные
        идентификаторы, то сделайте следующее:

             1. Выберите команду OptionsіBrowser.
             2. Отмените параметр вывода Qualified Symbols.
             3. Выберите командную кнопку OK.

                   Примечание: Вы не увидите видеть полностью  уточненные
              идентификаторы,  пока не установите наследование в диалого-
              вом окне Browser Options (OptionsіBrowser).

             По умолчанию ObjectBrowser выводит идентификаторы в  области
        Scope в том порядке,  в каком они описаны.  Если вы предпочитаете
        сортировать идентификаторы в алфавитном порядке, то сделайте сле-
        дующее:

             1. Выберите команду OptionsіBrowser.
             2. Установите параметр вывода Sort Always.
             3. Выберите командную кнопку OK.

                Идентификаторы будут сортироваться только по именам, а не
                по полностью уточненным именам.  Например, считается, что
                следующий  список идентификаторов отсортирован в алфавит-
                ном порядке:

                    THELPFILE.DONE
                    TOBJECT.FREE
                    THELPFILE.INDEX: PHELP

             Когда вы открываете окно просмотра, затем просматриваете пе-
        речисленный в нем идентификатор,  то открывается новое окно прос-
        мотра, но предыдущее окно остается.  Вы можете изменить это пове-
        дение таким образом, что новое окно просмотра будет заменять пре-
        дыдущее:


         B.Pascal 7 & Objects /UG    - 93 -

             1. Выберите команду OptionsіBrowser.

             2. Установите параметр Replace Current sub-browsing.

             3. Выберите командную кнопку OK.

             Чтобы текущее окно просмотра сохранялось, когда вы выбираете
        перечисленный в его списке идентификатор, сделайте следующее:

             1. Выберите команду OptionsіBrowser.

             2. Установите параметр New Browser sub-browsing.

             3. Выберите командную кнопку OK.

             Возможно, в  большинстве  случаев вы предпочитаете использо-
        вать параметр Replace Current или New Browser, но иногда исполь-
        зуете альтернативный параметры. Быстро выбрать альтернативный па-
        раметр можно следующим образом:

             1. Нажмите и удерживайте в нажатом состоянии клавишу Shift.

             2. Выберите следующее действие просмотра.

                Например, если действует параметр New Browser, то при на-
                жатии  клавиши Shift следующее открываемое окно просмотра
                будет замещать текущее.

                 Отслеживание и редактирование ссылок на строки

             Когда ObjectBrowser выводит ссылочную информацию,  вы можете
        выбирать и  редактировать выводимые в ссылке строки программы или
        отслеживать ссылки на идентификатор.  Отслеживание означает,  что
        IDE, при перемещении по ссылкам в окне просмотра,  подсвечивает в
        программе одну строку за другой.

             Чтобы отредактировать выводимую в ссылке  строку  программы,
        сделайте следующее:

             1. Выделите ссылку в окне просмотра.

             2. Нажмите клавиши Ctrl+Enter или Ctrl+G.

                Ваш курсор  перемещается  на  строку программы в исходном
                коде, ссылка на которую содержится в окне просмотра.  Те-
                перь вы можете редактировать строку программы.

                По умолчанию, когда ваш курсор перемещается на строку ис-
                ходного кода программы,  окно ObjectBrowser  закрывается.
                Если  вы  предпочитаете,  чтобы окно просмотра оставалось
                открытым, то отмените параметр Close On Go  To  Source  в
                диалоговом окне Preferences.


         B.Pascal 7 & Objects /UG    - 94 -

                     Примечание: Параметр  Close  On  Go To Source влияет
                также на окно сообщений Messages (см. ниже).

             Для отслеживания строк программы:

             1. В окне просмотра выделите ссылку,  которую вы хотите отс-
                леживать.

             2. Нажмите клавишу пробела.

                Если вы всегда хотите отслеживать ссылки по исходному ко-
                ду, установите  параметр  Auto  Track  Source  и   группе
                Options диалогового окна Preferences. Тогда при прокрутке
                ссылок строки в исходном коде программы  будут  прокручи-
                ваться автоматически, и пробел вам нажимать не нужно.

                     Примечание: Параметр  Auto Track Source влияет также
                на окно сообщений Messages (см. ниже).

             Теперь строки программы,  на которые имеются ссылки  в  окне
        просмотра, отслеживаются в зависимости от того, как вы установили
        параметры отслеживания  в  диалоговом  окне   OptionsіEnviromentі
        Preferences: если файл, на который имеется ссылка, не находится в
        окне редактирования, то IDE открывает файл, и он выводится либо в
        новом, либо в текущем окне редактирования.

             * Если вы хотите, чтобы файл выводился в новом окне редакти-
               рования, выберите в  качестве  значения  параметра  Source
               Tracking New Window.

             * Если вы хотите, чтобы файл замещал текущий в активном окне
               редактирования,  выберите в  качестве  значения  параметра
               Source Tracking Current Window.

                     Примечание: Параметр Source Tracking влияет также на
                окно сообщений Messages (см. ниже).

             Если выбранный модуль хранится в библиотеке исполняющей сис-
        темы Borland Pascal или является одним из стандартных модулей, то
        вы не сможете просматривать или редактировать исходный код,  пос-
        кольку эти  модули скомпилированы без включения отладочной инфор-
        мации.



         B.Pascal 7 & Objects /UG    - 95 -

                                Просмотр модулей
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Команда SearchіUnits  открывает  диалоговое окно,  в котором
        выводятся используемые в вашей программе модули,  перечисленные в
        алфавитном порядке.  Для  просмотра идентификаторов,  описанных в
        интерфейсной части модуля,  выделите конкретный модуль и  нажмите
        клавишу Enter  или дважды щелкните не нем кнопкой "мыши".  Анало-
        гично тому,  как это делается с объектами,  вы можете видеть  об-
        ласть действия ссылочной информации для идентификатора.  Если мо-
        дуль, на который имеется ссылка,  не является одним из  поставля-
        емых с Borland Pascal стандартных модулей,  и скомпилирован таким
        образом, что включает в себя всю необходимую для  интегрированной
        отладки/просмотра информацию,  то  вы  можете при соответствующей
        ссылке отслеживать и редактировать исходный код модуля.

             В следующем примере модуль Walls описывается в строке 4 фай-
        ла WALLS.PAS и вызывается на строке 37 BREAKOUT.PAS.

             ЪДДДДДДДДДДДДДДДДД Browse: Units ДДДДДДДДДДДДД2ДДї
             і  Global scope                                  і
             ГДґ S ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і unit  Bounds                                   і
             і unit  Breakout                                 і
             і unit  Bricks                                   і
             і unit  Count                                    і
             і unit  Crt           ЙН[*]ННННН Browse:  Walls НН3ННН[^]Н»
             і unit  Dos           є unit  Walls                       є
             і unit  Screen        єДґ S і R ГДДДДДДДДДДДДДДДДДДДДДДДДДє
             і unit  System        є WALLS.PAS(4)                      є
             і±unit±±Walls±±±±     є°BREAKOUT.PAS(37)°°°°°°°°°°°°°°°°°°є
             і                     є                                   є
             і                     є                                   є
             і                     ИНН2/2ННННННННННННННННННННННННННННННј
             і                                                і
             і                                                і
             АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ

             Рис. 4.6 Просмотр модулей в вашей прикладной программе.


         B.Pascal 7 & Objects /UG    - 96 -

                       Просмотр глобальных идентификаторов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Команда SearchіGlobal  открывает  окно,  в котором выводятся
        используемые в программе глобальные идентификаторы, перечисленные
        в алфавитном  порядке.  Как  и  в случае объектов,  для просмотра
        строк в  программе,  ссылающихся на этот идентификатор,  описаний
        идентификатора и иерархии наследования вы можете открывать допол-
        нительные окна ObjectBrowser.  При выводе ссылочной информации вы
        можете отслеживать или редактировать строки программы.  Например,
        на  следующем  рисунке показан список глобальных идентификаторов,
        используемых в программе BREAKOUTS.PAS:

        ЙН[*]НННННННННННННННННННННН Browse: Object НННННННННННННННН2Н[^]»
        є Global Scope                                                  є
        єДґ S ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДє
        є±func±±±Abs(..)±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±^
        є func   Addr(...)                                              Ы
        є const  AnyFile = 63                                           ±
        є proc   Append(...)                                            ±
        є const  Archive = 32                                           ±
        є func   ArcTan(...)                                            ±
        є proc   Assing(...)                                            ±
        є proc   AssingCrt(var Text)                                    ±
        є func   Assigned(...)                                          ±
        є var    b: Ball                                                ±
        є type   Ball = object(Block)                                   ±
        є var    Balls: DownCounter                                     ±
        є proc   Beep                                                   ±
        є const  Block = 0                                              ±
        є const  Blink = 128                                            ±
        є type   Block = object(Location)                               ±
        є proc   BlockRead(...)                                         ±
        є const  Blue = 1                                               v
        И<Ы±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>ДЩ

             Рис. 4.7 Просмотр глобальных идентификаторов, используемых в
        программе.

         B.Pascal 7 & Objects /UG    - 97 -

                    Просмотр идентификаторов в исходном коде
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Вы можете просматривать идентификаторы в своем исходном  ко-
        де. Поместите  курсор на идентификатор и выберите один из следую-
        щих методов:

             * Для вывода диалогового окна Browse Symbol выберите в  меню
               Search команду Symbol. Используйте идентификатор, выведен-
               ный в диалоговом окне,  или введите другой идентификатор и
               выберите командную кнопку OK.

             * Для  вывода  локального  меню  окна редактирования нажмите
               клавиши Alt+F10 или щелкните правой кнопки "мыши" и  выбе-
               рите команду Browse Symbol at Cursor.

             * Если для просмотра идентификаторов вы задали правую кнопку
               "мыши" (выбором команды OptionsіEnviromentіMouse и  Browse
               at Cursor),  то нажмите клавишу Ctrl и, удерживая ее, щел-
               кните правой кнопкой "мыши".

             Тип информации,  которую вы видите, зависит от типа информа-
        ции, доступной для выбранного идентификатора:

             * Если для выделенного вами идентификатора информация об об-
               ласти  действия  недоступна,  то ObjectBrowser выводит для
               него ссылочную информацию. Например, для простой константы
               доступна только ссылочная информация.

             * Если выделенный вами идентикатор не имеет доступной инфор-
               мации об области действия, ObjectBrowser выводит для этого
               идентификатора информацию об области  действия.  Он  также
               дает вам возможность видеть ссылочную информацию.

             * Если  выделенный  вами  идентификатор  представляет  собой
               структурный тип,  то ObjectBrowser выводит для этого  типа
               информацию об области действия.  Он дает вам также возмож-
               ность видеть информацию о наследовании и ссылочную  инфор-
               мацию. Если вы выберите информацию о наследовании, то уви-
               дите непосредственного предка этого типа и  непосредствен-
               ных потомков, если они имеются.

             Если вы  выбрали  просмотр структурного типа,  ObjectBrowser
        выводит на экран полностью уточненные имена, если удовлетворяются
        следующие два условия:

             * В  диалоговом окне Browser Options (OptionsіBrowser) или в
               диалоговом окне  Local  Browser  Options  (локальное  меню
               Options окна просмотра) выбран параметр Inherited symbol.

             * В  диалоговом окне Browser Options (OptionsіBrowser) или в
               диалоговом окне  Local  Browser  Options  (локальное  меню
               Options окна просмотра) выбран параметр Qualified Symbols.

         B.Pascal 7 & Objects /UG    - 98 -


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

        ±File±Edit±Search±±Run±±Compile±Debug±Tools±Options±Window±Help±±
        ЙН[*]НННННННННННННННННННННН Browse: b ННННННННННННННННННННН2Н[*]»
        є var   b: Ball                                                 є
        єДґ S і I і R ГДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДє
        є±var±±±±Location.X:±±Integer±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±^
        є var    Location.Y:  Integer                                   Ы
        є var    Location.Visible:  Boolean                             ±
        є var    Location.Init(Integer, Integer)                        ±
        є proc   Location.Relocate(Integer, Integer)                    ±
        є proc   Location.MoveTo(Integer, Integer)                      ±
        є func   Location.GetX:  Integer                                ±
        є func   Location.GetY:  Integer                                ±
        є func   Location.InVisible: Boolean                            ±
        є var    Block.Color:  Integer                                  ±
        є var    Block.Width:  Integer                                  ±
        є var    Block.BChar:  Char                                     ±
        є proc   Block.Show                                             ±
        є proc   Block.Hide                                             ±
        є var    Ball.XVel:  Integer                                    ±
        є var    Ball.YVel:  Integer                                    ±
        є proc   Ball.Init(Integer, Integer, Integer, Integer, Integer) ±
        є func   Ball.NextX: Integer                                    ±
        є func   Ball.NextY: Integer                                    ±
        є proc   Ball.MoveX                                             v
        И<Ы±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>ДЩ
        °F1°Help°<Щ°Browse°°Ctrl°<Щ°Go°to°source°Space°Track°src°F10°Menu

             Рис. 4.8  Просмотр  полной информации описания области дейс-
        твия.

             Если ObjectBrowser выводит  сообщение,  говорящее,  что  ка-
        кой-то идентификатор не найден, проверьте и убедитесь, что вы за-
        дали в ObjectBrowser проверку допустимого идентификатора,  и  что
        идентификатор находится в нужной области действия.  Например, при
        выборе команды SearchіSymbol курсор может быть позиционирован  на
        комментарии. Либо курсор может находиться вне области действия, в
        которой ObjectBrowser может найти информацию  об  идентификаторе.
        Например, курсор  может находиться на формальном параметре в опи-
        сании функции,  а  не  в  реализации  функции.  В   этом   случае
        ObjectBrowser не  может  найти идентификатор,  но если вы найдете
        параметр в реализации функции, то сможете просмотреть его.



         B.Pascal 7 & Objects /UG    - 99 -

                         Просмотр функций ObjectBrowser
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В Таблице 4.5 перечислены клавиши и команды меню,  активизи-
        рующие функции ObjectBrowser:

                              Функции ObjectBrowser           Таблица 4.5
        ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
        і   Чтобы выполнить:        і       Сделайте следующее:         і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Просмотр объектов         і Выберите команду SearchіObjects.  і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Просмотр модулей          і Выберите команду SearchіUnits.    і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Просмотр глобальных       і Выберите команду SearchіGlobals.  і
        і идентификаторов           і                                   і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Просмотр идентификатора   і Поместите курсор на идентификатореі
        і                           і своей программы,  выберите командуі
        і                           і SearchіSymbol  или удерживайте на-і
        і                           і жатой клавишу Ctrl и щелкните пра-і
        і                           і вой кнопкой "мыши".               і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Выбрать Browser Options   і Выберите команду OptionsіBrowser. і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Выбрать параметр Source   і Выберите  команду  OptionsіEnviro-і
        і Tracking Options          і mentіPreferences.                 і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Выбрать Mouse Options     і Выберите  команду  OptionsіEnviro-і
        і                           і mrntіMouse.                       і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Открыть предыдущее окно   і Выберите  команду  SearchіPreviousі
        і просмотра                 і Browser, выберите в локальном менюі
        і                           і окна  просмотра  команду  Previousі
        і                           і или нажмите клавиши Ctrl+P.       і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Выбрать Local Browser     і Нажмите клавиши Ctrl+O или выбери-і
        і Options                   і те команду  Options  в  локальном і
        і                           і меню окна просмотра.              і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Отредактировать исходный  і Нажмите Ctrl+Enter в ObjectBrowserі
        і код                       і нажмите клавиши Ctrl+G или выбери-і
        і                           і те в локальном меню окна просмотраі
        і                           і команду Goto Source.              і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Отслеживать исходный      і Нажмите  в   ObjectBrowser  пробелі
        і код                       і нажмите клавиши Ctrl+T или выбери-і
        і                           і те в локальном меню окна просмотраі
        і                           і Track Source.                     і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Вывести ссылочную         і Нажмите  в  ObjectBrowser  клавишиі
        і информацию                і Ctrl+R  или  щелкните  "мышью"  наі
        і                           і букве R в рамке окна.             і

         B.Pascal 7 & Objects /UG   - 100 -

        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Вывести информацию        і Нажмите  в  ObjectBrowser  клавишиі
        і об области действия       і Ctrl+S  или  щелкните  "мышью"  наі
        і                           і букве S в рамке окна.             і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Вывод информации о        і Нажмите  в  ObjectBrowser  клавишиі
        і наследовании              і Ctrl+I  или  щелкните  "мышью"  наі
        і                           і букве I в рамке окна.             і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Изменить на обратный      і Нажмите клавишу Shift, и,  удержи-і
        і режим вывода подокна      і вая ее, выполните следующее дейст-і
        і                           і вие.                              і
        АДДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ



         B.Pascal 7 & Objects /UG   - 101 -

                        Выполнение в IDE других программ
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Без выхода  из  IDE  вы  можете запускать другие программы и
        утилиты. При установке пакета Borland Pascal IDE  устанавливается
        для выполнения  таких  инструментальных  программных  средств как
        GREP, Turbo Assembler, Turbo Debugger и Turbo Profiler.

             Чтобы запустить в интегрированной интерактивной среде  прог-
        рамму, сделайте следующее:

             1. Откройте меню Tools (Инструментальные средства).

                Вы увидите список программ и утилит, которые может запус-
                кать.

             2. Выберите в меню Tools программу, которую вы хотите запус-
                тить.

             При выборе программы ей передается управление.  После выпол-
        нения программы управление возвращается обратно в IDE.


                              Настройка меню Tools
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Программы, которые вы найдете полезными,  можно  добавить  в
        меню Tools и запускать их потом из IDE.

             Чтобы добавить программы в меню Tools, сделайте следующее:

             1. Для  вывода  диалогового  окна  Tools  выберите   команду
                OptionsіTools.

                В блоке списка заголовков программ Program Titles вы уви-
                дите краткое описание уже инсталлированных  и  готовых  к
                выполнению программ.

             2. Для  вывода  диалогового  окна Modify/New Tool (Модифика-
                ция/Новое  инструментальное  средство)  выберите  команду
                New.

             3. В  блоке ввода заголовка программы Program Title наберите
                имя программы, как вы хотите выводить его в меню Tools.

                Если вы хотите, чтобы программа вызывалась по оперативным
                клавишам, укажите непосредственно перед и после того сим-
                вола, который должен использоваться в качестве  оператив-
                ной клавиши,  символ тильды (~).  Этот символ будет выво-
                диться в меню Tools жирным шрифтом и специальным шрифтом,
                и при нажатии этой клавиши вы выберете программу.  Напри-
                мер, чтобы добавить в меню Tools редактор Brief и сделать
                оперативной клавишей клавишу B, наберите:

         B.Pascal 7 & Objects /UG   - 102 -


                     ~B~rief

             4. Если  вы  хотите,  чтобы ваша программа имела связанную с
                ней оперативную клавишу,  выберите один из параметров Hot
                Key. Когда  вы  нажмете  присвоенную оперативную клавишу,
                программа начинает работать. Например, утилите GREP прис-
                воены оперативные клавиши Shift+F2. В любой момент, чтобы
                использовать GREP, просто нажмите Shift+F2.

             5. В блоке ввода Program Path (Маршрут  программы)  наберите
                имя программы.

                Если вы  не введете полного имени,  то могут быть найдены
                только программы в  текущем  каталоге  или  программы  по
                обычному маршруту DOS.

             6. В  блоке  ввода  Command Line (Командная строка) наберите
                параметры или макрокоманды,  которые вы  хотите  передать
                программе.

                Полную справочную  информацию  по макрокомандам,  которые
                можно использовать в блоке Command Line в Modify/New Tool
                вы  можете  найти  в оперативном справочнике Help Borland
                Pascal.

             7. Выберите командную кнопку OK.

             Для редактирования имеющейся в меню Tools программы сделайте
        следующее:

             1. Выберите команду OptionsіTools.

             2. В  блоке  списка Program Titles выберите нужную программу
                для редактирования.

             3. Выберите Edit (Редактирование).

             4. Внесите изменения в заголовок программы, маршрут програм-
                мы или командную строку.

             5. Выберите командную кнопку OK.

             Чтобы удалить указанную в меню Tools программу:

             1. Выберите команду OptionsіTools.

             2. Выберите программу, которую вы хотите удалить.

             3. Выберите Delete (Удаление).

             4. Выберите командную кнопку OK.


         B.Pascal 7 & Objects /UG   - 103 -


                             Работа с окном Messages

             Некоторые инструментальные средства посылают вывод программы
        черед фильтр DOS - программу,  конвертирующую вывод в формат, ко-
        торый можно  выводить в окне сообщений Messages.  Более подробную
        информацию об использовании и написании ваших  собственных  филь-
        тров DOS вы можете получить в оперативном справочнике Help. Одним
        из таких инструментальных средств,  использующих  окно  Messages,
        является GREP, а ее фильтр называется GREP2MSG.EXE.  Исходный код
        CREP2MSG.PAS вы можете найти в каталоге UTILS.

             При работе такого инструментального средства как GREP  выво-
        димая информация   передается   в   появляющееся  окно  сообщений
        Messages. Выводимые сообщения  вы  можете  прокручивать.  В  окне
        Messages вы можете выбирать и редактировать строку программы,  на
        которую имеется ссылка в сообщении,  либо вы  можете  отслеживать
        свои сообщения (подсвечивать одну за другой строки исходного кода
        программы, при прохождении сообщений в этом окне).

             Чтобы отредактировать строку программы,  на которую  имеется
        ссылка в сообщении, сделайте следующее:

             * Если вы используете "мышь", дважды щелкните "мышью" на ин-
               тересующем вам сообщении.

             * При работе с клавиатурой выберите сообщение со ссылкой  на
               нужную строку программы и нажмите Enter.

             * Ваш курсор перемещается на строку программы в исходном ко-
               де, на которую ссылается сообщение в окне Messages. Теперь
               вы можете отредактировать строку программы.

               По умолчанию,  когда  курсор переходит на строку исходного
               кода программы, окно Messages закрывается. Если вы предпо-
               читаете, чтобы окно Messages оставалось открытым, отмените
               выбор параметра Close On Go To Source  в  диалоговом  окне
               Preferences.

                    Примечание: Параметр  Close  On  Go  To Source влияет
               также на ObjectBrowser (см. выше).

             Чтобы отслеживать строки программы:

             1. В окне Messages выберите сообщение со ссылкой  на  строку
                программы, которую вы хотите отслеживать первой.

             2. Нажмите клавишу пробела.

                Если вы  всегда  хотите  отслеживать сообщения в исходном
                коде,  установите  в  группе  Options  диалогового   окна
                Preferences  параметр Auto Track Source.  После этого при
                прокрутке окна сообщений в вашем исходном коде  автомати-

         B.Pascal 7 & Objects /UG   - 104 -

                чески будут подсвечиваться соответствующие строки; вам не
                нужно будет нажимать на клавишу пробела.

                    Примечание: Параметр Auto Track Source  влияет  также
               на ObjectBrowser (см. выше).

             Теперь строки программы,  на которые есть ссылки в сообщени-
        ях, отслеживаются в зависимости от установленных в диалоговом ок-
        не OptionsіEnviromentіPreferences параметров.  Если соответствую-
        щий файл не находится в окне редактирования, IDE открывает файл и
        выводит его в новом окне редактирования или в текущем окне редак-
        тирования.

             * Если вы хотите, чтобы файл выводился в новом окне редакти-
               рования, выберите  в  качестве  значения  параметра Source
               Tracking New Window.

                    Примечание: Параметр Source Tracking влияет также  на
               ObjectBrowser (см. выше).

             * Если вы хотите, чтобы файл замещал текущий файл в одном из
               активных окон редактирования, выберите в качестве значения
               параметра Source Tracking Current Window.

             Если окно   сообщений  закрыто,  с  помощью  команды  Toolsі
        Messages вы можете открыть его снова.


         B.Pascal 7 & Objects /UG   - 105 -

                           Настройка конфигурации IDE
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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


                      Сохранение рабочей операционной среды
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             С помощью  Auto  Save  вы  можете сохранить параметры Editor
        Files, Desktop и Enviroment в диалоговом окне OptionsіEnviroment.

             * Если установлен параметр Editor Files,  IDE при выходе  из
               интегрированной среды,  выборе команды FileіDOS Shell, вы-
               полнении или отладке программы сохраняет  все  модифициро-
               ванные файлы, открытые в окне редактирования.

             * Если установлен параметр Desktop, IDE при выходе из интег-
               рированной среды,  выборе команды FileіDOS Shell, выполне-
               нии  или отладке программы сохраняет имена всех файлов,  с
               которыми вы работали в оперативной области.

             * Если установлен параметр Enviroment, IDE при выходе из ин-
               тегрированной среды, выборе команды FileіDOS Shell, выпол-
               нении или отладке программы сохраняет в файле конфигурации
               выбранные вами все параметры редактирования,  компоновки и
               компиляции.


                        Использование файла конфигурации

             Файл конфигурации сохраняет все параметры,  установленные  в
        меню параметров  Options,  выбранные в диалоговом окне Find Text,
        отслеживает все объединенные файлы Help,  целевую платформу и имя
        основного файла   (если  он  имеется).  Если  в  диалоговом  окне
        OptionsіEnviromentіPreferences  установлен  параметр  Auto   Save
        Enviroment, то файл конфигурации обновляется при выходе из интег-
        рированной среды,  выборе команды FileіDOS Shell,  выполнении или
        отладке программы.  При  использовании  компиляторов  BP.EXE  или
        TURBO.EXE по умолчанию файл компилятором называется TP.EXE.

             Чтобы создать новый файл конфигурации для  другого  проекта,
        сделайте следующее:

             1. Выберите команду OptionsіSave As.

             2. В поле ввода Options File Name наберите новое имя.


         B.Pascal 7 & Objects /UG   - 106 -

             3. Выберите командную кнопку OK.

                   Примечание: Об  использовании  файла  конфигурации для
              управления программным проектом рассказывается в  следующей
              главе.

             Чтобы переключиться  на  другой существующий файл конфигура-
        ции:

             1. Выберите команду OptionsіOpen.

             2. Задайте имя существующего файла конфигурации.

             3. Выберите командную кнопку OK.

             Чтобы модифицировать существующую конфигурацию:

             1. Измените нужные параметры.

             2. Выберите команду OptionsіSave.

                IDE сохраняет все изменения в текущем файле конфигурации.


                     Использование файла оперативной области
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если в  диалоговом  окне  OptionsіEnvioromentіPreferences вы
        установили параметр Auto Save Desktop, IDE при выходе из интегри-
        рованной среды, выборе команды FileіDOS Shell, выполнении или от-
        ладке программы обновляет файл оперативной области.  Файл  опера-
        тивной области  отслеживает  все файлы,  которые вы открывали,  и
        файлы, с которыми вы работали,  но закрыли их в ходе сеанса прог-
        раммирования (кроме файлов NONAMExx.PAS).  Когда вы начнете новый
        сеанс редактирования,  ваши окна редактирования выводятся  в  том
        виде, какой они имели при выходе. Когда вы откроете меню File, то
        список закрытых файлов в меню File продолжает увеличиваться (мак-
        симум до 5 значений).

             Как определить, какой файл оперативной области использовать?
        Вы можете непосредственно выбрать новый файл оперативной области,
        но каждый раз,  когда вы создаете файл конфигурации,  IDE создает
        новый файл оперативной области.  Имя файла будет тем же самым, но
        имя файла  оперативной области вместо расширения .TP имеет расши-
        рение .DSK.  Например,  если  ваш  файл  конфигурации  называется
        MY.TP, то файл оперативной области будет называться MY.DSK.

             По умолчанию IDE сохраняет файл оперативной области в том же
        каталоге, что и текущий файл конфигурации. Если хотите, то можете
        сохранять файлы конфигурации в текущем каталоге:

             1. Выберите команду OptionsіEnviromentіPreferences.


         B.Pascal 7 & Objects /UG   - 107 -

             2. В   группе   Desktop   File   выберите  параметр  Current
                Directory.

             Если вы хотите сохранять текущие параметры конфигурации,  но
        очищать оперативную область,  так что IDE будет "забывать" список
        всех файлов,  с которыми вы работали, очищать все списки протоко-
        лов и закрывать все окна, сделайте следующее:

             1. Выберите команду OptionsіEnviromentіPreferences.

             2. Убедитесь,  что  в диалоговом окне Preferences установлен
                параметр Desktop, а параметр Enviroment выключен.

             3. Перезапустите IDE.

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

              Сохранение идентификаторов от одного сеанса к другому

             Одновременно с сохранением файла оперативной области вы  мо-
        жете  выбрать  сохранение  информации  об идентификаторах в файле
        идентификаторов (файл с расширением .PSM).  Тогда  при  следующем
        запуске IDE информация об идентификаторах,  генерируемая при пос-
        ледней компиляции,  будет доступна,  благодаря чему вы можете вы-
        полнять немедленный просмотр и отладку.

             Чтобы сохранять идентификаторы между сеансами, сделайте сле-
        дующее:

             1. Выберите команду OptionsіEnviromentіPreferences.

             2. Убедитесь, что установлен параметр Auto Save Desktop.

             3. В группе Desktop File Options выберите параметры  Desktop
                и Symbols.

             4. Выберите командную кнопку OK.


         B.Pascal 7 & Objects /UG   - 108 -

                               Управление проектом
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

             Чтобы задать, какой файл будет основным, выполните следующие
        шаги:

             1. Выберите команду CompileіPrimary File.

             2. Когда выведется диалоговое окно, наберите имя своего фай-
                ла или выберите его из окна списка Files.

             3. Выберите командную кнопку OK.

             Теперь, когда вы используете команду CompileіMake или Build,
        компилируется основной файл,  даже если он не является  файлом  в
        активном окне редактирования.

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

                        Управление несколькими проектами
                    с файлом конфигурации для каждого из них

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

             1. Установите все параметры так, как это требуется для ново-
                го проекта.

             2. Задайте основной файл.

             3. Для задания каталогов,  где компилятор будет искать файлы
                для вашего   проекта   используйте    команду    Optionsі
                Directories.

             4. В меню Options выберите команду Save As.

                В диалоговом окне выводится подсказка для ввода имени но-
                вого файла конфигурации.

             5. Задайте имя нового файла конфигурации.

             6. Выберите командную кнопку OK.


         B.Pascal 7 & Objects /UG   - 109 -

             Если вы в этот момент выйдите из IDE,  а параметры Auto Save
        Desktop и Enviroment Options (OptionsіEnviromentіPreferences) ус-
        тановлены, то, когда вы начинаете новый сеанс, IDE использует но-
        вый файл конфигурации и файл оперативной области.  Файлы, с кото-
        рыми вы работаете,  будут доступны для вас в окне  редактирования
        или в  списке  закрытых файлов в меню File,  поскольку для вашего
        проекта создается новый файл оперативной области.

             Если вы храните каждый проект Паскаля в отдельном  каталоге,
        то ниже даны рекомендации по удобному управлению проектом.  Когда
        вы установите все параметры так, как это требуется для проекта, и
        зададите основной файл (если он имеется), сделайте следующее:

             1. В меню Options выберите команду Save As.

             2. Задайте  новое имя файла конфигурации,  включив в каталог
                проекта полный маршрут.

                * Если вы используете BP.EXE,  задайте в качестве  нового
                  файла конфигурации BP.TP.

                * Если вы используете TURBO.EXE, задайте в качестве ново-
                  го файла конфигурации TURBO.TP.

             3. Выберите командную кнопку OK.

                Сохранив в каталоге проекта файл BP.TP или  TURBO.TP,  вы
                можете перейти  в каталог проекта,  запустить IDE,  и IDE
                автоматически загрузит в файл конфигурации в этом катало-
                ге.

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

             * Выберите команду CompileіClear Primary File.

             * Выберите  в  диалоговом окне Primary File параметр Primary
               File и Clear (Очистка).

             Если вы хотите работать с другим проектом, с помощью команды
        OptionsіOpen загрузите новый файл конфигурации проекта.



         B.Pascal 7 & Objects /UG   - 110 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                           Глава 5. Программирование в
                 интегрированной интерактивной среде для Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Интегрированная среда  (IDE) для Windows очень похожа на IDE
        для DOS Borland Pascal. Большинство функций, которые вы выполняе-
        те в  IDE  для  DOS,  аналогичным  образом  выполняется в IDE для
        Windows. Если вы не читали предыдущую главу,  потратьте некоторое
        время и сделайте это.

                   Примечание: IDE для Windows может создавать прикладные
              программы для Windows,  защищенного режима DOS и  реального
              режима DOS.

             В данной главе основное внимание уделяется уникальным средс-
        твам IDE для Windows и поясняется некоторое  различие  между  IDE
        для DOS и для Windows.

             Так как Borland Pascal for Windows работает под Windows,  мы
        подразумеваем, что вы уже знакомы с Windows. Если вы умеете рабо-
        тать с  Windows,  то  сможете работать и с IDE Borland Pascal for
        Windows.

                             Запуск IDE для Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Для запуска  IDE  для  Windows  необходимо  дважды  щелкнуть
        "мышью" над пиктограммой Borland Pascal for Windows в администра-
        торе программ или выбрать ее с помощью клавиатуры и нажать клави-
        шу Enter.

             Вы можете также запустить IDE для Windows в ответ  на  подс-
        казку DOS. Наберите:

             WIN BWP

             Продвигаясь на  шаг  дальше,  вы можете в ответ на подсказку
        DOS задать,  какие файлы нужно открыть в окнах редактирования,  и
        какой нужно использовать файл конфигурации. При этом используется
        следующий синтаксис:

             WIN BWP [/Cфайл_конфигурации]файлы

             Например, на следующей строке запускается Windows, и начина-
        ет работать IDE для Windows, используя параметры в файле конфигу-
        рации MYCONFIG.CFG и открывая два окна,  одно из которых содержит
        файл MYFILE.PAS, а другое - YOURFILE.INC:

             WIN BWP /Cmyconfig myfile yourfile




         B.Pascal 7 & Objects /UG   - 111 -

                        Использование оперативной полосы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             С помощью оперативной полосы SpeedBar  и  "мыши"  вы  можете
        быстро выбирать команды и другие действия.

             Командные кнопки  в оперативной полосе представляют команды.
        Это оперативные кнопки для "мыши",  аналогично тому,  как опреде-
        ленные комбинации клавиш на клавиатуре являются оперативными кла-
        вишами.  Чтобы выбрать команду,  щелкните на соответствующей  ко-
        мандной кнопке "мышью". Например, если вы щелкните "мышью" на ко-
        мандной кнопке Open a File (Открыть файл),  то реакция IDE  будет
        такой же, как при выборе команды Open меню File.

             Оперативная полоса контекстно-зависима.  То, какие командные
        кнопки к ней выводятся, зависит от того, какое окно активно - ок-
        но оперативной области или окно редактирования.

             Оперативные полоса  окна рабочей области выводится,  когда в
        IDE не открыты окна редактирования.  В оперативной полосе рабочей
        области выводятся следующие командные кнопки:

             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Help (Контекстные экраны          Make (Формирование)
             справочной системы)

         B.Pascal 7 & Objects /UG   - 112 -


             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Open a File                       Make and Run
             (Открыть файл)                    (Формирование и
                                               запуск)

             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Exit the IDE                     Make and Run under
             (Выход из IDE)                   Turbo Debugger
                                              (Формирование и
                                              запуск с отладчиком)

             Рис. 5.1 Командные кнопки оперативной полосы рабочей  облас-
        ти.


             Следующие командные  кнопки  выводятся  в оперативной полосе
        окна редактирования.

             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Help on Editor                   Paste from Clipboard
             (Справка по редактору)           (Вставка из буфера)

         B.Pascal 7 & Objects /UG   - 113 -


             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Open a File                      Undo (Отмена)
             (Открытие файла)

             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Save a file                      Compile
             (Сохранение файла)               (Компиляция)

             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Search for text                  Make (Формирование)
             (Поиск текста)

             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Search again                     Make and Run
             (Повторный поиск)                (Формирование и запуск)


         B.Pascal 7 & Objects /UG   - 114 -


             ЪДДДДДДДДДДДї                     ЪДДДДДДДДДДДї
             і           і                     і           і
             і           і                     і           і
             і           і                     і           і
             АДДДДДДДДДДДЩ                     АДДДДДДДДДДДЩ

             Cut to Clipboard                 Make and Run under
             (Вырезание в буфер)              Turbo Debugger
                                              (Формирование и
                                              запуск с отладчиком)

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Copy to Clipboard
             (Копирование в буфер
             вырезанного изображения)

             Рис. 5.2 Командные кнопки оперативной полосы окна редактиро-
        вания.

             Иногда определенные командные кнопки оперативной полосы  вы-
        водятся тусклыми.  Это означает, что команда, представляемая дан-
        ной кнопкой,  в текущем контексте для вас  недоступна.  Например,
        если окно редактирования открыто, и буфер вырезанного изображения
        пуст, то кнопка Paste Text from Clipboard будет тусклой.


                    Настройка конфигурации оперативной полосы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При первом запуске IDE оперативная полоса представляет собой
        горизонтальную группу командные кнопок,  которая выводится непос-
        редственно по строкой меню. Оперативная полоса может быть:

             * горизонтальной полосой;

             * вертикальной  полосой  в  левой  части оперативной области
               IDE;

             * всплывающим набором,  который вы можете перемещать в любую
               часть оперативной области.

             Вы можете также выключить оперативную полосу.

             Чтобы изменить конфигурацию оперативной полосы, выберите ко-
        манду OptionsіEnviromentіPreferences и выберите  нужный  параметр
        оперативной полосы.


         B.Pascal 7 & Objects /UG   - 115 -

                      Использование справочной системы Help
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Справочная система Help дает вам возможность легкого доступа
        к подробной  информации  о языке Borland Pascal,  интегрированной
        среде, библиотеке динамической компоновки,  ObjectWindows, интер-
        фейсе прикладных  программ  Windows (API) и дополнительных утили-
        тах, предусмотренных в Borland Pascal.  Вы  можете  просматривать
        все эти темы в справочном окне Help или получать контекстно-зави-
        симую справочную информацию об IDE или терминах,  набираемых вами
        в окне  редактирования.  Этот  раздел  знакомит вас со справочной
        системой Borland Pascal for Windows.

             Справочную систему Borland Pascal for Windows вы можете  ис-
        пользовать аналогично справочной системе Windows.  Чтобы узнать о
        работе Help Windows, выберите команду HelpіUsing Help. Вы узнаете
        об общих средствах Help Windows (таких как аннотирование, исполь-
        зование меток текста, просмотр и печать), о которых не упоминает-
        ся в данном руководстве.

             В следующих разделах описываются способы,  с помощью которых
        вы можете использовать  справочную  систему  Borland  Pascal  for
        Windows при разработке в IDE своих прикладных программ.

             Чтобы больше  узнать  о  справочнике Help,  выберите команду
        HelpіUsing Help или нажмите где-либо в справочной системе клавишу
        F1.


                        Перемещение по справочной системе
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Когда вы смотрите на экраны  Help,  то  видите  подчеркнутый
        текст, цвет которого отличается от окружающего текста.  Это ссыл-
        ки. Ссылки могут представляться текстом, пиктограммами или графи-
        кой, и вы можете выбирать их для получения более подробной инфор-
        мации. Ссылки могут использоваться для вывода нового экрана Help,
        представляющего  новую  информацию  по  отмеченной теме.  Выбрать
        ссылку можно следующими двумя способами:

             * Щелкнув на ней кнопкой "мыши".

             * Нажимая повторно клавиши Tab, пока ссылка не будет подсве-
               чена, затем нажав клавишу Enter.

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

             Чтобы вернуться к предыдущему справочному  экрану,  выберите
        один из двух описанных ниже способов:


         B.Pascal 7 & Objects /UG   - 116 -

             * Для возврата к последнему экрану выберите командную кнопку
               Back.

             * Чтобы увидеть список последних справочных экранов, выбери-
               те командную  кнопку  History.  Выберите  из  списка экран
               Help, который вы хотите вывести.

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

             * Щелкнув на ней кнопкой "мыши".

             * Нажимая повторно клавиши Tab, пока ссылка не будет подсве-
               чена, затем нажав клавишу Enter.

             Выводится всплывающее окно, содержащее информацию по выбран-
        ной теме.  Оно  остается  на экране,  пока вы не щелкните кнопкой
        "мыши" или не нажмете клавишу Enter.  Когда окно исчезнет, вы ос-
        танетесь в том же месте справочной системы.


                                  Запрос помощи
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Получить доступ к справочной информации Help вы можете  сле-
        дующими способами:

             * Щелкните "мышью" на команде Help полосы меню или для выво-
               да меню Help нажмите клавиши Alt+H.

               IDE выводит меню Help. В этом меню вы можете выбрать экран
               Contents (Оглавление)  системы  Help,  получить справку по
               использованию справочной системы Help,  вывести информацию
               по теме,  на которой позиционирован курсор в окне редакти-
               рования, или  вывести  такую  специфическую  для   Borland
               Pascal информацию,  как  справка  по языку,  сообщениям об
               ошибках Borland Pascal, примерах программ и т.д.

             * Для вывода экрана оглавления  справочной  системы  Borland
               Pascal нажмите клавиши Shift+F1.

               Экран оглавления Contents аналогичен оглавлению книги,  но
               вместо того,  чтобы листать  страницы,  вы  можете  просто
               щелкнуть "мышью" на подчеркнутой теме или нажать для пере-
               хода к нужной теме клавишу Tab,  а  затем  нажать  клавишу
               Enter.

             * Нажмите клавишу F1.

               - Если вы находитесь в окне редактирования,  то экран Help
                 выводится со справочной информацией об использовании ре-

         B.Pascal 7 & Objects /UG   - 117 -

                 дактора. Чтобы увидеть детали, выберите одну из ссылок.

               - Если  выбрана  команда меню,  контекстно-зависимый экран
                 Help выводится с более подробной информацией об это эле-
                 менте меню.

             * Выберите в диалоговом окне командную кнопку Help.

               Выводится экран  с  кратким  пояснением  по всем командам,
               доступным в  данном  диалоговом  окне.  Если  вы  щелкните
               "мышью"  на подчеркнутой теме или выберите ее помощью кла-
               виатуры и нажмете Enter, то увидите более подробную инфор-
               мацию о выбранной команде.

             * Поместите курсор на термин в окне редактирования и выбери-
               те Topic Search. Используйте любой из следующих методов:

               - нажмите клавиши Ctrl+F1;

               - выберите команду HelpіTopic Search;

               - удерживая  клавишу Ctrl,  щелкните правой кнопкой "мыши"
                 (комбинация нажатий  Ctrl+правая  кнопка  "мыши"  должна
                 быть   предварительно   настроена   -  выберите  команду
                 OptionsіEnviromentіMouse и   выберите   команду    Topic
                 Search).

               - выберите  команду Topic Search в локальном меню окна ре-
                 дактирования.

                   Примечание: О локальных меню рассказывается в Главе 4.


         B.Pascal 7 & Objects /UG   - 118 -

               Выводится справочный экран с информацией о ключевом слове,
               на котором находится курсор в активном  окне  редактирова-
               ния.

             * В справочном окне Help выберите  командную  кнопку  Search
               (Поиск).

               Выводится диалоговое  окно  поиска  Search.  В его верхнем
               блоке списка вы можете прокручивать каждую тему в справоч-
               ной системе Borland Pascal.  Если вы знаете, какую тему вы
               ищете,  начните набирать эту тему в блоке ввода, и вы уви-
               дите данную тему в блоке списка.  Выделите тему и выберите
               Show Topic.

                    Примечание: Если вы знаете,  что нужно найти,  то ко-
               мандная кнопка Search дает вам скорейший способ для вывода
               нужного экрана Help.

               Если ваша тема имеет более детальное разбиение, вы увидите
               в нижнем блоке списка другие темы.  Выделите нужные темы и
               выберите Go To. Выводится справочный экран по нужной теме.

             * Выберите пиктограмму Help в оперативной полосе.

               Выводится справочный экран Help.




         B.Pascal 7 & Objects /UG   - 119 -

                            Копирование примеров кода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Справочная система Help содержит пример кода для каждой про-
        цедуры и функции. Вы можете скопировать эти примеры из справочной
        системы в  свое  окно  редактирования.  Чтобы скопировать пример,
        сделайте следующее:

             1. Выведите экран Help по нужной процедуре или функции.

                Вы увидите имя и пример исходного кода в нижней части ок-
                на Help.

             2. Для  вывода примера щелкните кнопкой "мыши" на имени при-
                мера кода.

             3. Выберите команду EditіCopy.

                Выводится диалоговое окно с примером кода.  Вы можете вы-
                делить часть  кода  для  копирования  в буфер вырезанного
                изображения. Если вы этого не сделаете, пример будет ско-
                пирован целиком.

             4. Выберите команду Copy (Копирование).

             5. Вернитесь   в  окно  редактирования  и  выберите  команду
                EditіPaste, нажмите  клавиши   Shift+Ins   или   щелкните
                "мышью"  на  командной  кнопке Paste в буфере вырезанного
                изображения или оперативной полосе.


                           Выход из справочной системы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Вы можете  выбрать  режим  сохранения вывода экрана Help при
        возврате в IDE или совсем закрыть основное окно Help.

             * Для возврата в программу и сохранения фонового вывода  те-
               кущего окна Help щелкните "мышью" на окне,  которое вы хо-
               тите сделать активным. Когда вы захотите вывести окно Help
               на  переднем  плане,  щелкните  на нем "мышью" - оно снова
               станет активным.

             * Чтобы закрыть основное окно Help и вернуться в  прикладную
               программу, выберите в меню окна Help команду FileіExit или
               дважды щелкните "мышью" на его командной кнопке Cancel.


                     Запись и редактирование исходного кода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Поскольку редактор IDE ведет себя аналогично всем другим ре-
        дакторам Windows,  вероятно  вы  уже  знаете,  как  редактировать

         B.Pascal 7 & Objects /UG   - 120 -

        текст. В  редакторе соблюдается стандарт общего доступа пользова-
        теля CUA (Common User Access), который используется в большинстве
        программ Windows.  Те  же команды редактирования,  которые вы ис-
        пользовали в других приложения Windows, работают также и в редак-
        торе IDE.  Полный перечень команд редактора вы найдете в Приложе-
        нии A "Руководства программиста".

                   Примечание: Редактор позволяет  вам  открывать  до  32
              окон редактирования (что определяется доступной памятью).


                        Настройка конфигурации редактора
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Для модификации  поведения  редактора Borland Pascal имеется
        несколько параметров. Для вывода диалогового окна Editor выберите
        команду OptionsіEnviromentіEditor.

             Чтобы подробнее  узнать о каждом параметре,  выделите данный
        параметр и нажмите клавишу F1.  Справочная система Help поясняет,
        что делает данный параметр.

                   Примечание: О выделении синтаксиса в редакторе расска-
              зывается ниже.



         B.Pascal 7 & Objects /UG   - 121 -

                                  Набор команд
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Редактор IDE для Windows имеет два набора команд:  набор ко-
        манд CUA,  при  котором  поведение редактора аналогично поведению
        других редакторов Windows, и альтернативный набор команд, который
        превращает редактор в редактор в стиле Borland.  Кроме того, мно-
        гие команды доступны в обоих наборах.

                   Примечание: Чтобы выбрать набор команд,  обратитесь  к
              Приложению A "Справочного руководства программиста" или ис-
              пользуйте справочник Help.  Там вы найдете полный  перечень
              команд одного и другого набора.

             При первоначальном запуске IDE для Windows редактор  исполь-
        зует набор  команд CUA,  который поддерживает все стандартные ко-
        манды редактирования, общие для программ Windows, и многие из ко-
        манд редактирования,  знакомые  тем,  кто уже работал с языками и
        программными продуктами Borland.

             Чтобы использовать альтернативный набор команд, выберите ко-
        манду OptionsіEnviromentіPreferences и параметр Alternate в груп-
        пе Command Set.

             Выбранный набор команд влияет не только на редактор.  Напри-
        мер, некоторые команды меню имеют оперативные клавиши,  с помощью
        которых вы можете выбирать команду, не прибегая к меню. В альтер-
        нативном наборе команд F2 дает быстрый способ сохранения файла. В
        наборе команд CUA оперативной клавиши для сохранения файла нет.


                             Использование редактора
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В IDE для DOS и в IDE для Windows используется  один  редак-
        тор. Если вы знаете, как работать с редактором в одной интегриро-
        ванной среде,  то сможете использовать его в другой. Чтобы узнать
        об отмене ошибок,  работе с блоками текста, поиске текста и огра-
        ничителей и позиционировании курсора на строке с конкретным номе-
        ром, см, соответствующие разделы предыдущей главы.

             Редакторы для DOS и Windows имеют два небольших отличия:

             * Редактор для Windows не имеет команды Find Text at Cursor.

             * Редактор для Windows не имеет команды Block Insert Cursor,
               которая назначает для курсора режима вставки форму прямоу-
               гольника.



         B.Pascal 7 & Objects /UG   - 122 -

                              Выделение синтаксиса
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE для Windows также обладает способностью  выделения  син-
        таксиса. Как и в IDE для DOS вы можете выделять элементы исходно-
        го кода цветом,  но можете также изменять и атрибуты текста. Нап-
        ример, не  только  изменить цвет элемента кода,  но и сделать его
        жирным, наклонным или подчеркнутым.

             Для вывода диалогового окна Highlighting (Выделение) выбери-
        те команду OptionsіEnviromentіHighlight.

        ЙННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»
        є=ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫHighlightingЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫє
        є                                                    і          є
        є  Element±±±±±±±±±± Color±±±±±±±±±±±± Attribute±±±±±і          є
        є  ЪДДДДДДДДДДДДДДДДїЪДДДДДДДДДДДДДДДДї±±±±±±±±±±±±±±і ЪДДДДДДДїє
        є  іWhitespace±±±±±±ііІFGІЫЫЫЫ    °°°°і±< >±Normal±±±і і ы OK  іє
        є  іComment±±±±±±±±±ііЫЫЫЫ    °°°°ЫЫЫЫі±<*>±Bold±±±±±і АДДДДДДДЩє
        є  іЫReservedЫWordЫЫііІІІІЫЫЫЫ    °°°°і±< >±Italic±±±і          є
        є  іIdentifier±±±±±±ііЫЫЫЫ    °°°°ЫЫЫЫіДДДДДДДДДДДДДДі          є
        є  іSymbol±±±±±±±±±±ііІІІІЫЫЫЫ±±±±°°°°і±Ы±Underline±±і          є
        є  іString±±±±±±±±±±ііЫЫЫЫ    °°°°ЫЫЫЫі              і          є
        є  іNumber±±±±±±±±±±ііІІІІЫЫЫЫ    °°°°і±±±±±±±±±±±±±±і          є
        є  іAssembler±±±±±±±ііІІІІ±±±±    °°°°і±Ы±Default±FG±і ЪДДДДДДДїє
        є  і±±±±±±±±±±±±±±±±ііЫЫЫЫ    °°°°ЫЫЫЫі±ы±Default±BG±і іXCancelіє
        є  АДДДДДДДДДДДДДДДДЩАДДДДДДДДДДДДДДДДЩ±±±±±±±±±±±±±±і АДДДДДДДЩє
        єЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДїі          є
        єі   {Syntax highlighting}                          іі          є
        єі   Program Sample;                                іі          є
        єі   uses WinCrt;                                   іі          є
        єі   var                                            іі          є
        єі    Number: integer;                              іі          є
        єі   begin                                          іі ЪДДДДДДДїє
        єі    Number := 123456;                             іі і ? Helpіє
        єі    Writeln['The number is',Number];              іі АДДДДДДДЩє
        єі   end.                                           іі          є
        єАДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩі          є
        ИНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННј

             Рис. 5.3 Диалоговое окно Highlighting.

             Element -  элемент;  Color  -  цвет;  Attribute  -  атрибут;
        Whitespace - разделитель;  Normal - обычный текст; Comment - ком-
        ментарий; Bold - жирный; Reserved Word - зарезервированной слово;
        Italic - наклонный;  Identifier - идентификатор; Symbol - иденти-
        фикатор;  Underline - подчеркивание;  String - строка;  Number  -
        число; Assembler - код ассемблера;  Default FG - основной цвет по
        умолчанию: Default BG - фоновый цвет по умолчанию.

                            Цветовое выделение текста

             Чтобы изменить цвет элемента, выполните следующие шаги:

         B.Pascal 7 & Objects /UG   - 123 -


             1. В  блоке  списка Element выделите элемент,  который нужно
                изменить.

             2. Выберите нужные цвета в матрице цветов Colors.

                Текущий основной цвет отмечен буквами FG; текущий фоновый
                цвет отмечен  буквами  BG.  Если основной и фоновый цвета
                совпадают, то в цветном квадрате выводится FB.

                * Чтобы выбрать основной цвет с помощью "мыши",  щелкните
                  на нем ее кнопкой. Чтобы выбрать цвет с помощью клавиа-
                  туры,  используйте для перемещения  по  матрице  цветов
                  клавиши  стрелок,  а  когда будете находиться на нужном
                  цвете, нажмите F.

                * Чтобы выбрать фоновый цвет с помощью  "мыши",  щелкните
                  на нем ее правой кнопкой.  Чтобы выбрать цвет с помощью
                  клавиатуры,  нажимайте клавишу Tab  до  выбора  матрицы
                  Colors,  затем  используйте  для перемещения по матрице
                  цветов клавиши стрелок,  а когда будете  находиться  на
                  нужном цвете, нажмите B.

             3. Выберите командную кнопку OK.


                     Использование системных цветов Windows

             Приложения Windows  используют  одни  и те же цвета фонового
        цвета и цвета текста. Чтобы изменить системные цвета Windows, ис-
        пользуйте контрольную панель администратора программ.

             Вы можете  выбрать  системные цвета Windows в редакторе IDE.
        Чтобы использовать для элемента основной системный цвет, выполни-
        те следующие шаги:

             1. В  диалоговом  окне Highlighting выделите элемент в блоке
                списка Elements.

             2. Выберите параметр Default FG.

             Для назначения фонового цвета используются те  же  шаги,  но
        выбирается параметр Default BG.


                           Изменение атрибутов текста

             Чтобы выбрать атрибут элемента выполните следующие шаги:

             1. В  диалоговом  окне Highlighting выделите элемент в блоке
                списка Element.

             2. Выберите атрибут в параметрах Attributes.

         B.Pascal 7 & Objects /UG   - 124 -


                   Примечание: Чтобы текст стал жирным или наклонным, ре-
              дактор должен  использовать  шрифт  фиксированного размера.
              Для изменения   шрифтов   используйте   команду    Optionsі
              EnviromentіEditor и выберите нужный параметр Font.

             Выбор атрибутов отразится в окне с примером кода.

             Вы можете выбрать элемент для изменения,  щелкнув "мышью" на
        его вхождении в окне примера кода.  Например,  если  вы  щелкните
        "мышью" на   зарезервированном  слове  program,  в  блоке  списка
        Element выбирается элемент Reserved Word (Зарезервированное  сло-
        во).




         B.Pascal 7 & Objects /UG   - 125 -

                              Печать исходного кода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если вы  хотите получить печатную копию своего исходного ко-
        да, выберите команду FileіPrint.  IDE расширяет символы табуляции
        (заменяя табуляцию  соответствующим числом пробелов и затем печа-
        тает ваш файл.

                    Выделение элементов синтаксиса при печати

             Вы можете напечатать текст таким образом, чтобы синтаксичес-
        кие элементы  были  выделены.  Перед печатью вы должны пропустить
        выводимый на принтер текст черед программу-фильтр PRNFLTR.EXE:

             1. Выберите команду FileіPrinter Setup.

             2. Выберите параметр Syntax Printing.

             3. Выберите командную кнопку OK.

             4. Для печати текста выберите команду FileіPrint.

                Если параметр Syntax Highlight установлен,  ваш текст пе-
                чатается с выделением синтаксических элементов.

             При установке в своей системе Windows вы,  вероятно, устано-
        вили один или более драйверов принтеров,  с помощью которых можно
        выполнять печать из Windows. Команда FileіPrinter Setup позволяет
        вам выбрать  нужный  принтер и задать его для печати из IDE и для
        конфигурации. Например,  вы можете печатать на  бумаги  с  разным
        размером. Из  IDE вы можете с помощью выбора кнопки Set Up в диа-
        логовом окне Printed Setup задать свой принтер для печати.

                   Примечание: Подробности  о  конфигурировании  принтера
              Windows   см.  в  "Руководстве  пользователя  по  Microsoft
              Windows"


         B.Pascal 7 & Objects /UG   - 126 -

                                Работа с файлами
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При программировании  в IDE вы можете создавать новые файлы,
        открывать существующие файлы и сохранять их. Основные команды ра-
        боты с файлами перечислены в следующей таблице:

                               Операции с файлами        Таблица 5.1
             ЪДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
             і Команда          і Описание                         і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіNew         і Открывает новое  окно  редактиро-і
             і                  і вания и присваивает ему временноеі
             і                  і имя.                             і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіOpen        і Выводит  диалоговое окно,  с  по-і
             і                  і мощью   которого   можно  открытьі
             і                  і файл.                            і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіSave        і Сохраняет  файл в  активном  окнеі
             і                  і редактора на диске.              і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіSave As     і Сохраняет  файл в  активном  окнеі
             і                  і редактора под другим именем.     і
             ГДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
             і FileіSave All    і Сохраняет  все   модифицированныеі
             і                  і файлы.                           і
             АДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ


                                 Открытие файлов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Чтобы открыть файл, выполните следующие шаги:

             1. Выберите  команду  FileіOpen  или командную кнопку open a
                File оперативной полосы. Выводится диалоговое окно Open a
                File (Открытие файла).  Для задания открываемого файла вы
                можете выполнить одно из следующих действий.

                * В блоке ввода наберите полное имя файла.

                * Наберите имя файла с трафаретными  символами.  Это  от-
                  фильтровывает  список  файлов  в  соответствии с вашими
                  спецификациями.  В списке Files выберите имя файла, ко-
                  торый вы хотите редактировать.

                * Для  вывода списка протокола (спецификаций имен файлов,
                  которые вы задавали ранее) щелкните "мышью" на  символе
                  "стрелка вниз". Выберите требуемое имя файла или специ-
                  фикацию. Выбор спецификации файла выводит файлы,  соот-
                  ветствующие данной спецификации.


         B.Pascal 7 & Objects /UG   - 127 -

                * Дважды  щелкнув  "мышью"  на  имени  другого каталога в
                  списке файлов,  просмотрите содержимое этого  каталога.
                  Выберите имя файла, который вы хотите редактировать.

             2. Выберите командную кнопку OK.


                              Где находятся файлы?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

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

                     Примечание: Подробнее об основных файлах рассказыва-
               ется выше.

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

             * При  отсутствии текущего окна редактирования текущим рабо-
               чим каталогом  становится  каталог,  в  котором  находится
               BPW.EXE.

             После открытия  или создания файла Borland Pascal запоминает
        его полный маршрут, даже если текущий рабочий каталог изменяется.

             Поскольку текущий рабочий каталог обычно определяется основ-
        ным файлом или файлом в активном окне редактирования,  и эти эле-
        менты сохраняются в файле конфигурации и файле оперативной облас-
        ти, файл конфигурации и файл оперативной области неявно определя-
        ют для проекта текущий рабочий каталог.

                   Примечание: Подробнее  о  рабочей  операционной  среде
              рассказывается выше.


                       Работа с файлами в другом каталоге
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Чтобы открыть файл в другом каталоге, выберите команду Fileі
        Open и  наберите  в  блоке ввода полное имя маршрута и имя файла.
        Либо вы можете использовать для вывода файла  в  другом  каталоге
        список каталогов и выбор нужного файла.  После того, как вы выбе-
        рете имя файла и нажмете  Enter,  при  следующем  выборе  команды
        FileіOpen в  том же сеансе вы увидите файлы в этом другом катало-

         B.Pascal 7 & Objects /UG   - 128 -

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

             Если вы хотите работать с файлами в нескольких каталогах, то
        можете использовать список протокола в диалоговом окне File Open.
        Чтобы увидеть протокол,  щелкните "мышью" на стрелке вниз  справа
        от блока  ввода  или нажмите клавиши Alt+"стрелка вниз"; в списке
        может выводиться нужный вам файл.


                             Компиляция и выполнение
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В IDE  для Windows вы можете компилировать и выполнять прог-
        раммы аналогично тому, как это делается в IDE для DOS. Об этом вы
        можете прочитать в Главе 4. Стоит отметить следующее:

             * Если ваша программа использует модуль WinCrt,  когда прог-
               рамма завершает выполнение,  окно программы становится не-
               активным. Чтобы продолжить работы в IDE, закройте его.

               Чтобы пользователю  не  нужно  было закрывать окно WinCrt,
               используйте процедуру DoneWinCrt.  Прочитайте о DoneWinCrt
               в Главе 1 "Справочного руководства программиста".

             * Если в программе,  использующей модуль WinCrt, во время ее
               выполнения происходит ошибка,  окно,  в  котором  работает
               программа,  становится  неактивным  перед  ее завершением.
               Чтобы посмотреть,  что произошло, закройте окно программы.
               Тогда вы увидите информационное окно,  в котором выводится
               номер ошибки и адрес, на котором она произошла.


                             Просмотр исходного кода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE для  Windows содержит новое программное инструментальное
        средство просмотра объектов - ObjectBrowser.  Оно  позволяет  вам
        исследовать программы и модули в программах и многое другое. Даже
        если разрабатываемое вами приложение не использует  объектно-ори-
        ентированное  программирование,  вы найдете ObjectBrowser чрезвы-
        чайно полезным средством. Вы можете просматривать иерархию объек-
        тов,  модулей и всех процедур,  функций, переменных, типов, конс-
        тант и другие используемые в программе идентификаторы.  С помощью
        ObjectBrowser вы можете делать следующее:

             * Просмотреть в графическом виде в своей прикладной програм-
               ме иерархию объектов,  затем выбрать объект и  просмотреть
               все  его процедуры,  функции и другие содержащиеся в прог-
               рамме идентификаторы.

             * Вывести список всех глобальных идентификаторов, используе-

         B.Pascal 7 & Objects /UG   - 129 -

               мые в вашей программе,  и увидеть их описания, вывести все
               ссылки на них в своей программе или перейти туда,  где они
               описываются в исходном коде.

             * Вывести список всех используемых в программе модулей,  за-
               тем выбрать  один из них и просмотреть список всех иденти-
               фикаторов его интерфейсной части.  В этом списке вы можете
               выбрать идентификатор и просмотреть его,  как любой другой
               идентификатор своей программы.

             * Выбрать идентификатор в исходном коде,  затем  просмотреть
               детальную информацию по нему,  щелкнув на этом идентифика-
               торе правой кнопкой "мыши".

             Перед использованием ObjectBrowser убедитесь, что в диалого-
        вом окне OptionsіCompiler установлены следующие параметры:

             * Debug Information (Информация для отладки).

             * Locals Symbols (Локальные идентификаторы).

             * Symbol Information (Информация об идентификаторах).

             Для активизации ObjectBrowser выберите в меню Search (Поиск)
        команду Objects (Объекты), Units (Модули) или Globals (Глобальные
        идентификаторы). Если программа находится в текущем окне, или ос-
        новной файл еще не скомпилирован, то перед выводом окна просмотра
        IDE компилирует вашу программу.

             Если программа будет  успешно  скомпилирована,  сформирована
        или построена,  вы можете внести в исходный код некоторые измене-
        ния,  а если следующая компиляция завершиться неудачно, то вы все
        равно сможете просматривать свою программу в том виде,  как вышли
        из нее при последней успешной компиляции.  Чтобы это происходило,
        должен  быть  установлен параметр Preserve Symbols (он установлен
        по умолчанию).  Данный параметр можно  найти  в  диалоговом  окне
        OptionsіEnviromentіStartup.  Поскольку Preserve Symbols - это па-
        раметр запуска,  изменение его установки не будет иметь действие,
        пока вы не выйдите из IDE и не запустите ее снова.

             Если у вас есть "мышь",  то исходный код удобнее  просматри-
        вать, если  задать  активизацию ObjectBrowser правой кнопкой "мы-
        ши". Затем,  удерживая нажатой клавишу Ctrl,  вы можете использо-
        вать правую кнопку "мыши" для указания и проверки объекта, проце-
        дуры, функции,  переменной или другого идентификатора в вашем ис-
        ходном коде и его анализа (вывода детальной информации).

                   Примечание: Для быстрого просмотра идентификатора,  на
              котором в исходном коде позиционирован  курсор,  вы  можете
              также  выбрать в локальном меню окна редактирования команду
              Browse Symbol at Cursor (Просмотр идентификатора в  позиции
              курсора).


         B.Pascal 7 & Objects /UG   - 130 -

             Чтобы задать просмотр с помощью "мыши",  выполните следующие
        шаги:

             1. Выберите команду OptionsіEnviromentіMouse.

             2. Выберите параметр Browse as the Ctrl + Right Mouse Button
                (Просмотр по клавише Ctrl + правая кнопка "мыши").

             3. Выберите командную кнопку OK.

             В верхней части окна ObjectWindows находится оперативная по-
        лоса ObjectBrowser.  Вы  можете  выбирать  любую командную кнопку
        оперативной полосы,  щелкая на ней кнопкой "мыши"  или  используя
        оперативную клавишу.  Выбрав кнопку или соответствующую оператив-
        ную клавишу, вы указываете ObjectBrowser на выполнение некоторого
        действия. Вы будете видеть следующие командные кнопки, их клавиа-
        турные эквиваленты и соответствующие действия:

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             F1            Help (Вывод справочной информации)

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Ctrl+G        Go to (Переход на исходный код для выбранного
                                  элемента)

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Ctrl+B        Browse (Просмотр детальной информации по выб-
                                   ранному элементу)

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Ctrl+V        View (Вывод предыдущего окна просмотра):

         B.Pascal 7 & Objects /UG   - 131 -


             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Ctrl+O        Display (Вывод иерархии объектов)

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Ctrl+R        List (Перечень всех ссылок на идентификатор)

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Ctrl+P        Print (Печать иерархии объектов)

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Ctrl+W        Replace (Замена текущего окна просмотра)

             ЪДДДДДДДДДДДї
             і           і
             і           і
             і           і
             АДДДДДДДДДДДЩ

             Ctr+W         Open (Открытие нового окна просмотра)

             Рис. 5.4 Командные кнопки оперативной полосы ObjectBrowser.

                   Примечание: От    того,    с    каким   именно   окном
              ObjectBrowser вы работаете, зависит, какие в точности кноп-
              ки выводятся в оперативной полосе.

         B.Pascal 7 & Objects /UG   - 132 -


             Последние две  кнопки показывают в действительности два раз-
        личных представления  одной  кнопки.  При  первом   использовании
        ObjectBrowser вы увидите командную кнопку одиночного окна.  Щелк-
        ните на ней "мышью", и вы увидите кнопку множественных окон.

             Когда вы выбираете кнопку одиночного окна и начинаете  прос-
        мотр, новое окно просмотра при каждом действии просмотра заменяет
        текущее окно просмотра. При выборе кнопки множественных окон окна
        остаются на экране, пока вы их не закроете.

             Вы можете  быстро изменить действие этих кнопок на обратное:
        удерживая нажатой кнопку Shift, выберите следующее действие прос-
        мотра. Например, если выводится кнопка множественных окон, то при
        нажатии клавиши Shift следующее окно просмотра будет замещать те-
        кущее.

         B.Pascal 7 & Objects /UG   - 133 -

                                Просмотр объектов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             ObjectBrowser позволяет вам увидеть  "общий  план"  иерархии
        объектов, а    также    мелкие   детали.   Чтобы   активизировать
        ObjectBrowser и графически показать на экране  объекты,  выберите
        команду SearchіObject.  ObjectBrowser рисует ваш объект и показы-
        вает в виде горизонтального дерева его соотношения  "предок-пото-
        мок". Красные  линии  в иерархии помогают вам ясно увидеть непос-
        редственные отношения "предок-потомок" текущего объекта.

        ЙННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»
        є = і ? і О і П і * і Ы іЫЫЫЫЫЫЫЫЫBrowsing ObjectsЫЫЫЫЫЫЫЫЫЫіvі^є
        єДДДБДДДБДДДБДДДБДДДБДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДБДє
        є                                            і                  ^
        є            Ъґ±TWindowsObject±ГВґ±TWindow±ГДБДВВВґ±TMDIClient±іЫ
        є            і                  і              ііі              ±
        є            і                  і              ііАґ±TListBox±Гґ±±
        є            і                  і              іі               ±
        є            і                  і              іАДґ±TGroupBox±ГД±
        є            і                  і              і                ±
        є            і                  і              АДДґ±TButton±Гґ±T±
        єі±TObject±±ГЕВВї               і                               ±
        є            іііі               Аґ±TDialog±Гґ±TDglWindow±і      ±
        є            іііі                                               ±
        є            іііАґ±TStream±ГВґ±TEmsStream±і                     ±
        є            ііі            і                                   ±
        є            ііі            Аґ±TDosStream±ГДґ±TBufSteram±і      ±
        є            ііі                                                ±
        є            ііАДґ±TScroller±і                                  ±
        є            іі                                                 ±
        є            іАДДґ±TCollection±Гґ±TSortedCollection±ГВґ±TStringC±
        є            і                                       і          ±
        є            і                                       Аґ±TStrColl±
        є            АДДДґЫApplicationЫГґ±THelloApp±і                   ±
        є                                                               v
        И<±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>±

             Рис. 5.5 Просмотр иерархии объектов прикладной программы.


         B.Pascal 7 & Objects /UG   - 134 -


             Чтобы увидеть более подробную информацию о конкретном объек-
        те, дважды щелкните на нем кнопкой "мыши". Если вы не используете
        "мышь", выберите  объект  с  помощью  клавиш  управления курсором
        (стрелок) и нажмите Enter. ObjectBrowser перечисляет используемые
        в объекте символы (процедуры, функции, переменные и т.д.)

        ЙННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»
        є = і ? і О і П і * і Ы іЫЫЫЫЫЫЫЫЫBrowsing TApplicationЫЫЫЫЫіvі^є
        єДДДБДДДБДДДБДДДБДДДБДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДБДє
        є                                                               є
        є                   Browsing TApplication                       є
        є           ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї               є
        є           іv±±±±±±Status:Integer±±±±±±±±±±±±±^і               є
        є           іv      Name:PChar                 ±і               є
        є           іv      MainWindow:PWindowsObject  ±і               є
        є ЪДДДДДДДї іv      HAccTable:Word             ±і ЪДДДДДДДДДДї  є
        є іTObjectГДґv      KBHandleWnd:PWindowsObject ±ГДґTHelloApplі  є
        є АДДДДДДДЩ іp      Init[PChar]                ±і АДДДДДДДДДДЩ  є
        є           іp    ы Done                       ±і               є
        є           іf    ы IdleAction:Boolean         ±і               є
        є           іp    ы InitApplication            vі               є
        є           і<Ы±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>±і               є
        є           АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ               є
        є                                                               є
        є           Filters:  ы F P V і p v                             є
        є                     X і і і є і і                             є
        є                                                               є
        ИНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННј

             Рис. 5.6 Просмотр детальной информации по объекту.

             Слева от каждого идентификатора объекта выводятся  одна  или
        более букв. Символ описывает вид идентификатора.

                        Буквенные символы в ObjectBrowser
                                                   Таблица 5.2
                   ЪДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
                   і    Буква   і         Функция            і
                   ГДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
                   і    F       і Функция                    і
                   і    P       і Процедура                  і
                   і    T       і Тип                        і
                   і    V       і Переменная                 і
                   і    C       і Константа                  і
                   і    L       і Метка                      і
                   і    I       і Наследование от предка     і
                   і    p       і Приватный идентификатор    і
                   і    v       і Виртуальный идентификатор  і
                   АДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ


         B.Pascal 7 & Objects /UG   - 135 -

                                     Фильтры

             Те же символы,  что идентифицируют вид идентификатора, выво-
        дятся в  матрице   фильтров   Filters   в   нижней   части   окна
        ObjectBrowser. Вы  можете  использовать  фильтры  для выбора типа
        идентификаторов, список которых хотите видеть.

             Матрица фильтров содержит столбец для  каждой  буквы;  буква
        может выводиться в верхней или нижней строке.

                   Примечание: Для  выбора типа идентификаторов вы можете
              также использовать окно Browser Options.  Выберите  команду
              OptionsіBrowser и идентификаторы, которые вы хотите вывести
              в списке.

             Чтобы просмотреть все экземпляры символа  конкретного  типа,
        щелкните "мышью" на верхней ячейке столбца буквы. Например, чтобы
        просмотреть все переменные в текущем выбранном объекте,  щелкните
        на верхней ячейке столбца V. Выводятся все переменные, используе-
        мые в объекте.

             Чтобы скрыть все экземпляры конкретного объекта или  иденти-
        фикатора, щелкните "мышью" на нижней ячейке столбца буквы. Напри-
        мер, чтобы просмотреть только функции или процедуры объекта,  вам
        нужно сделать скрытыми все переменные. Щелкните "мышью" на нижней
        ячейке в столбце V, и на верхних ячейках в столбцах F и P.

                   Примечание: Вы  можете  изменить  несколько  установок
              фильтра сразу. Буксируйте "мышь" по ячейкам, которые вы хо-
              тите выбрать в матрице Filters.

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

             * I обозначает наследуемый идентификатор;
             * p обозначает приватный идентификатор;
             * v обозначает виртуальный идентификатор.

                 Просмотр описаний перечисленных идентификаторов

             Для просмотра  описания  конкретного  содержащегося в списке
        идентификатора используйте следующие методы:

             * дважды щелкните на идентификаторе кнопкой "мыши";
             * выберите идентификатор и щелкните "мышью" на кнопке Browse
               или нажмите Ctrl+B;
             * выберите идентификатор и нажмите клавишу Enter.

             При просмотре  в режиме одного окна (кнопка Window оператив-

         B.Pascal 7 & Objects /UG   - 136 -

        ной полосы выводит на экран только одно  окно),  если  вы  хотите
        вернуться на уровень выше, щелкните "мышью" на кнопке вывода пре-
        дыдущего окна просмотра или нажмите клавиши Ctrl+V.

             Хотя очень легко использовать оперативную полосу для  выбора
        одно- и  многооконного режима,  тоже самое вы можете делать с по-
        мощью меню и диалогового окна. Чтобы новое окно просмотра заменя-
        ло текущее, сделайте следующее:

             1. Выберите команду OptionsіBrowser.

             2. Установите параметр Replace Current sub-browsing.

             3. Выберите командную кнопку OK.

             Чтобы новое окно просмотра при выборе перечисленного в спис-
        ке идентификатора оставалось на экране, сделайте следующее:

             1. Выберите команду OptionsіBrowser.

             2. Установите параметр New Browser sub-browsing.

             3. Выберите командную кнопку OK.


         B.Pascal 7 & Objects /UG   - 137 -

                       Просмотр глобальных идентификаторов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             С помощью  ObjectBrowser вы можете просматривать все модули,
        которые использует программа.  Чтобы открыть окно со списком всех
        используемых в  программе модулей и именем самой прикладной прог-
        раммы выберите команду SearchіUnits.

             Выберите модуль,  о котором вам нужно получить более подроб-
        ную информацию. Как и в случае глобальных идентификаторов, вы мо-
        жете выполнять поиск в списке модулей,  набирая первые  несколько
        букв имени модуля в блоке ввода Search в нижней части окна.

             После выбора  модуля  вы  можете  перечислить вывести список
        всех идентификаторов в интерфейсной части модуля.

             * В выводимом списке модулей дважды щелкните "мышью" на име-
               ни модуля,  выделите имя модуля и выберите Inspect или вы-
               делите имя и нажмите клавишу Enter.

               В этом списке вы можете выделить идентификатор  и  сделать
               следующее:

               - Чтобы  увидеть описание идентификатора,  дважды щелкните
                 на идентификаторе кнопкой "мыши", выделите его и выбери-
                 те командную кнопку Inspect (Проверка), или выделите его
                 и нажмите клавишу Enter.

               - Чтобы перейти на строку исходного кода,  где описывается
                 идентификатор,  выберите  командную  кнопку Go To Source
                 Code.

               - Чтобы вывести список всех ссылок на идентификаторы,  вы-
                 берите командную кнопку Reference. Если вы выберите одну
                 из этих ссылок, ObjectBrowser позиционирует ваш курсор в
                 исходном коде.

             * Чтобы  перейти на описание идентификатора в исходном коде,
               выберите командную кнопку Go to Source Code.

             * Чтобы перечислить все ссылки на идентификатор в вашем при-
               ложении, выберите командную кнопку Reference.


                    Просмотр идентификаторов в исходном коде
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Вы можете просматривать идентификаторы в своем исходном  ко-
        де, не  выводя сначала иерархию объектов или список идентификато-
        ров. Выберите один из следующих методов:

             * Подсветите идентификатор в своем коде и  выберите  команду
               SearchіSymbol.

         B.Pascal 7 & Objects /UG   - 138 -


             * Если ваша "мышь" настроена для просмотра,  удерживая нажа-
               той клавишу Ctrl,  щелкните на идентификаторе в вашем коде
               правой кнопкой "мыши".

             * Для  вывода  локального  меню  окна редактирования нажмите
               клавиши Alt+F10 или щелкните правой кнопки "мыши" и  выбе-
               рите команду Browse Symbol at Cursor.

             Если выделенный вами идентификатор представляет собой струк-
        турный тип,  то ObjectBrowser выводит для этого  типа  информацию
        обо всех идентификаторов в его области действия.  Любой из них вы
        можете выбрать для дальнейшей проверки. Например, если вы выбери-
        те объектный тип, то увидите список всех идентификаторов в облас-
        ти действия этого объекта.


                        Выполнение в IDE других программ
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В IDE  вы  можете  запускать  по вашему выбору четыре других
        программы: отладчик Turbo Debugger,  пакет разработчика ресурсов
        Resource Workshop,   утилиту   WinSight   и  профилировщик  Turbo
        Profiler. Чтобы запустить любую из этих программ, выберите коман-
        ду Tools  для открытия меню Tools и затем выберите инструменталь-
        ное средство, которое вы хотите запустить. Чтобы изменить маршрут
        или передать  этим  программам аргументы,  используйте диалоговое
        окно Tools (OptionsіTools).

             В отличие от IDE для DOS вы не можете добавить в меню  Tools
        другие утилиты.  Так как IDE для Windows представляет собой прик-
        ладную программу Windows,  на самом деле это не дает преимуществ.
        Вы всегда  можете  переключиться  на другую программу,  используя
        средства переключения задач Windows.

         B.Pascal 7 & Objects /UG   - 139 -



                           Настройка конфигурации IDE
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Вы можете настраивать конфигурацию IDE,  сохранять свою опе-
        рационную среду и управлять проектами аналогично  тому,  как  это
        делается в  IDE для DOS (см.  выше).  При сохранении операционной
        среды и управлении проектами между IDE для DOS и IDE для  Windows
        существуют следующие различия:

             * IDE  для Windows всегда сохраняет файл оперативной области
               в том же каталоге,  что и текущий файл конфигурации. Вы не
               можете переопределить это, как в IDE для DOS.

             * Чтобы  очистить основной файл,  выберите в IDE для Windows
               команду CompileіClear Primary File. Вы можете использовать
               этот  метод  также и в IDE для DOS,  но у вас есть возмож-
               ность выбора в  диалоговом  окне  Primary  File  командной
               кнопки Clear Primary File.




         B.Pascal 7 & Objects /UG   - 140 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                    Глава 6. Отладка в интегрированной среде
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Интегрированная интерактивная  среда   разработки   программ
        Borland Pascal  (IDE)  включает  в себя ряд средств,  облегчающих
        разработку программ: автоматическое управление проектами, средств
        обеспечения модульной  структуры программы,  быструю компиляцию и
        простые в использовании оверлеи.  Но несмотря  на  все  это  ваша
        программа все  равно  может содержать ошибки,  что не позволит ей
        корректно работать.

             IDE для DOS Borland Pascal предоставляет вам  инструменталь-
        ные средства  для отладки программ,  то есть поиска и исправления
        ошибок. В этой главе описываются инструментальные средства и про-
        цедуры отладки программы в интегрированной среде, включая следую-
        щие темы:

             * обзор ошибок и методов отладки;

             * управление выполнением программы;

             * проверка значений;

             * остановки выполнения программы.

             Данная глава посвящена встроенному отладчику  IDE  для  DOS.
        Все описанные  процедуры применимы также к Турбо отладчику (Turbo
        Debugger) и Турбо отладчику для Windows,  хотя имена меню и нажи-
        маемые клавиши в них могут отличаться.


                               Что такое отладка?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Отладка - это процесс поиска и исправления ошибок в програм-
        ме, препятствующих корректной работе программы. Перед тем как уг-
        лубиться в специфические средства IDE Borland Pascal, которые по-
        могают при отладке,  дадим краткое описание видов ошибок, которые
        вы можете наблюдать, и различного рода операций, которые вы будет
        использовать для их поиска.

                          Какие существуют виды ошибок?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

                             Ошибки этапа компиляции

             Ошибки этапа  компиляции  или синтаксические ошибки происхо-
        дят, когда ваш исходный код нарушает правила синтаксиса  Паскаля.

         B.Pascal 7 & Objects /UG   - 141 -

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

             Компилятор, работающий в режиме командной строки, также дает
        вам некоторую информацию. Когда он находит синтаксическую ошибку,
        то выводит содержащую ошибку строку с номером этой строки и сооб-
        щением об ошибке.

             Наиболее общей  причиной  ошибок  этапа  компиляции являются
        ошибки набора (опечатки),  пропущенные точки с запятой, ссылки на
        неописанные переменные, передача неверного числа (или типа) пара-
        метров процедуры или функции и присваивание  переменной  значений
        неверного типа.

             После исправления  ошибки вы можете выполнить компиляцию за-
        ново. После устранения в программе всех синтаксических  ошибок  и
        ее успешной  компиляции программа будет готова к выполнению и по-
        иску ошибок этапа выполнения и логических ошибок.

                             Ошибки этапа выполнения

             Ошибки этапа выполнения или семантические ошибки происходят,
        когда вы компилируете полную программу, которая при ее выполнении
        делает что-то недопустимое.  То есть, программа содержит допусти-
        мые операторы Паскаля, но при выполнении операторов что-то проис-
        ходит неверно.  Например,  ваша программа может пытаться  открыть
        для ввода несуществующий файл или выполнить деление на ноль.

             Когда программа  Borland  Pascal  обнаруживает такую ошибку,
        она завершает выполнение и выводит сообщение следующего вида:

             Run-time error ## at seg:ofs

             Если вы выполняете программу из IDE,  Borland Pascal автома-
        тически находит вызвавший ошибку оператор (как в случае синтакси-
        ческих ошибок). Если вы выполняете программу вне IDE, то вы може-
        те запустить  IDE и,  чтобы найти вызвавший ошибку оператор,  ис-
        пользовать команду SearchіFind Error, которая дает вам адрес сег-
        мента и  смещения  (seg:ofs).  Если вы используете компилятор ко-
        мандной строки, то можете для поиска ошибки использовать параметр
        /F.

         B.Pascal 7 & Objects /UG   - 142 -


                                Логические ошибки

             Логические ошибки  -  это ошибки проектирования и реализации
        программы. То есть,  ваши операторы допустимы и что-то делают, но
        не то,  что  вы предполагали.  Эти ошибки часто трудно отследить,
        поскольку IDE не может найти их автоматически, как синтаксические
        и семантические ошибки.  К счастью,  IDE включает в себя средства
        отладки, помогающие вам найти логические ошибки.

             Логические ошибки приводят к некорректному или  непредвиден-
        ному значению переменных,  неправильному виду графических изобра-
        жений или невыполнению кода,  когда это  ожидается.  В  остальной
        части этой  главы обсуждаются методы отслеживания этих логических
        ошибок.



         B.Pascal 7 & Objects /UG   - 143 -

                                 Методы отладки
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Иногда, когда программа делает что-то непредвиденная, причи-
        на достаточно очевидна, и вы можете быстро исправить код програм-
        мы. Но другие ошибки более трудноуловимы и вызываются взаимодейс-
        твие различных частей программы. В этих случаях лучше всего оста-
        новить вашу программу в заданной точке,  пройти ее шаг за шагом и
        просмотреть состояние переменных и выражений.  Такое  управляемое
        выполнение - ключевой элемент отладки.

             В данном разделе описываются различные возможности отладки в
        IDE для DOS Borland Pascal.

                        Выполнение по шагам и трассировка

             Команды выполнения по шагам Step Over  и  трассировки  Trace
        Into меню  выполнения Run дают вам возможность построчного выпол-
        нения программы. Единственное отличие выполнения по шагам и трас-
        сировки состоит  в  том,  как  они работают с вызовами процедур и
        функций. Выполнение по шагам вызова процедуры или функции интерп-
        ретирует вызов  как  простой оператор и после завершения подпрог-
        раммы возвращает  управление  на  следующую  строку.  Трассировка
        подпрограммы загружает  код  этой  подпрограммы  и  продолжает ее
        построчное выполнение.

                              Остановка выполнения

             Существует два способа сообщить IDE, что программу нужно вы-
        полнить до определенной точки, а затем остановить. Первый и прос-
        тейший способ состоит в том, чтобы найти позицию в программе, где
        вы хотите  остановиться,  затем  выбрать в меню Run команду Go to
        Cursor (Выполнение до позиции курсора). Ваша программа выполняет-
        ся как обычно,  пока не достигнет оператора, где она должна оста-
        новиться. В этой точке вы можете проверить значения и  продолжать
        выполнение непрерывно или по шагам.

             Второй способ состоит в том, чтобы остановить в определенной
        заданной точке вашу программу.  Эта точка называется точкой оста-
        нова. Когда  вы  выполняете программу,  она останавливается перед
        выполнением оператора в точке останова.  Точки останова - это бо-
        лее гибкий механизм, чем использование метода выполнения до пози-
        ции курсора (Go to Cursor), поскольку в программе вы можете уста-
        новить несколько точек останова.

                           Отслеживание и модификация

             При выполнении программы по шагам вы можете наблюдать ее вы-
        вод несколькими способами. Первый состоит в переключении в случае
        необходимости экранов. При втором способе используется второй мо-
        нитор. В-третьих,  для вывода программы вы можете открыть окно  в
        IDE для DOS.


         B.Pascal 7 & Objects /UG   - 144 -

             Кроме того,  чтобы показать вывод программы,  встроенный от-
        ладчик позволяет вам просматривать значения переменных, выражений
        и структур  данных.  С помощью команды Wathes в меню Debug в окне
        просмотра Watches вы можете добавлять или  удалять  отслеживаемые
        элементы. В этом диалоговом окне вы можете проверять переменные и
        выражения и изменять значения любых переменных,  включая  строки,
        указатели,  элементы  массива  и поля записей,  что позволяет вам
        проверять реакцию программы на различные условия.

                                      Поиск

             Если вам нужно найти  в  программе  описания  процедуры  или
        функции, либо определения объекта,  это легко можно сделать с по-
        мощью средства просмотра объектов ObjectBrowser.  С помощью  меню
        Search и выбора команд Objects,  Globals, Units или Symbols выбе-
        рите соответствующее окно просмотра. См. Главу 4 ("Программирова-
        ние в интегрированной среде для DOS"), где о просмотре кода расс-
        казывается более подробно.




         B.Pascal 7 & Objects /UG   - 145 -

                         Генерация отладочной информации
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Перед отладкой  программы вам нужно указать компьютеру,  что
        нужно сообщить компилятору на необходимость  генерации  некоторой
        дополнительной информации,  благодаря  которой он сможет отслежи-
        вать, какие строки исходного кода соответствуют отдельным  частям
        выполняемой программы.  Эта  дополнительная информация называется
        отладочной информацией. Вы можете включить эту информации, выбрав
        соответствующий   параметр   (кнопку   с  независимой  фиксацией)
        диалогового окна Compiler Options интегрированной среды  (команда
        OptionsіCompiler) или включив в код программы соответствующую ди-
        рективу компилятора.

             Когда вы компилируете программу Borland  Pascal,  компилятор
        всегда сохраняет список используемых идентификаторов, который на-
        зывается таблицей идентификаторов.  В этом  списке  отслеживаются
        имена всех переменных,  констант,  типов, процедур и функций. Для
        целей отладки там сохраняются также номера строк исходных файлов,
        где встречаются все эти идентификаторы.  Выбрав в диалоговом окне
        Compiler Options параметр Debug Information (Отладочная  информа-
        ция) или задав директиву компилятора $D+,  вы указываете компиля-
        тору, что в таблицу идентификаторов нужно добавить  информацию  о
        номерах строк.

                         Встроенная и автономная отладка

             В диалоговом  окне  параметров  отладчика  Debugger  Options
        (OptionsіDebugger) вы можете сообщить компилятору, нужно ли гене-
        рировать отладочную  информацию для использования встроенного или
        автономного отладчика (такого как Turbo Debugger), или для обоих.
        Если вы хотите использовать встроенный отладчик, то нужно выбрать
        параметр Integrated (который устанавливается по умолчанию).

                              Информация в модулях

             Если вы пишете большую программу, которая использует модули,
        и отладочная  информация  получается слишком объемной,  вы можете
        сократить объем этой информации для отдельных модулей,  используя
        в них  директиву  компилятора  $L-  или отменив в диалоговом окне
        Compiler Options параметр Local Symbols (Информация  о  локальных
        идентификаторах).

             Если вы  выключите для модуля генерацию информации о локаль-
        ных идентификаторах, то из отладочной информации для этого модуля
        исключаются все идентификаторы, описанные в секции реализации мо-
        дуля. Для всех идентификаторов в интерфейсной секции будет  гене-
        рироваться информацию для всех идентификаторов, так что вы сможе-
        те использовать средства отладки.




         B.Pascal 7 & Objects /UG   - 146 -

                             Управление выполнением
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

             - выполнять инструкции по шагам;
             - трассировать инструкции;
             - выполнять программу до заданной точки;
             - находить определенную точку;
             - выполнять сброс программы.

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




         B.Pascal 7 & Objects /UG   - 147 -

                                 Что такое шаг?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Когда вы отлаживаете программу,  наименьшим выполняемым эле-
        ментом является строка.  Этот означает,  что вы можете  управлять
        отладкой до уровня отдельной строки исходного кода программы. По-
        этому, если на одной строке программы содержится несколько опера-
        торов Паскаля,  вы не сможете отладить эти операторы индивидуаль-
        но. С другой стороны,  с целью отладки вы можете разбить оператор
        на несколько строк, которые будут выполняться за один шаг.

             Все выполнение  в  отладчике,  включая выполнение  по шагам,
        трассировку и останов, основывается на строках. Подсвечивая стро-
        ку, встроенный отладчик всегда сообщает вам,  какую строку вы вы-
        полняете следующей (строка выполнения).  Строка выполнения  выво-
        дится цветом,  отличным от нормального цвета.  Благодаря этому вы
        можете легко видеть, где находитесь.


                          Выполнение программы по шагам
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Выполнение по шагам - это простейший способ выполнения прог-
        раммы по элементарным фрагментам. Выбор команды RunіStep Over или
        нажатие клавиши  F8  вызывает  выполнение отладчиком всего кода в
        операторе, указанном строкой выполнения, включая любые вызываемые
        на ней процедуры или функции, пока управление не вернется обратно
        к вам. После этого строка выполнения указывает следующий выполня-
        емый оператор.

             Возьмем, например, следующий пример программы:

             program StepTest;

                function Negate(X: Integer): Integer;
                begin
                   Negate := -X;
                end;

             var
                I: Integer;
             begin
                for I := 1 to 10 do Writeln(Negate(I));
             end.

             Пример 6.1 Простая программа, выполняемая по шагам.

             Если в окне редактирования вы выведите  StepTest  и  нажмете
        клавишу F8, то строка выполнения перемещается на оператор begin в
        начале основного цикла,  поскольку это первое,  что выполняется в
        программе. Второе нажатие клавиши F8 выполняет begin и перемещает
        строку выполнения вниз до оператора for на следующей строке. Пос-
        ле этого нажатие F8 вызывает выполнение всего цикла for; на экран

         B.Pascal 7 & Objects /UG   - 148 -

        пользователя выводятся числа от -1 до -10,  а  строка  выполнения
        перемещается к end.

             Хотя функция Negate вызывается 10 раз, строка выполнения ни-
        когда на нее не перемещается.  Выполнение по шагам позволяет  от-
        ладчику не  показывать детали любых вызовов для отдельной строки.
        Выполнение по шагам вызывает выполнение всего  цикла  for  сразу,
        поэтому вы  не  сможете видеть изменения в ходе выполнения цикла.
        Если вы хотите видеть подробности цикла, внесите в пример следую-
        щее простое изменение.

             begin
                for I := 1 to 10 do
                  Writeln(Negate(I));
             end.

             Пример 6.2 Изменение формата кода для лучшего выполнения  по
        шагам.

             Поскольку оператор  Паскаля  может занимать несколько строк,
        такая программа будет в точности эквивалентна предыдущей  версии,
        а генерируемый код будет идентичен. Но поскольку оператор Writeln
        теперь находится на отдельной строке,  отладчик может интерпрети-
        ровать его  отдельно.  Если теперь вы будете нажимать клавишу F8,
        то увидите,  что строка выполнения будет при выполнении цикла  10
        раз возвращаться на Writeln.




         B.Pascal 7 & Objects /UG   - 149 -

                              Трассировка программы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Трассировка программы во многом аналогичная ее выполнению по
        шагам. Единственное исключение состоит в том,  что когда встреча-
        ется оператор вызова процедуры или функции,  при трассировке  эти
        процедуры и функции также выполняются по шагам, а при простом вы-
        полнении по шагам управление возвращается  вам  после  завершения
        выполнения подпрограммы.

             Например, чтобы  выполнить  трассировку  кода в Примере 6.1,
        загрузите файл, затем выберите команду RunіTrace Into или нажмите
        клавишу F7. Когда вы в первый раз делаете это, управление переме-
        щается на оператор begin основной программы. Повторное нажатие F7
        снова перемещает  строку управления на оператор for.  После этого
        нажатие клавиши F7 трассирует вызов функции Negate -  строка  вы-
        полнения перемещается на оператор begin в блоке функции.  Если вы
        продолжаете нажимать F7,  строка выполнения перемещается по функ-
        ции,  а затем,  когда вы дойдете до оператора end, возвращается к
        оператору вызова.

             Формат вашей программы влияет на поведение строки выполнения
        при трассировке,  хотя и не в такой степени как при пошаговом вы-
        полнении. Если код сформатирован как в Примере 6.1, то трассиров-
        ка оператора for приводит к выполнению 10 раз функции Negate. Ес-
        ли вы разобъете оператор for на две строки, как в Примере 6.2, то
        трассировка оператора end функции возвращает строку выполнения ту
        строку основной программы,  которая будет выполняться  следующей.
        Первые девять  раз  это снова будет вызов функции.  В десятый раз
        строка выполнения перемещается на оператор end программы.


                      Трассировка или выполнение по шагам?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

             Выполнение begin в блоке begin..end основной программы вызы-
        вает код инициализации для любого используемого в программе моду-
        ля в том порядке, который указывается в операторе uses программы.
        Аналогично,  выполнение оператора begin в начале секции инициали-
        зации вызывает код инициализации для любых модулей,  используемых
        в данном модуле.  Выполнение по шагам и  трассировка  работает  в
        этих случаях как и можно ожидать - пошаговое выполнение begin вы-
        полняет всю инициализацию, возвращая управление на следующий опе-
        ратор только после того, как все будет завершено; при трассировке
        выполняется трассировка кода инициализации.

                   Примечание: О модулях и их секциях инициализации расс-

         B.Pascal 7 & Objects /UG   - 150 -

             казывается в Главе 7 "Модули Borland Pascal".

               Пошаговое выполнение и трассировка методов объектов

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

                Пошаговое выполнение и трассировка внешнего кода

             Если вы выполняете в программе компоновку с  внешним  кодом,
        используя для этого директиву компилятора {$L имя_файла}, то если
        компонуемый файл .OBJ содержит отладочную информацию,  вы  можете
        трассировать этот код или выполнять его по шагам.  Borland Pascal
        ничего не  знает об отлаживаемом вами коде в этих модулях,  но он
        будет показывать вам соответствующие строки в исходном коде.

                   Примечание: Требования к внешнему  коду  поясняются  в
              Главе 25 "Руководства по языку".

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




         B.Pascal 7 & Objects /UG   - 151 -

                          Выполнение больших фрагментов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

             Чтобы задать в программе точку,  до которой вы хотите ее вы-
        полнить, а  затем  остановиться,  используйте  команду  RunіGo To
        Cursor (ВыполнениеіВыполнение до курсора) или клавишу  F4.  (Этим
        вы сообщите  отладчику,  что не хотите выполнять программу по ша-
        гам, пока не достигнете заданной точки.) Позиционируйте курсор на
        той строке,  где вы хотите возобновить управление отладкой, затем
        нажмите клавишу F4.  Заметим, что вы можете сделать это как в на-
        чале сеанса отладки, так и когда уже выполните часть программы по
        шагам или протрассируете.


                               Поиск нужного места
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE предусматривает два способа поиска в программе заданного
        места. Простейший способ предоставляет команда Find Procedure ме-
        ню Search. Команда Find Procedure (Поиск процедуры) запрашивает у
        вас имя процедуры  или  функции,  затем  находит  соответствующую
        строку в  файле,  где определяется эта подпрограмма.  Этот подход
        полезно использовать при редактировании,  но его можно комбиниро-
        вать с  возможностью  выполнения программы до определенной точки,
        чтобы пройти программу до той части кода, которую вы хотите отла-
        дить.

                                     Возврат

             Иногда в ходе отладки полезно узнать, как вы попали в данную
        часть кода. Окно Call Stack (Стек вызова) показывает вам последо-
        вательность вызовов процедур или функций, которые привели к теку-
        щему состоянию (глубиной до 128 уровней).  Для вывода  окна  Call
        Stack используйте команду DebugіCall Stack.

             Окно Call Stack особенно полезно использовать,  если вы слу-
        чайно начали трассировку кода,  который хотели  бы  выполнить  за
        один шаг.  В стеке вызовов вы можете найти тот вызов, который на-
        чали трассировать по ошибке, затем выбрать команду Run to Cursor,
        чтобы выполнить за один шаг остальную часть вызова.

                              Повторное выполнение
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В ходе сеанса отладки иногда желательно начать все  сначала.
        Выберите команду  RunіReset  Program или нажмите клавиши Ctrl+F2.
        Это приведет к полному сбросу,  так что выполнение по шагам,  или

         B.Pascal 7 & Objects /UG   - 152 -

        трассировка начнется в начале основной программы.


                          Отслеживание вывода программы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При выполнении программы по шагам часто полезно  просмотреть
        вывод программы,  называемый  экраном пользователя.  В прикладной
        программе Windows это достаточно просто,  так как  программа  уже
        выполняется в  отдельном окне.  Однако в DOS это не так легко.  К
        счастью, Borland  Pascal  предоставляет  вам  несколько  способов
        просмотра экрана пользователя.


                              Переключение экранов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В любой момент сеанса отладки вы можете выполнять переключе-
        ние экрана IDE и экрана пользователя. Чтобы вывести экран пользо-
        вателя, нажмите клавиши Alt+F5.  Чтобы вернуться в  IDE,  нажмите
        любую клавишу или щелкните "мышью".

             При выполнении  программы  отладчик  также может переключать
        экраны автоматически.  Управлять характером переключения  экранов
        вы можете с помощью параметров Display Swapping (Переключение эк-
        рана) диалогового окна Debugger.  По умолчанию задано эффективное
        переключение.  Это  означает,  что  экран  пользователя выводится
        только в том случае, если выполняемый оператор выводит информацию
        на  экран  или вызывает процедуру (даже если эта процедура ничего
        на экран не выводит). После завершения вывода экран переключается
        обратно в IDE.

             Вы можете  также  сообщить отладчику,  что переключать экран
        нужно на каждой строке,  независимо от вывода, или не переключать
        их вовсе.  Переключение экранов для каждой строки полезно исполь-
        зовать, если ваша программа посылает  информацию  непосредственно
        на экран, что может затереть содержимое экрана IDE.


                                   Окно Output
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE для DOS предусматривает для  экрана  пользователя  окно,
        которое называется  окном  вывода.  Выбрав  команду  меню  Debugі
        Output, вы можете открыть (вывести на  переднем  плане)  активное
        окно,  содержащее  вывод  программы.  Настроить размер этого окна
        можно аналогично окну редактирования.


                          Использование двух мониторов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             IDE предоставляет  вам  возможность  использования для целей

         B.Pascal 7 & Objects /UG   - 153 -

        отладки второго монитора.  Этот монитор должен  быть  монохромным
        дисплеем (поскольку использует память, отличную от цветного дисп-
        лея), и вам нужно будет запустить IDE с параметром /D. В режиме с
        двумя мониторами экран IDE выводится на монохромном экране, вывод
        вашей программы - на цветном экране,  а переключение  экранов  не
        выполняется.


                                Просмотр значений
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Выполнение программы по шагам или ее трассировка  могут  по-
        мочь вам найти ошибки в алгоритме программы, но обычно желательно
        также знать,  что происходит на каждом шаге со значениями отдель-
        ных переменных.  Например, при выполнении по шагам цикла for  по-
        лезно знать значение переменной цикла.  IDE Borland Pascal  имеет
        два инструментальных средства для проверки содержимого переменных
        программы: окно Watches (Просмотр) и диалоговое окно Evaluate and
        Modify (Вычисление и модификация).




         B.Pascal 7 & Objects /UG   - 154 -

                              Что такое выражение?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Оба средства вычисление и просмотра работают на уровне выра-
        жений, поэтому важно определить,  что считается выражением. Выра-
        жение состоит из констант,  переменных и структур данных, скомби-
        нированных с  помощью  операций и большинства встроенных функций.
        Почти все,  что вы можете использовать в правой  части  оператора
        присваивания, может  также  использоваться в качестве отладочного
        выражения. Точные спецификации показаны в Таблице 6.1.

                          Элементы выражений отладчика        Таблица 6.1
        ЪДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
        і    Элемент выражения     і      Допустимые значения           і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Константы                і Все допустимые типы: Boolean, Byte,і
        і                          і Char, перечислимый   тип,  Integer,і
        і                          і Longint,  Real,  Shortint,  Word  иі
        і                          і строковый тип.                     і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Переменные               і Все  типы, включая типы, определен-і
        і                          і ные пользователям.                 і
        і                          і                                    і
        і    целочисленный тип     і Любое целочисленное выражение с пе-і
        і                          і ременными границами диапазона.     і
        і                          і                                    і
        і    тип с плавающей точкойі Любые выражения с плавающей  точкойі
        і                          і или целочисленные выражения; лишниеі
        і                          і значащие цифры отбрасываются.      і
        і                          і                                    і
        і    символьный тип        і Любое символьное выражение, включаяі
        і                          і печатаемые символы  в одинарных ка-і
        і                          і вычках,  целочисленные   выражения,і
        і                          і тип которых приведен к типу Char, иі
        і                          і контанты ASCII (#xx).              і
        і                          і                                    і
        і    булевский тип         і True, False и все булевские выраже-і
        і                          і ния.                               і
        і                          і                                    і
        і    перечислимый тип      і Любые совместимые перечислимые кон-і
        і                          і станты или целочисленные  выраженияі
        і                          і в  рамках  диапазона,  тип  которыхі
        і                          і приведен к совместимому  перечисли-і
        і                          і мому типу.                         і
        і                          і                                    і
        і    указатель             і Любые совместимые указатели или вы-і
        і                          і ражения с приведенными к ним  типа-і
        і                          і ми;  функция  Ptr с соответствующимі
        і                          і параметрами.                       і
        і                          і                                    і
        і    строковый тип         і Любая строковая  константа (текст ві
        і                          і одинарных кавычках);  строковые пе-і
        і                          і ременные; строковые выражения, сос-і

         B.Pascal 7 & Objects /UG   - 155 -

        і                          і тоящие из конкатенированных строко-і
        і                          і вых констант и переменных.         і
        і                          і                                    і
        і    множество             і Любая множественная  константа; лю-і
        і                          і бое выражение,  совместимое  с мно-і
        і                          і жественным типа,  в котором исполь-і
        і                          і зуются операции +, - и *.          і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Приведение типа          і Соблюдаются   стандартные   правилаі
        і                          і Паскаля.                           і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Операции                 і Все операции Borland Pascal.       і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Встроенные функции       і Все функции, допустимые в выражени-і
        і                          і ях-константах.                     і
        ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Массивы                  і Массивы Borland Pascal - Mem, MemL,і
        і                          і MemW.                              і
        АДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ



         B.Pascal 7 & Objects /UG   - 156 -

                               Просмотр выражений
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если вы хотите отслеживать значение переменной или выражения
        при выполнении  программы по шагам,  то можете открыть окно прос-
        мотра Watches. Это окно IDE показывает переменные и их значения в
        каждый конкретный момент.

             Чтобы открыть  окно Watches,  выберите команду WindowіWatch.
        IDE открывает активное окно Watches без активных записей. Если вы
        выберите переменную  для  просмотра,  IDE автоматически открывает
        окно Watches (если вы этого еще не сделали).

                      Добавление просматриваемого выражения

             Чтобы добавить в окно Watches переменную,  выберите  команду
        DebugіWatchіAdd Watch  или  нажмите  клавиши  Ctrl+F7.  Если окно
        Watches является активным окном,  вы  можете  добавить  выражение
        просмотра, нажав клавишу Ins. Отладчик открывает диалоговое окно,
        запрашивающее у вас тип просматриваемого выражения.  По умолчанию
        выражением считается  слово  в позиции курсора в текущем окне ре-
        дактирования. Просматриваемые выражения,  которые вы  отслеживали
        ранее, сохраняются в списке протокола.

                Отслеживание текущего просматриваемого выражения

             Последнее добавленное  или  модифицированное просматриваемое
        выражение является текущим  просматриваемым  выражением,  которое
        указывается выводимым  слева от него символом жирной левой точки.
        Если окно Watches активно,  вы можете также удалить текущее выра-
        жение, нажав клавишу Del или Ctrl+Y. Чтобы удалить все просматри-
        ваемые выражения,   выберите   команду   DebugіWatchіRemove   All
        Watches.

                    Редактирование просматриваемых выражений

             Чтобы отредактировать просматриваемое выражение, нужно дваж-
        ды щелкнуть на этом выражении "мышью" или сделать  это  выражение
        текущим, затем  нажать  клавишу  Enter или выбрать команду Debugі
        WatchіEdit Watch. Отладчик открывает диалоговое окно, аналогичное
        тому, которое  используется для добавления просматриваемого выра-
        жения, которое позволяет вам отредактировать  текущее  выражение.
        При выборе командной кнопки OK или нажатии клавиши Enter отредак-
        тированное выражение заменяет оригинал.

                    Форматирование просматриваемых выражений

             Окно Watches позволяет вам несколькими способами  форматиро-
        вать просматриваемые выражения, добавляя запятую и один или более
        спецификаторов формата. Например, хотя целочисленные значения вы-
        водятся обычно в десятичном виде, указав после него ,H, вы можете
        задать вывод выражения в  шестнадцатиричном  формате.  Допустимые
        спецификаторы формата и их действие перечисляются в Таблице 6.2.

         B.Pascal 7 & Objects /UG   - 157 -

              Спецификаторы формата в выражениях отладчика
                                                            Таблица 6.2
        ЪДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДї
        і  Символ      і    Тип, на который  і         Функция          і
        і              і       он влияет     і                          і
        ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і  $, H или X  і целочисленные типы  і Шестнадцатиричный.  Выво-і
        і              і                     і дит целочисленные  значе-і
        і              і                     і ния в префиксом $,  вклю-і
        і              і                     і чая те, которые содержат-і
        і              і                     і ся в структуре данных.   і
        ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і  C           і Char, строковые     і Символьный.  Выводит спе-і
        і              і типы                і циальные  символы для ко-і
        і              і                     і дов ASCII 0..31. По умол-і
        і              і                     і чанию такие символы выво-і
        і              і                     і дятся  в  виде   значенийі
        і              і                     і #xx.                     і
        ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і D            і целочисленные       і Десятичный. Выводят цело-і
        і              і типы                і численные  значения в де-і
        і              і                     і сятичном виде    (включаяі
        і              і                     і те,  которые содержатся ві
        і              і                     і структурах данных).      і
        ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і Fn           і с плавающей точкой  і С плавающей точкой. Выво-і
        і              і                     і дит n значащих цифр,  гдеі
        і              і                     і n лежит в диапазоне 2..18і
        і              і                     і (по умолчанию - 11).     і
        ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і nM           і все                 і Дамп  памяти.  Выводит  nі
        і              і                     і байт памяти,   начиная  сі
        і              і                     і адреса,  указываемого вы-і
        і              і                     і ражением. Если n не зада-і
        і              і                     і но,  то по умолчанию  оноі
        і              і                     і равно  значению размера ві
        і              і                     і байтах типа переменной.  і
        ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і P            і указатели           і Указатель. Выводит указа-і
        і              і                     і тели по  адресу сегм:смещі
        і              і                     і (на  не   Ptr(сегм:смещ),і
        і              і                     і как это делается по умол-і
        і              і                     і чанию.                   і
        ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і R            і записи, объекты     і Запись. Выводит имена по-і
        і              і                     і лей, например,      (X:1;і
        і              і                     і Y:10; Z:5) вместо (1, 10,і
        і              і                     і 5).                      і
        ГДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДґ
        і S            і Char, строки        і Строки.  Выводит  символыі
        і              і                     і ASCII 0..31  в  виде #xx.і
        і              і                     і Использует только для мо-і
        і              і                     і дификации  дампов  памятиі

         B.Pascal 7 & Objects /UG   - 158 -

        і              і                     і (см. выше nM).           і
        АДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДЩ




                            Вычисление и модификация
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Кроме добавления  просматриваемых  выражений  при выполнении
        программы, отладчик имеет средство,  позволяющее вам в любой  мо-
        мент вычислять  выражения и изменять на этапе выполнения значения
        переменных.

                              Вычисление выражений

             Чтобы вычислить выражение,  выберите команду DebugіEvaluate/
        Modify или  нажмите клавиши Ctrl+F4.  Отладчик выводит диалоговое
        окно Evaluate and Modify (Вычисление и модификация). По умолчанию
        слово в  позиции  курсора в текущем окне редактирования выводится
        подсвеченным в поле Expression (Выражение).  Вы можете отредакти-
        ровать это выражение, набрать другое выражение или выбрать вычис-
        ляемое вами ранее выражение из списка протокола.

             Когда вы нажимаете Enter или щелкаете "мышью"  на  командной
        кнопке Evaluate, текущее значение выражения в поле Expression по-
        казывается в поле Result.

             Допустимые выражения для вычисления подчиняются тем же  пра-
        вилам, что и выражения для сравнения.  Для вывода результатов вы-
        числения выражения действую спецификаторы формата,  перечисленные
        в Таблице 6.2.

                             Модификация переменных

             Во время  отладки  с  помощью  диалогового окна Evaluate and
        Modify вы можете изменить значение переменной. Введите переменную
        в поле Expression, затем в поле New Value наберите новое значение.

             При изменении  значений переменных следует иметь в виду сле-
        дующее:

             * Вы можете изменять только отдельные переменные или элемен-
               ты массивов или записей, но не сами массивы и записи.

             * Выражения  в  поле  New Value должны отвечать ограничениям
               для выражений, перечисленных в Таблице 6.1.

             * Выражение в поле New Value (Новое значение) должно  в  ре-
               зультате вычисления давать результат, совместимый по прис-
               ваиванию с переменной,  которой вы  хотите  ее  присвоить.
               Здесь  можно  руководствоваться  следующим правилом:  если

         B.Pascal 7 & Objects /UG   - 159 -

               присваивание дает при компиляции ошибку, то оно не являет-
               ся допустимым значением модификации.



         B.Pascal 7 & Objects /UG   - 160 -

                          Использование точек останова
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal дает вам  возможность  устанавливать  в  свое
        программе для целей отладки точки останова.  Точка останова - это
        обозначенная в коде программы позиция,  в которой вы хотите прек-
        ратить выполнение  программы  и  вернуть выполнение отладчику.  В
        этом смысле точка останова  работает  аналогично  команде  Go  to
        Cursor, при которой программа выполняется обычным путем до дости-
        жения определенной точки. Основное различие состоит в том, что вы
        можете задать несколько точке останова и точки останова,  которые
        будут срабатывать не при каждом их достижении.


                             Задание точек останова
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Чтобы установить в своем в своем коде точку останова,  пере-
        местите курсор на той строке,  где вы хотите остановиться. Строка
        должна содержать  выполняемый  код  и не может быть комментарием,
        описанием или пустой строкой.  Выбор команды Toggle Breakpoint  в
        локальном меню окна редактирования или нажатие клавиш Ctrl+F8 ус-
        танавливает на строке точку останова,  которая обозначается подс-
        веткой всей строки.

             Теперь при  выполнении программы из IDE она будет останавли-
        ваться при достижении данной строки,  но  перед  ее  выполнением.
        Строка, содержащая точку останова,  выводится при этом в окне ре-
        дактирования как строка выполнения.  В этот момент вы можете  вы-
        полнить любые другие действия по отладке (выполнение программы по
        шагам, трассировку, просмотр и вычисление).


                              Отмена точке останова
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Чтобы отменить точку останова,  поместите курсор на содержа-
        щую ее строку и выберите в локальном меню окна редактирования ко-
        манду Toggle Breakpoint или нажмите клавиши Ctrl+F8.


                           Модификация точек останова
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В процессе сеанса отладки IDE отслеживает все точки  остано-
        ва. Вместо  того,  чтобы  шарить по исходному коду в поиске точек
        останова, она обслуживать точки останова в одном диалоговом  окне
        Breakpoints. Для вывода диалогового окна Breakpoints выберите ко-
        манду ViewіBreakpoints. В этом диалоговом окне вы можете устанав-
        ливать, удалять, редактировать и просматривать свои точки остано-
        ва.

             Командные кнопки диалогового окна Breakpoints работают  сле-

         B.Pascal 7 & Objects /UG   - 161 -

        дующим образом:

             * Чтобы  добавить  новую  точку останова,  подсветите пустую
               строку в списке и выберите командную кнопку Edit.

             * Чтобы отменить точку останова,  подсветите ее  и  выберите
               кнопку Clear.

             * Чтобы модифицировать существующую точку останова,  подсве-
               тите ее и выберите командную кнопку Edit.

             * Чтобы найти в своем исходном коде точку останова,  подсве-
               тите ее и выберите кнопку View.

             * Чтобы удалить все точки останова, выберите командную кноп-
               ку Clear All.


                        Создание условный точек останова
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД


             Точки останова,  добавленные командой Toggle Breakpoint, яв-
        ляются безусловными: когда вы попадаете на эту строку, отладчик в
        любом случае останавливает программу.  Если вы редактируете новую
        или существующую точку останова, то у вас есть две дополнительные
        возможности -  с  помощью  параметров   диалогового   окна   Edit
        Breakpoint вы можете создать условные точки останова. В этих точ-
        ках останова вы можете задать два вида условий:  счетчик проходов
        и логические условия.

                              Подсчет числа проходов

             Задание для точки останова счетчика проходов сообщает отлад-
        чику, что останавливать программу нужно не при каждом  достижении
        точки останова,  а только на n-ый раз. То есть, если счетчик про-
        ходов равен 3,  то отладчик останавливает  программу  только  при
        третьем достижении данной точки останова.

                                Проверка условий

             В качестве условия для точки останова можно также задать вы-
        ражение типа Boolean.  Например, вы можете проверить, попадает ли
        переменная в заданный диапазон, или установлен ли некоторый флаг.
        В таких условиях для точек останова вы можете задавать любые  бу-
        левские выражения, подчиняющиеся правилам Таблицы 6.1.


                     Прерывание программы без точек останова
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Даже если вы не установите точек останова, то все равно смо-
        жете выйти  в  отладчик при выполнении программы из IDE.  В любой

         B.Pascal 7 & Objects /UG   - 162 -

        момент работа программы нажмите клавиши Ctrl+Break.  Отладчик на-
        ходит позицию в исходном коде, где вы прервали программу. Как и в
        случае обычно точки останова вы можете затем выполнить  программу
        по шагам, трассировать ее, отследить или вычислить выражения.



         B.Pascal 7 & Objects /UG   - 163 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                         Глава 7. Модули Borland Pascal
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В данной главе разъясняется,  что такое модуль,  как он  ис-
        пользуется,  какие  встроенные модули доступны пользователю,  как
        писать собственные программные модули и как компилировать их.

                                Что такое модуль?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal  обеспечивает  вам  доступ  к  большому числу
        встроенных констант,  типов данных,  переменных, процедур и функ-
        ций.  Некоторые из них специфичны для Borland Pascal, другие спе-
        цифичны для приложений Windows.  Их количество велико,  однако, в
        своей  программе  вы редко используете их все сразу.  Поэтому они
        разделены на связанные группы, называемые модулями. В этом случае
        можно  использовать только те модули,  которые необходимы в прог-
        рамме.

             Используя модули, вы можете разбивать программу на отдельные
        части  и  компилировать  их  отдельно.  Программный модуль (unit)
        представляет собой набор констант, типов данных, переменных, про-
        цедур и функций,  которые могут совместно использоваться несколь-
        кими программами. Каждый модуль аналогичен отдельной программе на
        Паскале:  он может иметь основное тело,  которое вызывается перед
        запуском вашей программы и осуществляет  необходимую  инициализа-
        цию.

             Все описания внутри модуля связаны друг с другом.  Например,
        модуль Strings содержит все описания, необходимые для подпрограмм
        работы со строками с завершающим нулем.

             Borland Pascal  предоставляет  пользователю  ряд стандартных
        модулей, таких как System, Crt WinCrt и др. Они поддерживают наши
        программы  Borland Pascal и все записаны в одну из трех библиотех
        исполняющей системы (в зависимости от целевой платформы).

                             Библиотеки исполняющей
                       системы для целевой платформы   Таблица 7.1
              ЪДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДї
              і    Имя библиотеки       і    Целевая платформа   і
              ГДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДґ
              і    TURBO.TPL            і DOS реального режима   і
              і    TPW.TPL              і Windows                і
              і    TPP.TPL              і DOS защищенного режима і
              АДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДЩ

             Ваша программа может использовать любую из процедур и  функ-
        ций в этих модулях, и вам не потребуется писать их заново.



         B.Pascal 7 & Objects /UG   - 164 -

                                Структура модуля
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Структура модуля аналогична структуре программы, однако есть
        несколько существенных различий. Например, рассмотрим модуль:

             unit <идентификатор>;
             interface
             uses <список модулей>;      { Необязательный }
               { глобальные описания }
             implementation
               uses <список_модулей>;    { Необязательный }
               { локальные описания }
               { реализация процедур и функций }
             begin
               { код инициализации }
             end.

             Заголовок модуля начинается зарезервированным  словом  unit,
        за которым следует имя модуля (идентификатор) точно так же, как и
        в случае имени программы.  Следующим элементом в модуле  является
        ключевое  слово  interface.  Оно  обозначает  начало интерфейсной
        секции модуля - части, доступной всем другим модулям или програм-
        мам, в которых он используется.

             Программный модуль  может  использовать  другие модули,  для
        этого они определяются в операторе uses.  Оператор uses (если  он
        имеет место) может содержаться в двух местах.  Во-первых он может
        следовать сразу  после  ключевого слова interface.  В этом случае
        любые константы и типы данных,  описанные в  интерфейсной  секции
        этих модулей,  могут использоваться в любом описании в интерфейс-
        ной части данного модуля.

             Во-вторых, он может следовать немедленно за ключевым  словом
        implementation. В  этом случае все описания из этих модулей могут
        использоваться только в секции реализации.




         B.Pascal 7 & Objects /UG   - 165 -

                               Интерфейсная секция
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Интерфейсная часть  - "общедоступная" часть в модуле - начи-
        нается зарезервированным словом interface,  следует  сразу  после
        заголовка  модуля  и заканчивается перед зарезервированным словом
        implementation.  Интерфейс  определяет,  что  является  "видимым"
        (доступным) для любой программы (или модуля), использующей данный
        модуль.

             В интерфейсной  части  (секции)  модуля   можно   определять
        константы,  типы данных, переменные, процедуры и функции. Как и в
        программе,  они могут быть расположены в любом порядке,  и секции
        могут встречаться повторно (например, ваша программа может содер-
        жать секцию var,  за которой следует секция const, а затем другая
        секция var).

             Процедуры и   функции,   видимые   для   любой    программы,
        использующей  данный  модуль,  описываются  в  секции интерфейса,
        однако их действительные тела - реализации - находятся  в  секции
        реализации. Вам не нужно использовать описания forward,  и они не
        допускаются. В  интерфейсной  части  перечисляются  все заголовки
        процедуры и функции. Секция реализации содержит программную логи-
        ку процедур и функций.


                                Секция реализации
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Секция реализации   -   "приватная"   часть   -   начинается
        зарезервированным  словом  implementation.  Все,  что  описано  в
        секции  интерфейса,  является  видимым   в   секции   реализации:
        константы,  типы,  переменные, процедуры и функции. Кроме того, в
        секции  реализации  могут  быть  свои  дополнительные   описания,
        которые  не  являются  видимыми  для программ,  использующих этот
        модуль.  Программа не  знает  об  их  существовании  и  не  может
        ссылаться на них или обращаться к ним.  Однако,  эти скрытые эле-
        менты могут использоваться (и,  как правило, используются) "види-
        мыми" процедурами и функциями,  то есть теми подпрограммами,  чьи
        заголовки указаны в секции интерфейса.

             Оператор uses  может   содержаться   в   секции   реализации
        (implementation) и  должен  непосредственно следовать за ключевым
        словом implementation.

             Обычные процедуры и функции,  описанные в интерфейсной  сек-
        ции,  то  есть  те  из  них,  которые  не являются подставляемыми
        (inline),  должны повторно указываются в секции реализации. Заго-
        ловок procedure/function должен быть или идентичным тому, который
        указан в секции интерфейса, или иметь более краткую форму. В слу-
        чае   краткой   формы  наберите  ключевое  слово  (procedure  или
        function), а за ним укажите имя подпрограммы (идентификатор). За-
        тем  подпрограмма  должна  содержать  все свои локальные описания

         B.Pascal 7 & Objects /UG   - 166 -

        (метки, константы, типы, переменные и вложенные процедуры и функ-
        ции),  за которыми должно находиться основное тело самой подпрог-
        раммы. Пусть в интерфейсной части указаны следующие описания:

             procedure ISwap(var V1,V2 : integer);
             function IMax(V1,V2 : integer) : integer;

             Тогда Секция реализации будет иметь следующий вид:

             procedure ISwap; var
                  Temp := integer;
             begin
                  Temp := V1; V1 := V2; V2 := Temp
             end; {конец процедуры Swap}
             function IMax(V1,V2 : integer) : integer;
             begin
                  if V1 > V2
                  then IMax := V1
                  else IMax := V2
             end; { конец функции Max }

             Подпрограммы, локальные  для  секции  реализации (то есть не
        описанные в секции реализации),  должны иметь полный (несокращен-
        ный) заголовок procedure/function.


                              Секция инициализации

             Обычно вся секция реализации модуля заключена между зарезер-
        вированными словами implementation и end.  Однако, если перед end
        поместить зарезервированное слово begin,  а между ними - операто-
        ры, то получившийся составной оператор, очень похожий на основное
        тело   программы,   становится   секцией   инициализации   модуля
        (initialization).

             Секция инициализации представляет собой место, где инициали-
        зируются структуры данных (переменных),  которые использует прог-
        раммный  модуль  или которые он делает доступными программе,  ис-
        пользующей данный модуль.  Вы можете использовать эту секцию  для
        открытия файлов, которые программа использует позднее.

             При выполнении  программы,  использующей  некоторый  модуль,
        секция инициализации этого модуля вызывается перед  запуском  ос-
        новного  тела  программы.  Если программа использует более одного
        модуля, то секции инициализации всех модулей вызываются (в поряд-
        ке, указанном в операторе uses в программе) перед тем, как выпол-
        нить основное тело программы.


                            Как используются модули?

             Модули, которые использует ваша программа,  уже оттранслиро-

         B.Pascal 7 & Objects /UG   - 167 -

        ваны и хранятся,  как машинный код, а не как исходный код на Пас-
        кале,  поскольку они не являются включаемыми файлами. Даже интер-
        фейсная секция хранится в специальном  двоичном  формате  таблицы
        идентификаторов, используемом в Borland Pascal. Более того, опре-
        деленные  стандартные  модули  хранятся   в   специальном   файле
        (TURBO.TPL,  TPW.TPL  или  TPP.TPL) и автоматически загружаются в
        память вместе с Borland Pascal.

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

             Фактически, если  модуль  скомпилирован,  его  использование
        сохраняет вам  время при перекомпиляции.  Поскольку компилятор не
        перекомпилирует модуль,  пока он не изменяется, использование мо-
        дулей в программе ускорит процесс ее построения.

             Как указывалось ранее, для использования специального модуля
        или набора модулей необходимо в начале программы поместить опера-
        тор uses, после которого указать список имен тех модулей, которые
        будут использоваться. Имена их должны разделяться запятыми:

             program MyProg;
             uses thisUnit, thatUnit, theOtherUnit;

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

             Модули присоединяются к таблице идентификаторов в  указанном
        порядке. Порядок модулей в операторе uses значения не имеет. Если
        модуль thisUnit использует thatUnit или наоборот,  вы можете опи-
        сать  их  в любом порядке,  а компилятор определит,  какой модуль
        нужно скомпоновать с программой MyProg первым.  Фактически,  если
        модуль thisUnit использует thatUnit, но MyProg не вызывает непос-
        редственно ни одну из подпрограмм в модуле  thatUnit,  вы  можете
        "скрыть"  подпрограммы  модуля thatUnit,  опустив его в операторе
        uses:

             unit thisUnit;
             uses thatUnit;
               .
               .
               .
             program MyProg;
             uses thisUnit, theOtherUnit;
               .
               .
               .

             В этом примере модуль thisUnit может вызывать любую подпрог-

         B.Pascal 7 & Objects /UG   - 168 -

        рамму модуля thatUnit, а программа MyProg может вызывать любую из
        подпрограмм модуля thisUnit или theOtherUnit.  Однако,  программа
        MyProg не может вызывать подпрограммы модуля thatUnit,  поскольку
        thatUnit не указывается в операторе uses программы MyProg.

          Если в программе не указан оператор uses,  Borland Pascal в лю-
        бом случае присоединит стандартный  модуль  System.  Этот  модуль
        обеспечит выполнение  некоторых  стандартных  подпрограмм Borland
        Pascal, а также нескольких подпрограмм, специфических для Borland
        Pascal.


                            Ссылки на описания модуля
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Как только вы включили модуль в свою программу, все констан-
        ты,  типы данных,  переменные,  процедуры и функции,  описанные в
        секции интерфейса этого модуля,  становятся доступными для  вашей
        программы. Например, допустим, имеется следующий модуль:

             unit MyStuff;
             interface
               const
                 MyValue = 915;
               type
                 MyStars = (Deneb,Antares,Betelgeuse);
               var
                 MyWord : string[20];

               procedure SetMyWord(Star : MyStars);
               function TheAnswer : integer;
               implementation
                 .
                 .
                 .
               end.

             Как можно видеть здесь в интерфейсной части модуля, та часть
        модуля, которая находится в интерфейсной секции, является видимой
        для вашей программы (и может ею использоваться).  С учетом  этого
        можно написать следующую программу:

             program TestStuff;
             uses MyStuff;
             var
               I     : integer;
               AStar : MyStars;
             begin
               Writeln(myValue);
               AStar := Deneb;
               SetMyWord(AStar);
               Writeln(MyWord);
               I := TheAnswer;

         B.Pascal 7 & Objects /UG   - 169 -

               Writeln(I)
             end.

             После включения в программу оператора uses MyStuff вы можете
        ссылаться на все идентификаторы,  описанные в интерфейсной секции
        модуля МyStuff (МyWord,  МyValue и так далее). Однако, рассмотрим
        следующую ситуацию:

             program TestStuff;
             uses MyStuff;
             const
               MyValue = 22;
             var
               I     : integer;
               AStar : MyStars;

               function TheAnswer : integer;
               begin
                 TheAnswer := 1
               end;

             begin
               Writeln(myValue);
               AStar := Deneb;
               SetMyWord(AStar);
               Writeln(MyWord);
               I := TheAnswer;
               Writeln(I)
             end.

             В этой программе переопределяются некоторые из идентификато-
        ров,  описанных в МyStuff. Будучи скомпилированной и выполненной,
        эта программа  будет  использовать  собственные  определения  для
        МyValue и ТheAnswer,  поскольку они были описаны позднее, чем оп-
        ределения в МyStuff.

             Вероятно, вам интересно знать,  каким образом в такой ситуа-
        ции можно ссылаться на идентификаторы в МyStuff.  Для этого необ-
        ходимо перед каждым идентификатором помещать имя МyStuff с точкой
        (.). Например, рассмотрим еще одну версию этой программы:

             program TestStuff;
             uses MyStuff;
             const
               MyValue = 22;
             var
               I     : integer;
               AStar : MyStars;

               function TheAnswer : integer;
               begin
                 TheAnswer := 1
               end;

         B.Pascal 7 & Objects /UG   - 170 -


             begin
               Writeln(MyStuff.MyValue);
               AStar := Deneb;
               SetMyWord(AStar);
               Writeln(MyWord);
               I := MyStuff.TheAnswer
               Writeln(I)
             end.

             Эта третья программа даст такие же ответы, что и первая, да-
        же в том случае,  если вы переопределите MyValue и  TheAnswer.  В
        действительности вы  имели полное право написать первую программу
        следующим образом:

             program TestStuff;
             uses MyStuff;
             var
               I     : integer;
               AStar : MyStuff.MyStars;

             begin
               Writeln(MyStuff.MyValue);
               AStar := My.Stuff.Deneb;
               MyStuff.SetMyWord(AStar);
               Writeln(My.Stuff.MyWord);
               I := MyStuff.TheAnswer;
               Writeln(I)
             end.

             Отметим, что  имя модуля может предшествовать любому иденти-
        фикатору: константе, типу данных, переменной или подпрограмме.


                         Оператор uses секции реализации
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal  позволяет  вам размещать в секции реализации
        оператор uses. В случае его присутствия оператор uses должен сле-
        довать  непосредственно за ключевым словом implementation (анало-
        гично тому, как в интерфейсной секции оператор uses должен следо-
        вать непосредственно за ключевым словом interface).

             Размещение в  секции  реализации  оператора  uses  позволяет
        "скрыть" внутренние детали модуля,  поскольку используемые в сек-
        ции реализации модули оказываются "невидимыми" для того, кто этот
        модуль использует.  Более важным,  однако,  является то,  что это
        позволяет вам строить взаимнозависимые модули.

             Поскольку программные  модули  в  Borland  Pascal не обязаны
        иметь строго иерархическую структуру, то допускается использовать
        циклические ссылки  на  модули.  О  циклических ссылках на модули
        рассказывается в Главе 10 "Справочного руководства по языку".

         B.Pascal 7 & Objects /UG   - 171 -

                               Стандартные модули
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Модули библиотек исполняющей системы Borland Pascal загружа-
        ются в память вместе с Borland Pascal;  вы всегда можете  их  ис-
        пользовать. Обычно  библиотеки  исполняющей  системы  (TURВО.TPL,
        TPW.TPL и TPP.TPL) находятся в том же каталоге,  что и компилятор
        (TURBO.EXE. BPW.EXE и BP.EXE).


                       Создание ваших собственных модулей
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Если вы хотите написать модуль,  содержащий некоторые полез-
        ные подпрограммы,  и  использовать эти подпрограммы в своих прог-
        раммах, напишите модули и сохраните его под  именем,  заданным  в
        заголовке модуля.  Borland  Pascal  сохраняет  файл с расширением
        .PAS, как и любой другой  файл,  созданный  в  редакторе  Borland
        Pascal. В исходном файле может содержаться только один модуль.


                                Компиляция модуля
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Скомпилировать модуль вы можете двумя способами. Вы можете:

             * Скомпилируйте модуль с  помощью  команды  CompileіCompile.
               Вместо  создания  файла  .EXE  Borland Pascal создает файл
               .TPU, .TPW или .TPP.

                 ЪДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДї
                 і    Целевая платформа   і  Расширение имени файла і
                 і                        і         модуля          і
                 ГДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДґ
                 і DOS реального режима   і         .TPU            і
                 і Windows                і         .TPW            і
                 і DOS защищенного режима і         .TPP            і
                 АДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДЩ

               Например, если ваш модуль называется MYUNIT.PAS,  если це-
               левой платформой  является  Windows,  он  компилируется  в
               MYUNIT.TWP.

             * Для компиляции программы, которая включает в себя оператор
               uses, используйте команду CompileіMake или  CompileіBuild.
               В  зависимости от целевой платформы,  создается файл .TPU,
               .TPW или .TPP.

                   Примечание: О том,  как  использовать  оператор  uses,
              рассказывается в следующем разделе.



         B.Pascal 7 & Objects /UG   - 172 -

                        Доступность модуля для программы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Скопируйте свой новый файл .TPU, .TPW или .TPP в каталог мо-
        дулей, заданный  в  диалоговом окне OptionsіDirectories,  или ис-
        пользуйте параметр командной строки /U при работе с  компилятором
        режима командной строки.

             Если вы поместите свой модуль в заданный каталог модулей, то
        сможете ссылаться на этот модуль, даже если он не находится в те-
        кущем каталоге или в библиотеках исполняющей системы.

             Включите в любую программу,  где вы хотите использовать свой
        новый модуль,  оператор uses. Например, если ваш новый модуль на-
        зывается INTLIB.TPW, то задайте в своей программе оператор следу-
        ющего вида:

             uses IntLib;

             Чтобы найти модуль,  имя которого указано в операторе  uses,
        Borland Pascal  проверяет  его  наличие  в библиотеке исполняющей
        системы, загруженной в память в время инициализации.

                   Примечание: О том,  как поместить модуль в  библиотеку
              исполняющей системы, рассказывается ниже.

             Если модуль в библиотеке исполняющей системы отсутствует, то
        компилятор ищет его на диске, сначала в текущем каталоге, затем в
        каталогах, заданных   в   качестве  каталогов  модулей  (Optionsі
        Directories). Компилятор предполагает,  что имя файла совпадает с
        именем  модуля,  а  расширение  имени файла - это .TPU,  .TPW или
        .TPP. Исходный текст модуля имеет расширение .PAS.


         B.Pascal 7 & Objects /UG   - 173 -

                                     Пример

             Теперь напишем небольшой модуль.  Назовем его IntLib и вста-
        вим в него две простые подпрограммы для целых чисел - процедуру и
        функцию:

           unit IntLib;

           interface
               procedure ISwap(var I,J : integer);
               function IMax(I,J : integer) : integer;
           implementation
           procedure ISwap;
           var
               Temp : integer;

           begin
               Temp := I; I := J; J := Temp
           end;  { конец процедуры ISwap }
           function IMax;
           begin
             if I > J
                 then IMax := I
                 else IMax := J
           end;  { конец функции IMax }
           end.  { конец модуля IntLib }

             Наберите этот модуль,  запишите его в файл INTLIВ.PAS, а за-
        тем скомпилируйте,  задав в качестве целевой платформы защищенный
        режим DOS.  В результате получим код модуля в  файле  INTLIВ.ТРP.
        Перешлем его в каталог модулей (если такой имеется),  или оставив
        в том же каталоге, где находится следующая программа, которая ис-
        пользует модуль IntLib:

             program IntTest;
             uses IntLib;
             var
               A,B  : integer;
             begin
               Write('Введите два целочисленных значения: ');
               Readln(A,B);
               ISwap(A,B);
               Writeln('A = ',A,' B = ',B);
               Writeln('Максимальное значение равно ',IMax(A,B));
             end.  { конец программы IntTest }


                           Модули и большие программы

             До сих пор мы говорили о модулях как о библиотеках - наборах

         B.Pascal 7 & Objects /UG   - 174 -

        полезных  подпрограмм,  которые  могут использоваться несколькими
        программами.  Однако,  у модуля есть еще одна функция - разбивать
        большую программу на составные части.

             Два аспекта  Borland Pascal способствуют использованию моду-
        лей в такой функции:

             * высокая скорость компиляции и компоновки;

             * способность работать с несколькими  файлами  одновременно,
               например, с программой и несколькими модулями.

             Обычно большая  программа  разбивается  на  модули,  которые
        группируют процедуры по их функциям. Например, программа редакто-
        ра может быть разделена на части, выполняющие инициализацию, рас-
        печатку, чтение и запись файлов, форматирование и так далее. Так-
        же, как имеется основная программа, определяющая глобальные конс-
        танты, типы данных, переменные, процедуры и функции, так же может
        иметь место  и  "глобальный"  модуль,  который используется всеми
        другими модулями.

             Набросок большой программы-редактора может иметь вид:

             program Editor;
             uses
                WinCrt, String     { стандартные модули из TPW.TPL }
                EditGlobals,       { модули, написанные пользователем }
                EditInuit,
                EditPrint,
                EditRead, EditWrite,
                EditFormat;

             { описание, процедуры и функции программы }
             begin  { основная программа }
             end.   { конец программы Editor }

             Модули в данной программе могут содержаться в TPW.TPL,  биб-
        лиотеке исполняющей системы Windows,  или быть отдельными файлами
        .TPW. В последнем случае Borland Pascal выполняет за вас управле-
        ние проектом.  Это означает,  что  при  перекомпиляции  программы
        Editor  с  помощью встроенного в компилятор средства формирования
        Borland Pascal сравнивает даты каждого файла .PAS и .TPW и  пере-
        компилирует любой модуль, исходный код которого перекомпилирован.

             Другая причина  использования  модулей  в больших программах
        состоит в ограничения кодового сегмента. Процессоры 8086 (и родс-
        твенные им) ограничивают размер сегмента кода 64 килобайтами. Это
        означает, что основная программа и любой данный сегмент на  может
        превышать 64К.  Borland  Pascal интерпретирует это,  создавая для
        каждого модуля отдельный сегмент кода. Без этого объем кода вашей
        программы не мог бы превышать 64К.


         B.Pascal 7 & Objects /UG   - 175 -

                   Примечание: Подробнее о работе с большими программными
              проектами рассказывается в Главе 4 "Программирование в  ин-
              тегрированной среде для DOS".


                                Утилита TPUMOVER
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Допустим, вы хотите добавить стандартным модулям хорошо  на-
        писанный и полностью отлаженный модуль с тем, чтобы он загружался
        в память при запуске компилятора.  Переслать его  в  библиотечный
        файл стандартных модулей можно с помощью утилиты TPUMOVER.EXE.

             Кроме того, утилита TPUMOVER используется для удаления моду-
        лей из библиотечного файла стандартных  модулей  Borland  Pascal,
        благодаря чему уменьшается его размер и количество памяти,  необ-
        ходимой для его загрузки.

                   Примечание: Более подробно  об  использовании  утилиты
              TPUMOVER см. в "Руководстве по инструментальным средствам и
              утилитам".

             Как вы вероятно поняли,  писать собственные модули абсолютно
        не  сложно.  Хорошо написанный,  хорошо реализованный программный
        модуль упрощает разработку программы;  проблемы  решаются  только
        один раз,  а не повторно для каждой новой программы.  Более того,
        использование модулей обеспечивает простое средство для написания
        больших программ.




         B.Pascal 7 & Objects /UG   - 176 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                        Глава 8. Использование указателей
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Указатель - это ссылка на данные или код вашей программы. Он
        представляет адрес в памяти элемента,  на который указывает.  Ис-
        пользование указателей позволяет писать большие  и  более  гибкие
        программы и  особенно полезно,  когда вы начинаете писать объект-
        но-ориентированные программы.

             Данная глава должна помочь вам лучше использовать указатели,
        независимо  от того,  начинаете ли вы работать с Паскалем или уже
        давно программируете на Паскале, но раньше не работали с указате-
        лями. Она охватывает следующие темы:

             * Зачем и когда используются указатели.
             * Что такое указатель.
             * Как использовать указатели.
             * Эффективная работа с указателями.


                        Для чего используются указатели?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Рано или поздно каждый программист,  работающий на  Паскале,
        попадает в ситуацию, требующую использования указателей. Указате-
        ли требуется применять в следующих случаях:

             * Если  ваша  программа  работает с большими объемами данных
               (общий объем которых превышает 64К).

             * Если  ваша программа во время компиляция использует данные
               неизвестного размера.

             * Если программа использует временные буферы данных.

             * Если ваша программа работает с несколькими типами данных.

             * Если ваша программа использует связанные списки данных или
               объектов.

             Давайте подробнее  рассмотрим  каждую  причину использования
        указателей.


                        Работа с большими объемами данных
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             По мере того как программы становятся более сложными, и тре-
        буются  работа  с  большим количеством данных,  область объемом в
        64К,  зарезервированная в Borland Pascal для данных,  может  ока-
        заться  недостаточной,  чтобы содержать все необходимые программе
        данные. Указатели позволяют вам обойти эту проблему.


         B.Pascal 7 & Objects /UG   - 177 -

             Когда вы  описываете в Borland Pascal глобальные переменные,
        компилятор выделяет для них память в области,  которая называется
        сегментом данных.  Сегмент  данных имеет максимальный размер 64К.
        Это означает, что общий объем всех ваших глобальных переменных не
        может превышать 64К.  Для многих программ этот предел значения не
        имеет, но в некоторых случаях  вам  может  потребоваться  больший
        объем.

                   Примечание: Локальные  переменные не помещаются в сег-
              мент данных и в пределе 64К не учитываются.

             Предположим, например,  что у вас есть программа,  требующая
        массива в  400  строк  по 100 символов каждая.  Для этого массива
        требуется примерно 40К,  что меньше максимума в 64К. Если осталь-
        ные ваши  переменные  помещаются в оставшиеся 24К,  массив такого
        объема проблемы не представляет.

             Но что если вам нужно два таких массива?  Это потребовало бы
        80К,  и 64К сегмента данных не хватит.  Чтобы работать с большими
        объемами данных,  вам нужно использовать динамически распределяе-
        мую область памяти.  Ваша программа может выделить в  динамически
        распределяемой  области 80К,  поддерживая указатель в виде ссылку
        на адрес данных.  Указатель занимает в сегменте данных  только  4
        килобайта.

              Что такое динамически распределяемая область памяти?

             Динамически распределяемая область памяти - это вся  память,
        которую ваша  операционная система делает доступной для программы
        и которая не используется ее кодом,  сегментом данных  и  стеком.
        Объемом распределяемой  динамической памяти вы можете управлять с
        помощью директивы компилятора $M.

             Обычно в Borland Pascal вы можете зарезервировать  память  в
        динамически распределяемой  области,  получить к ней доступ через
        указатель, а затем снова освободить память. Подробности о распре-
        делении памяти  в  динамически  распределяемой  области вы можете
        найти ниже в разделе "Как использовать указатели?".


                      Работа с данными неизвестного размера
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Некоторые элементы данных Borland Pascal (в частности, стро-
        ки и массивы) требуют задания размеров во время компиляции,  даже
        если при выполнении программы вам не потребуется  вся  выделенная
        память. Простым примером может быть программа, считывающая вводи-
        мую пользователем строку, например, имя пользователь. Чтобы запи-
        сать имя в обычной строковой переменной, вам потребовалось бы за-
        резервировать достаточно памяти для максимальной возможной  стро-
        ки,  даже если набранное имя содержит всего несколько букв.  Если
        вы распределяете переменные в динамически распределяемой  области
        памяти  во  время  выполнения,  то  можете выделить точно столько

         B.Pascal 7 & Objects /UG   - 178 -

        байт, сколько необходимо для фактической строки данных.

             Это тривиальный пример,  но в приложении, содержащем сотни и
        тысячи таких элементов данных (таких как множественные  окна  или
        считываемые из файлов списки) выделение точного объема пространс-
        тва может  вместо  ситуации  нехватки памяти привести к успешному
        выполнению.


                       Работа с временными буферами данных
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Указатели и  динамически  распределяемая область памяти осо-
        бенно полезны в тех случаях,  когда вам требуется временное выде-
        ление памяти,  и вы не хотите удерживать ее на все время выполне-
        ния программы.  Например, редактору файлов обычно требуется буфер
        данных для каждого редактируемого файла. Вместо описания на этапе
        компиляции,  что вам необходимо определенное число буфером задан-
        ного размера, которые всегда распределяются для файлов, вы можете
        выделить их столько,  сколько необходимо в каждый конкретный  мо-
        мент, что делает память доступной для других целей.

             Другим общим примером использования временной памяти являет-
        ся сортировка.  Обычно когда вы сортируете большой объем  данных,
        то делаете копию массива,  сортируете копию,  а затем записываете
        отсортированные данные обратно в исходный массив.  Это  сохраняет
        целостность ваших данных,  но требует также наличия во время сор-
        тировки двух копий данных.  Если вы хотите распределить сортируе-
        мый массив в динамически распределяемой памяти,  то можете отсор-
        тировать его и скопировать обратно в оригинал, а затем уничтожить
        сортируемый массив, освободив память для других нужд.


                       Работа с несколькими типами данных
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Одной из  общих  причин  использования  указателей  является
        ссылка на переменные структуры данных,  то есть записи или масси-
        вы,  которые не всегда имеют одну и ту же структуру. Например, вы
        можете выделить  блок  памяти,  зарезервированный для "протокола"
        элементов строк различной длины,  набранных в поле ввода  данных.
        Чтобы прочитать список протокола, подпрограмма должна просмотреть
        блок и найти отдельные строки. Для указания начала блока вы може-
        те использовать простой указатель.  В этом случае указатель рабо-
        тает аналогично передаче функции или процедуре  нетипизированного
        параметра var - вы просто хотите сообщить,  где что-то находится,
        без указания того, что это такое.

                   Примечание: О  нетипизированных  параметрах-переменных
              рассказывается в Главе 9 ("Процедуры и функции") "Руководс-
              тва по языку".



         B.Pascal 7 & Objects /UG   - 179 -

                                Связанные списки
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Одним из общих случаев использования указателей является со-
        единение связанных списков записи.  Во многих простых приложениях
        типа баз  данных вы можете размещать записи данных в массивах или
        типизированных файлах,  но иногда требуется что-то  более  гибкое
        чем массив, который имеет фиксированный размер. Распределяя дина-
        мические записи, так что каждое поле имеет запись, указывающую на
        следующие записи,  вы можете построить список, содержащий столько
        элементов, сколько вам требуется.


                              Что такое указатель?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Указатель - это какой-либо адрес в памяти вашего компьютера.
        Это может быть адрес переменной,  записи данных,  либо  процедуры
        или функции.  Обычно вам не важно, где расположен элемент в памя-
        ти. Вы можете просто ссылаться на него по имени, и Borland Pascal
        знает, где его нужно искать.

             Именно это происходит,  когда вы описываете переменную. Нап-
        ример, если программа включает в себя следующий код, то вы указы-
        ваете компилятору  на необходимость зарезервировать область в па-
        мяти, на которую будете ссылаться по имени SomeNumber.

             var SomeNumber: Integer;

             Вам не нужно беспокоиться о том,  где SomeNumber находится в
        памяти. Именно для этого задается имя.

             Адрес размещения  SomeNumber  в памяти можно найти с помощью
        операции @.  @SomeNumber - это адрес вашей целочисленной перемен-
        ной. Вы можете присвоить этот адрес переменной-указателю, то есть
        переменной, содержащей адрес данных или кода в памяти.


                                  Ссылочный тип
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Чтобы хранить указатели, вам требуется переменная-указатель,
        а для создания переменной-указателя вам необходим  ссылочный  тип
        (или тип "указатель").  Простейшим ссылочным типом является стан-
        дартный тип с именем Pointer. Переменная типа Pointer - это общий
        (нетипизированный) указатель, то есть, просто адрес. Он не содер-
        жит информации о том, на что он указывает.

             Таким образом,  чтобы использовать тот же пример SomeNumber,
        вы можете присвоить его адрес переменной-указателю:

             var
               SomeNumber: Integer;

         B.Pascal 7 & Objects /UG   - 180 -

               SomeAddress: Pointer;
             begin
               SomeNumber := 17;          {присвоить SomeNumber значение}
               SomeAddress := @SomeNumber;  {присвоить SomeAddress адрес}
               SomeAddress := Addr(SomeNumber);  {другой способ получения
                                                  адреса}
             end.

             Нетипизированные указатели  в Паскале не используются,  пос-
        кольку они очень ограничены. Они наиболее полезны, когда указыва-
        емый элемент будет изменяться, так как нетипизированный указатель
        совместим с любым  другим  указателем.  Типизированные  указатели
        значительно более полезны,  и как вы узнаете в следующем разделе,
        они более надежны.


                            Типизированные указатели
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Обычно вы  определяете ссылочные типы,  которые указывают на
        конкретный вид элемента, например, целое значение или запись дан-
        ных.  Как  вы  далее увидите,  можно извлечь преимущество из того
        факта, что указателю известно, на что он указывает. Чтобы опреде-
        лить типизированный указатель, вы можете описать новый тип, опре-
        деленный символом каре (^),  за которым следуют  один  или  более
        идентификаторов. Например, чтобы определить указатель на Integer,
        вы можете сделать следующее:

             type PIneger = ^Integer;

             Теперь вы можете описать переменные типа PInteger.  Если  вы
        не собираетесь часто использовать ссылочный тип, то можете  прос-
        то описать переменные,  как указатели на  уже  определенный  тип.
        Например,  если вы определили PInteger как ^Integer, то следующие
        описания переменной эквивалентны:

             var
               X: ^Integer:
               Y: PInteger;


                            Разыменование указателей
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             До сих пор мы видели,  как можно присваивать указателям зна-
        чения, но если вы не можете получить значения обратно,  польза от
        этого невелика.  Разыменовав типизированный указатель,  вы можете
        интерпретировать так,  как если бы это была переменная  типа,  на
        которую  он  указывает.  Чтобы разыменовать указатель,  поместите
        символ каре (^) после идентификатора указателя.

             Ниже показаны некоторые примеры разыменования указателя:


         B.Pascal 7 & Objects /UG   - 181 -

             type PInteger = ^Integer;

             var
               SomeNumber: Integer;           { присвоить SomeNumber 17 }
               SomeAddress := @SomeNumber;     { SomeAddress указывает на
                                                 SomeNumber }
               Writeln(SomeNumber);                     { напечатать 17 }
               Writeln(SomeAddress); { не допускается; указатели печатать
                                       нельзя }
               Writeln(SomeAddress^);                   { напечатать 17 }
               AnotherAddress := SomeAddress;        { также указывает на
                                                       SomeNumber }
               AnotehrAddress^ := 99;   { новое значение для SomeNumber }
               Writeln(SomeNumber);                     { напечатать 99 }
             end.

             Пример 8.1 Простые примеры разыменования указателей.

             Наиболее важными строками в Примере 8.1 являются следующие:

               AnotherAddress := SomeAddress;        { также указывает на
                                                       SomeNumber }
               AnotehrAddress^ := 99;   { новое значение для SomeNumber }

             Если вы поймете разницу между этими  двумя  операторами,  то
        поймете основные моменты в использовании указателей.  Первый опе-
        ратор присваивает адрес переменной  AnotherAddress;  он  сообщает
        ей, куда нужно указывать.  Второй оператор присваивает новое зна-
        чение элементу,  на который указывает AnotherAddress. На Рис. 8.1
        графически показано, как изменяется переменная.

                      ЪДДДДДДДДДДїЪДДДДДДДДДДДїЪДДДДДДДДДДДїЪДДДДДДДДДДДї
        SomeNumber    і    17    іі    17     іі    17     іі    99     і
                      ГДДДДДДДДДДґГДДДДДДДДДДДґГДДДДДДДДДДДґГДДДДДДДДДДДґ
                      і    не    іі           іі           іі           і
        SomeAddress   іопределеноіі@SomeNumberіі@SomeNumberіі@SomeNumberі
                      ГДДДДДДДДДДґГДДДДДДДДДДДґГДДДДДДДДДДДґГДДДДДДДДДДДґ
                      і    не    іі    не     іі           іі           і
        AnotherAddressіопределеноііопределено іі@SomeNumberіі@SomeNumberі
                      АДДДДДДДДДДЩАДДДДДДДДДДДЩАДДДДДДДДДДДЩАДДДДДДДДДДДЩ
                           ^            ^            ^            ^
                 SomeNumber := 17;      і            і            і
                                  SomeAddress :=     і            і
                                    @SomeNumber;     і            і
                                               AnotherAddress     і
                                                := SomeAddress:   і
                                                          AnotherAddress^
                                                             := 99;



         B.Pascal 7 & Objects /UG   - 182 -

                           Как использовать указатели?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Теперь вы получили достаточно хорошее представление о том, в
        каких ситуациях  вы можете использовать указатели,  и можно расс-
        мотреть их фактическое применение.  В данном разделе охватываются
        следующие темы:

             * Распределение динамических переменных.

             * Освобождение  выделенной для динамических переменных памя-
               ти.

             * Распределение и освобождение выделенных объемов памяти.

             * Проверка доступного в динамически  распределяемой  области
               пространства.

             Borland Pascal  предусматривает две пары процедур  для выде-
        ления и освобождения памяти,  распределяемой для динамических пе-
        ременных. Чаще всего используются процедуры New и Dispose,  кото-
        рые отвечают большинству потребностей. Процедуры GetMem и FreeMem
        выполняют те же функции, но на более низком уровне.


                  Выделение памяти для динамических переменных
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Одним из наиболее важных моментов  использования  указателей
        является распределение   динамических  переменных  в  динамически
        распределяемой области памяти. Borland Pascal предусматривает два
        способа выделения для указателя памяти: процедура New и процедура
        GetMem.

                         Использование New как процедуры

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

             var
               IntPointer: ^Integer;
               StringPointer: ^String;

             begin
               New(IntPointer);        { выделяет в динамически распреде-
                                         ляемой области два байта }
               New(StringPointer);     { выделяет в динамически распреде-
                 .                       ляемой области 256 байт }
                 .
                 .
             end.

         B.Pascal 7 & Objects /UG   - 183 -


             Пример 8.2 Распределение динамической переменной  с  помощью
        процедуры New.

             После вызова процедуры New переменная-указатель указывает на
        память, выделенную в динамически распределяемой памяти.  В данном
        примере IntPointer указывает на двухбайтовую область,  выделенную
        процедурой New,  а IntPointer^ - это допустимая целочисленная пе-
        ременная (хотя  это  целочисленное  значение  еще не определено).
        Аналогично, StringPointer  указывает  на  выделенный  для  строки
        256-байтовый блок, а его разыменование дает доступную для исполь-
        зования строковую переменную.

                          Использование New как функции

             Кроме выделения памяти для конкретной динамической  перемен-
        ной вы  можете использовать New как функцию,  возвращающую указа-
        тель конкретного типа. Например, если PInteger - это тип, опреде-
        ленный как ^Integer, а IntPopinter имеет тип PInteger, то следую-
        щие два оператора эквивалентны:

             New(IntPointer);
             IntPointer := New(PInteger);

             Это особенно  полезно  в случаях,  когда может потребоваться
        присваивать переменной-указателю элементы различных типов. Иногда
        желательно  распределять  динамическую переменную,  не присваивая
        явно указатель конкретной переменной. Вероятно, вы можете сделать
        это только создав для процедуры и функции параметр:

             SomeProcedure(New(PointerType));

             В этом случае SomeProcedure будет добавлять передаваемый па-
        раметр к некоторому списку. В противном случае распределяемая па-
        мять будет  потеряна.  Библиотеки  Borland Turbo Vision и Borland
        Pascal широко используют этот метод для присваивания динамических
        объектов спискам.

         B.Pascal 7 & Objects /UG   - 184 -


                          Использование New с объектами

             Когда вы используете New как функцию или процедуру для выде-
        ления динамического объекта,  то можете  добавить  необязательный
        второй параметр,  который  задает  применяемый  для инициализации
        объекта конструктор. В Примере 8.3 первое обращение к New распре-
        деляет пространство  для объекта,  но не инициализирует этот объ-
        ект. Второй вызов выделяет память и вызывает для задания  объекта
        конструктор Init.

             type
               PMyObject = ^TMyObject;
               TMyObject = object
                  constructor Init;
               end;

             var
               MyObject, YourObject: PMyObject;
             begin
               New(MyObject);          { объект не инициализируется }
               New(YourObject, Init);  { вызов Init для инициализации
                                         объекта }

             end.

             Пример 8.3 Создание динамических объектов.

                   Примечание: Об объектах и их конструкторах рассказыва-
              ется в Главе 9 "Объектно-ориентированное программирование".



         B.Pascal 7 & Objects /UG   - 185 -

                              Освобождение памяти,
                     выделенной для динамических переменных
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Память, распределенная  для переменных с помощью New,  после
        завершения работы с ними должна освобождаться.  Это позволит  ис-
        пользовать динамически  распределяемую память для других перемен-
        ных. Чтобы освободить память,  выделенную для динамической  пере-
        менной, вы  должны использовать процедуру Dispose.  В Примере 8.2
        вы можете добавить следующее:

             Dispose(StringPointer);
             Dispose(IntPointer);

             Нужно помнить,  что если вы распределяете динамические пере-
        менные с помощью New,  то освобождать выделенную для  них  память
        после завершения  работы  с  этими  переменными  нужно  с помощью
        Dispose.


                           Процедуры GetMem и FreeMem
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Иногда нежелательно  выделять  память тем способом,  как это
        делает New.  Вам может потребоваться выделить больше  или  меньше
        памяти, чем это делает New по умолчанию,  либо до начала выполне-
        ния вы можете просто не знать, сколько памяти вам нужно использо-
        вать. Borland Pascal выполняет такое распределение с помощью про-
        цедуры GetMem.

             Процедура GetMem воспринимает два параметра: переменную-ука-
        затель, для которой вы хотите распределить память,  и число расп-
        ределяемых байт.

                    Динамическое выделение памяти для строки

             Пусть, например,  у вас есть прикладная  программа,  которая
        считывает 1000  строк из файла и записывает их в динамическую па-
        мять. Вы не знаете, насколько длинной будет каждая из этих строк,
        поэтому вам  потребуется  описать  строковый  тип такого размера,
        который будет соответствовать максимальной возможной строке. Если
        предположить, что  не  все строки имеют максимальную длину,  то у
        вас будет бесполезно использоваться память.

             Чтобы решить эту проблему, вы можете считать каждую строку в
        буфер, затем выделить столько памяти,  сколько требуется для фак-
        тических данных в строке. Пример этого показан ниже:

             type PString = ^String;

             var
               ReadBuffer: String;
               LinewRead: array[1..1000] of PString;

         B.Pascal 7 & Objects /UG   - 186 -

               TheFile: Text;
               LineNumber: Integer;

             begin
               Assign(TheFile, 'FOO.TXT');
               Reset(TheFile);
               for LineNumber := 1 to 1000 do
               begin
                 Readln(ReadBuffer);
                 GetMem(LinesRead[LineNumber], Length(ReadBuffer) + 1);
                 LinesRead[LineNumber]^ := ReadBuffer;
               end;
             end.

             Пример. 8.4 Динамическое распределение памяти для строки.

             Вместо выделения для строк 256К (256 символов на строку 1000
        раз) вы выделили 4К (4 байта на указатель 1000 раз),  плюс объем,
        фактически занимаемый текстом.

                         Освобождение выделенной памяти

             Аналогично тому,  как требуется освобождать память, выделен-
        ную с помощью New, вам нужно освобождать память, распределенную с
        помощью процедуры  GetMem.  Это можно сделать с помощью процедуры
        FreeMem. Аналогично тому, как каждому вызову New должен соответс-
        твовать парный  вызов  Dispose,  каждому  вызову процедуры GetMem
        должен соответствовать вызов FreeMem.

             Как и GetMem,  процедура FreeMem воспринимает два параметра:
        освобождаемую переменную  и  объем  освобождаемой памяти.  Важно,
        чтобы объем освобождаемой памяти точно совпадал с  объемом  выде-
        ленной памяти.  New  и  Dispose,  основываясь  на типе указателя,
        всегда знают,  сколько байт нужно выделять или освобождать.  Но в
        случае GetMem и FreeMem объем выделяемой памяти находится всецело
        под вашим контролем.

             Если вы освободите меньше байт, чем было выделено, то остав-
        шиеся байты теряются (происходит "утечка" динамически распределя-
        емой памяти). Если вы освободите большее число байт, чем было вы-
        делено, то  можете  освободить память,  распределенную для другой
        переменной, что может привести к порче данных. В защищенном режи-
        ме освобождение большего объема памяти,  чем было выделено, вызо-
        вет ошибку по нарушению защиты (GP).

             Предположим, например,  что вы собираетесь  выделить  память
        для одной или более записей данных типа TCheck:

             type
               PCheck = ^ TCheck;
               TCheck = record
                   Amount: Real;
                   Mounth: 1..12;

         B.Pascal 7 & Objects /UG   - 187 -

                   Day: 1..31;
                   Year: 1990..2000;
                   Payee: string[39];
             end.

             Пример 8.5 Простой тип записи.

             Каждая запись типа TCheck занимает 50 байт,  поэтому, если у
        вас есть переменная ThisCheck типа PCheck, вы можете распределить
        динамическую запись следующим образом:

             GetMem(ThisGheck, 50);

        а позднее освободить ее с помощью вызова:

             FreeMem(ThisCheck, 50);

                Использование с процедурой GetMem функции SizeOf

             Однако убедиться, что вы каждый раз выделяете и освобождаете
        один и тот же объем памяти,  недостаточно.  Вы должны  обеспечить
        распределение правильного объема памяти. Предположим, вы изменили
        определение TCheck. Например, если вы переопределили TCheck.Payee
        как 50-символьную строку вместо 39-символьной,  то не сможете по-
        лучить и освобождать достаточно памяти.  Надежнее всего использо-
        вать в программе функцию SizeOf, например:

             GetMem(ThisCheck, SizeOf(TCheck));
                 .
                 .
                 .

             FreeMem(ThisCheck, SizeOf(TCheck));

             Это не только обеспечивает,  что вы выделяете и освобождаете
        один и  тот же объем,  но гарантирует,  что при изменении размера
        типа ваша программа все равно будет выделять нужную память.



         B.Pascal 7 & Objects /UG   - 188 -

                            Проверка объема доступной
                        динамически распределяемой памяти
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В Borland Pascal определены две функции, возвращающие важную
        информацию о динамически распределяемой области памяти:  MemAvail
        и MaxAvail.

             Функция MemAvail возвращает общее число байт,  доступных для
        распределения в  динамической  памяти.  Перед выделением большого
        объема в динамически распределяемой памяти полезно убедиться, что
        такой объем памяти доступен.

             Функция MaxAvail  возвращает  размер  наибольшего доступного
        блока непрерывной памяти в  динамически  распределяемой  области.
        Первоначально при запуске программы MaxAvail равно MemAvail, пос-
        кольку вся динамически  распределяемая  область  памяти  является
        доступной и  непрерывной.  После  распределения нескольких блоков
        памяти пространство в динамически распределяемой  области  скорее
        всего станет фрагментированным.  Это означает,  что между частями
        свободного пространства  имеются  распределенные  блоки.  Функция
        MaxAvail возвращает размер наибольшего свободного блока.

             Подробнее о  том,  как Borland Pascal работает с динамически
        распределяемой областью памяти, рассказывается Главе 21 ("Вопросы
        использования памяти") "Руководства по языку".


                     Общие проблемы использования указателей
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Указатели позволяют вам делать в  Паскале  некоторые  важные
        вещи, но  есть  пара  моментов,  которые при работе с указателями
        нужно отслеживать.  При использовании указателей допускаются сле-
        дующие общие ошибки:

             - разыменование неинициализированных указателей;
             - потери динамически распределяемой памяти ("утечки").


                  Разыменование неинициализированных указателей
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

             Перед использованием указателей им всегда нужно  присваивать
        значения. Если  вы  разыменовываете  указатель,  которому  еще не
        присвоено значение,  то считанные из него данные могут  представ-

         B.Pascal 7 & Objects /UG   - 189 -

        лять собой  случайные биты,  а присваивание значения указываемому
        элементу может затереть другие данные,  вашу программу  или  даже
        операционную систему.  Это звучит несколько пугающе, но при опре-
        деленной дисциплине такие вещи легко отслеживаются.

                         Использование пустого указателя

             Чтобы избежать разыменования указателей, которые не указыва-
        ют на что-либо значащее,  нужен некоторый способ информирования о
        том, что указатель недопустим. В Паскале предусмотрено зарезерви-
        рованное слово nil, которое вы можете использовать в качестве со-
        держательного значения указателей,  которые в данный момент ни на
        что не указывают.  Указатель nil является допустимым, но ни с чем
        не связанным. Перед разыменованием указателя вы должны убедиться,
        что он отличен от nil (не пуст).

             Предположим, например,  что у вас есть функция, возвращающая
        указатель на некоторый элемент в памяти.  Вы можете указать,  что
        такая функция не может найти элемент, возвращая значение nil.

             var ItemPointer: Pointer;

             function FindIten: Pointer;
             begin
               .
               .
               .
                   { найти элемент,  возвращая указатель на него или nil,
                     если элемент не найден }

             end;

             begin
               ItemPointer := nil;         { начнем в предположении nil }
               ItemPointer := FindItem;               { вызвать функцию }
               if ItemPointer <> nil then ... { для надежности разымено-
                                                вания ItemPointer }
             end.


                    Потери динамически распределяемой памяти
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При использовании динамически распределяемых переменных час-
        то возникает общая проблема,  называемая утечкой динамической па-
        мяти. Утечка памяти - это ситуация, когда пространство выделяется
        в динамически распределяемой памяти и затем  теряется  -  по  ка-
        ким-то причинам ваш указатель не указывает больше на распределен-
        ную область, так что вы не можете освободить пространство.

             Общей причиной утечек памяти является переприсваивание дина-
        мических переменных без освобождения  предыдущих. Простейшим слу-
        чаем является следующий:

         B.Pascal 7 & Objects /UG   - 190 -


             var IntPointer: ^Integer;

             begin
                New(IntPointer);
                New(IntPointer);
             end.

             Пример 8.6 Простая утечка памяти.

             При первом  вызове  New  в динамически распределяемой памяти
        выделяется 8 байт, и на них устанавливается указатель IntPointer.
        Второй вызов New выделяет другие 8 байт,  и IntPointer устанавли-
        вается на них. Теперь у вас нет указателя, ссылающегося на первые
        8 байт, поэтому вы не можете их освободить. В программе эти байты
        будут потеряны.

             Естественно, утечка памяти может быть  не  такой  очевидной,
        как в Примере 8.6. Выделение памяти почти никогда не происходит в
        последовательных операторах,  но может  выполняться  в  отдельных
        процедурах или далеко отстоящих друг от друга частях программы. В
        любом случае лучший способ отслеживания динамических переменных -
        это установка их в nil при освобождении.  Тогда при попытке расп-
        ределить их снова вы можете убедиться что они имеют значение nil:

             var IntPointer: ^Integer;

             begin
                New(IntPointer);
                  .
                  .
                  .
                Dispose(IntPointer);
                IntPointer := nil;
                  .
                  .
                  .
                if IntPointer = nil then New(IntPointer);
             end.


                          Управление связанным списком
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Предположим, вы хотите написать программу для ведения  своих
        личных счетов.  Вы  можете хранить все данные о счетах в записях,
        таких как запись типа TCheck,  определенная в Примере 8.5. Но при
        написании программы трудно предположить, с каким количеством сче-
        тов вам придется иметь дело. Одно из решений здесь состоит в соз-
        дании большого  массива записей счетов,  но это приведет к лишним
        затратам памяти. Более элегантное и гибкое решение состоит в рас-
        ширении определения записи и включении в нее указателя на следую-
        щую запись списка,  что приведет к образованию связанного списка,

         B.Pascal 7 & Objects /UG   - 191 -

        показанного ниже:

             type
               PCheck = ^TCheck;
               TCheck = record
                  Amount: Real;
                  Month: 1..12;
                  Day: 1..31;
                  Year: 1990..2000;
                  Payee: string[39];
                  Next: PCheck;         { указывает на следующую запись }
             end.

             Пример 8.7 Записи в связанном списке.

             Теперь вы можете считать каждую запись счета из файла и  вы-
        делить для нее память. Если запись находится в конце списка, поле
        Next следует сделать равным nil. В вашей программе требуется отс-
        леживать  только два указателя:  первый счет в списке и "текущий"
        счет.



         B.Pascal 7 & Objects /UG   - 192 -

                               Построение списка
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Ниже приведена  процедура,  которая  строит связанный список
        записей, считывая их из файла. Здесь подразумевается, что вы отк-
        рыли файл записей TCheck и именем CheckFile,  который содержит по
        крайней мере одну запись.

             var ListChecks, CurrentCheck: PCheck;

             procedure ReadChecks;
             begin
                New(ListOfChecks);  { выделить память для первой записи }
                Read(CheckFile, ListOfChecks^); { считать первую запись }
                CurrentCheck := ListOfChecks;   { сделать первую запись
                                                  текущей }
                while not Eof(CheckFile do
                begin
                  New(CurrentCheck^.Next);       { выделить память для
                                                   следующей записи }
                  Read(CheckFile, CurrentCheck^.Next^); { считать
                                                   следующую запись }
                  CurrentCheck := CurrentCheck^.Next; { сделать следующую
                                                   запись текущей }
                end;
                CurrentCheck^.Next := nil;    { после последней считанной
                                                записи следующей нет }
             end.

             Пример 8.8 Построение связанного списка.


                              Перемещение по списку
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Когда у вас есть список,  вы можете легко выполнять поиск  в
        нем конкретной  записи.  В Примере 8.9 показана функция,  которая
        находит первый счет с конкретной суммой и возвращает указатель на
        него.

             function FindCheckByAmount(AnAmount: Real): PCheck;
             var Check: PCheck;
             begin
               TempCheck := ListOfChecks;  { указывает на первую запись }
               while (Check^.Amount <> AnAmount) and
                                     (Check^.Next <> nil) do
                  Check := Check^.Next;
               if Check^.Amount = AnAmount then
                  FindCheckByAmount := Check    { возвращает указатель на
                                                  найденную запись }
               else FindCheckByAmount := nil;   { или nil, если таких
                                                  записей нет }
             end;

         B.Pascal 7 & Objects /UG   - 193 -


             Рис. 8.9 Поиск в связанном списке.


                    Освобождение выделенной для списка памяти
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

             procedure DisposeChecks;
             var Temp: PCheck;
             begin
               CurrentCheck := ListOfChecks;        { указывает на первую
                                                      запись }
               while CurrentCheck <> nil do
               begin
                 Temp := CurrentCheck^.Next  { сохранить указатель Next }
                 Dispose(CurrentCheck);   { освобождение текущей записи }
                 CurrentCheck := Temp;    { сделать сохраненную запись
                                            текущей }
               end;
             end;

             Пример 8.10 Освобождение памяти для связанного списка.




         B.Pascal 7 & Objects /UG   - 194 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
               Глава 9. Объектно-ориентированное программирование
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Объектно-ориентированное программирование представляет собой
        метод программирования, который весьма близко напоминает наше по-
        ведение.  Оно является естественной эволюцией более ранних новов-
        ведений в разработке языков программирования. Объектно-ориентиро-
        ванное программирование является более структурным,  чем все пре-
        дыдущие разработки, касающиеся структурного программирования. Оно
        также является более модульным и более абстрактным,  чем предыду-
        щие  попытки абстрагирования данных и переноса деталей программи-
        рования  на  внутренний  уровень.  Объектно-ориентированный  язык
        программирования характеризуется тремя основными свойствами:

             1. Инкапсуляция.  Комбинирование  записей  с  процедурами  и
                функциями, манипулирующими полями этих записей, формирует
                новый тип данных - объект.

             2. Наследование.  Определение  объекта  и его дальнейшее ис-
                пользование для построения иерархии порожденных  объектов
                с возможностью для каждого порожденного объекта,  относя-
                щегося к иерархии, доступа к коду и данным всех порождаю-
                щих объектов.

             3. Полиморфизм.  Присваивание действию одного имени, которое
                затем совместно используется вниз  и  вверх  по  иерархии
                объектов,  причем  каждый  объект  иерархии выполняет это
                действие способом, именно ему подходящим.

             Языковые расширения Borland  Pascal  предоставляют  вам  все
        средства   объектно-ориентированного   программирования:  большую
        структурированность и модульность, большую абстрактность и встро-
        енную  непосредственно  в язык возможность повторного использова-
        ния.  Все эти характеристики соответствуют коду, который является
        более структурированным, более гибким и более легким для обслужи-
        вания.

              Объектно-ориентированное программирование порой требует  от
        вас оставить в стороне характерные представления о программирова-
        нии, которые долгие годы рассматривались, как стандартные. Однако
        после того,  как это сделано, объектно-ориентированное программи-
        рование становится простым,  наглядным и  превосходным  средством
        разрешения многих проблем, которые доставляют неприятности тради-
        ционному программному обеспечению.

              Дадим хороший совет тому, кто уже имел дело с объектно-ори-
        ентированным программированием на других языках.  Оставьте в сто-
        роне ваши прежние впечатления об  объектно-ориентированном  прог-
        раммировании  и  изучайте объектно-ориентированные характеристики
        Borland Pascal в их собственных терминах.  Объектно-ориентирован-
        ное  программирование не является единственным путем,  оно предс-
        тавляет  собой  континуум  идей.  По  своей  объектной  философии
        Borland  Pascal больше напоминает С++,  чем Smalltalk.  Smalltalk

         B.Pascal 7 & Objects /UG   - 195 -

        является интерпретатором, тогда как Borland Pascal с самого нача-
        ла  был чистым компилятором реального кода.  Компилятор реального
        кода выполняет работу иначе (и значительно быстрее),  чем интерп-
        ретатор. Borland Pascal был сконструирован, как инструмент разра-
        ботки продуктов, а не как инструмент исследования.

             Для тех,  кто не имеет об этом ни малейшего понятия,  мы  не
        будем  подробно  объяснять,  что  такое  объектно-ориентированное
        программирование.  В этот вопрос и так уже внесено достаточно пу-
        таницы. Поэтому забудьте о том, что люди говорили вам об объектно
        -ориентированное программировании. Наилучший способ (и, фактичес-
        ки,  единственный) изучить что-либо полезное об объектно-ориенти-
        рованное программировании - это сделать то, что вы уже почти сде-
        лали: сесть и попытаться узнать все самостоятельно.

                                     Объекты
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Посмотрите вокруг себя... и вы обнаружите яблоко, которое вы
        купили  к  завтраку.  Допустим,  что вы намерены описать яблоко в
        терминах программирования.  Первое, что вы, возможно, попытаетесь
        сделать,  так это рассмотреть его по частям; пусть S представляет
        площадь кожуры, J представляет содержащийся в яблоке объем жидко-
        го сока, F представляет вес фрукта внутри кожуры, D - число семе-
        чек...

             Не думайте таким образом.  Думайте как живописец.  Вы видите
        яблоко и вы рисуете яблоко. Изображение яблока не есть само ябло-
        ко. Оно является символом на плоской поверхности. Но оно не может
        быть абстрагировано в несколько чисел, каждое из которых располо-
        жено отдельно и независимо где-нибудь в сегменте данных. Его ком-
        поненты остаются вместе в их существенной взаимосвязи друг с дру-
        гом.

             Объекты моделируют характеристики и поведение элементов  ми-
        ра,  в  котором мы живем.  Они являются окончательной абстракцией
        данных.

                   Примечание: Объекты содержат вместе все свои  характе-
              ристики и особенности поведения.

             Яблоко можно  разрезать  на  части,  но как только оно будет
        разрезано, оно больше не будет яблоком. Отношения частей к целому
        и взаимоотношения между частями становятся понятнее тогда,  когда
        все содержится вместе в одной упаковке. Это называется инкапсуля-
        цией  и  является очень важным понятием.  Немного позже мы к нему
        вернемся.

             Не менее важным является и тот факт,  что объекты могут нас-
        ледовать характеристики и поведение того,  что мы называем порож-
        дающие,  родительские объекты (или предки).  Здесь происходит ка-
        чественный скачок:   наследование,   возможно,  является  сегодня
        единственным самым крупным различием между обычным программирова-

         B.Pascal 7 & Objects /UG   - 196 -

        нием  на  Паскале  и объектно-ориентированным программированием в
        Borland Pascal.


                                  Наследование
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Целью науки  является  описание взаимодействий во вселенной.
        Большая часть работы в науке при продвижении к  цели  заключается
        просто  в  построении  генеалогических деревьев.  Когда энтомолог
        возвращается с Амазонки с неизвестным ранее насекомым в банке, то
        главной его заботой является определение,  где это насекомое рас-
        полагается в гигантской схеме,  на которой собраны научные назва-
        ния всех других насекомых.  Аналогичные схемы составлены для рас-
        тений,  рыб,  млекопитающих, рептилий, химических элементов, эле-
        ментарных частиц и космических галактик. Все они выглядят как ге-
        неалогические деревья:  с единой всеобщей категорией в вершине  и
        все  увеличивающимися  число  категорий,  которые лежат ниже этой
        единственной категории,  и разворачиваются веером по мере прибли-
        жения к границам разнообразия.

             Внутри категории "насекомые" имеется два подразделения:  на-
        секомые с видимыми крыльями и насекомые со  спрятанными  крыльями
        или вообще бескрылые.  Среди крылатых имеется большее число кате-
        горий;  мотыльки,  бабочки, мухи и т.д. Каждая категория содержит
        большое число подкатегорий, а ниже этих подкатегорий может иметь-
        ся даже еще большее число подкатегорий (см. Рис. 9.1).

             Этот процесс классификации называется таксономией. Это прек-
        расная начальная метафора для механизма  наследования  в  объект-
        но-ориентированном программировании.

             Вопросами, которые задает ученый при  попытке  классификации
        некоторого животного или объекта,  являются следующие. В чем этот
        объект похож на другие объекты из общего класса? В чем он отлича-
        ется от других объектов?  Каждый конкретный класс имеет множество
        свойств поведения и характеристик,  определяющих этот класс. Уче-
        ный начинает с вершины конкретного генеалогического дерева и про-
        ходит по дочерним областям,  задавая себе эти вопросы.  Наивысший
        уровень самый общий,  а вопросы самые простые, например, крылатое
        или бескрылое? Каждый последующий уровень является более специфи-
        ческим, чем предыдущий, и менее общим. В конце концов, ученый до-
        бирается до точки подсчета волосков на  третьем  сегменте  задней
        ноги насекомого - что воистину специфично.  (И скорее всего о нем
        следует сказать, что он не энтомолог.)


         B.Pascal 7 & Objects /UG   - 197 -

                                             ЪДДДДДДДДДДДї
                                             і насекомые і
                                             АДВДДДДДДДВДЩ
                               ЪДДДДДДДДДДДДДДДЩ       і
                               і                       і
                          ЪДДДДБДДДДДї             ЪДДДБДДДДДДДї
                          і крылатые і             і бескрылые і
                          АВДДДВДДДВДЩ             АДДДДДДДДДДДЩ
                  ЪДДДДДДДДЩ   і   АДДДДДДДї
              ЪДДДБДДДДДДїЪДДДДБДДДДїЪДДДДДБДДДДї
              і мотыльки іі бабочки іі   мухи   і
              АДДДДДДДДДДЩАДДДДДДДДДЩАДДДДДДДДДДЩ

             Рис. 9.1 Таксономическая схема насекомых.

             Важно помнить то,  что если характеристика однажды определе-
        на, то все категории, расположенные ниже данного определения, со-
        держат эту характеристику. Таким образом, как только вы определи-
        ли насекомое,  как члена отряда diptera (мухи), то вам не следует
        отмечать  снова,  что у мух имеется одна пара крыльев.  Разновид-
        ность насекомых, которую мы зовем мухи, наследует эту характерис-
        тику от своего отряда.

             Как вы  поняли,  объектно-ориентированное программирование в
        большой степени является  процессом  построения  генеалогического
        дерева для структур данных. Одной из важных особенностей, которые
        объектно-ориентированное программирование добавляет  традиционным
        языкам типа Паскаль,  является механизм,  с помощью которого типы
        данных могут наследовать характеристики более простых,  более об-
        щих типов. Этим механизмом является наследование.



         B.Pascal 7 & Objects /UG   - 198 -

                           Объекты: наследующие записи
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В терминах Паскаля, объект во многом схож с записью, которая
        является оболочкой для объединения нескольких связанных элементов
        под одним именем.  Предположим,  вы хотите разработать  программу
        вывода платежной  ведомости,  печатающую  отчет  и  показывающую,
        сколько нужно выплатить каждому служащему за рабочий день. Запись
        можно организовать следующим образом:

             TEmployee = record
                 Name: string[25];
                 Title: string[25];
                 Rate: Real;
             end;

                   Примечание: По  соглашению все типы начинаются с буквы
              T. Вы также можете следовать этому правилу.

             Здесь TEmployee является типом записи,  т.е.  шаблоном,  ис-
        пользуемым компилятором для создания переменных типа запись.  Пе-
        ременная типа TEmployee является экземпляром этого  типа.  Термин
        "экземпляр" будет вам нередко встречаться в Паскале. Он постоянно
        применяется теми, кто использует методы объектно-ориентированного
        программирования, поэтому будет хорошо, если вы начнете мыслить в
        терминах типов и экземпляров этих типов.

             Вы можете оперировать с типом TEmployee  двояко.  Вы  можете
        рассматривать поля Name,  Title и Rate по отдельности,  а когда о
        полях,  как о работающих одновременно  для  описания  конкретного
        рабочего, вы можете рассматривать их совокупность, как TEmployee.

             Предположим, что  на  вашей  фирме  работает несколько типов
        рабочих.  Одни из них имеют почасовую  оплату,  другие  -  оклад,
        третьи - тарифную ставку и так далее.  Ваша программа должна учи-
        тывать все эти типы. Вы можете создать другой тип записи для каж-
        дого типа рабочего. Например, для получения данных о том, сколько
        должен получить рабочий с почасовой оплатой, нужно знать, сколько
        часов он отработал. Можно построить запись THourly вида:

             THourly = record
             Name: string[25];
             Title: string[25];
             Rate: Real;
             end;

             Вы можете  также  оказаться несколько догадливее и сохранить
        тип TEmployee путем создания  поля  типа  TEmployee  внутри  типа
        THourly:

             THourly = record
             Worker: TEmployee;
             Time: integer;

         B.Pascal 7 & Objects /UG   - 199 -

             end;

             Такая конструкция работает,  и программисты,  работающие  на
        Паскале, делают это постоянно.  Единственное,  чего этот метод не
        делает,  так это то, что он заставляет вас думать о том, с чем вы
        работаете  в вашем программном обеспечении.  Вам следует задаться
        вопросом типа;  "Чем почасовик отличается от дpугих pабочих?" От-
        вет  прост:  почасовик - это pабочий,  котоpому платится за коли-
        чество часов pаботы.  Продумайте снова первую часть  предложения;
        почасовик - это pабочий...

             Теперь вы поняли!

             Запись для  pаботника-почасовика hourly должна иметь все за-
        писи, котоpые имеются в записи employee. Tип THourly является до-
        черним типом для типа TEmployee.  THourly наследует все, что при-
        надлежит TEmployee,  и кроме того имеет кое-что новое, что делает
        THourly уникальным.

             Этот процесс, с помощью которого один тип наследует характе-
        ристики другого типа, называется наследованием. Наследник называ-
        ется порожденным (дочерним) типом,  а тип, которому наследует до-
        черний тип, называется порождающим (родительским) типом.

             Ранее известные типы записей Паскаля не  могут  наследовать.
        Однако Borland Pascal расширяет язык Паскаль для поддержки насле-
        дования. Одним из этих расширений является новая категория струк-
        туры данных,  связанная с записями,  но значительно более мощная.
        Типы данных в этой новой категории определяются с помощью  нового
        зарезервированного слова object. Тип объекта может быть определен
        как полный,  самостоятельный тип в манере описания записей Паска-
        ля, но  он  может  определяться  и как потомок существующего типа
        объекта путем помещения порождающего (родительского) типа в скоб-
        ки после зарезервированного слова object.

             В приводимом здесь примере платежной ведомости два связанных
        типа объектов могли бы определяться следующим образом:

             type
             TEmployee = object
               Name: string[25];
               Title: string[25];
               Rate : Real;
             end;

             THourly = object(TEmployee)
                Time : Integer;
             end;

                   Примечание: Обратите внимание, что здесь использование
              скобок означает наследование.

             Здесь TEmployee является родительским типом, а THourly - до-

         B.Pascal 7 & Objects /UG   - 200 -

        черним  типом.  Как  вы увидите чуть позднее,  этот процесс может
        продолжаться неопределенно долго.  Вы можете определить  дочерний
        тип  THourly,  дочерний  к типу THourly тип и т.д.  Большая часть
        конструирования объектно-ориентированных прикладных программ сос-
        тоит в построении такой иерархии объектов,  являющейся отражением
        генеалогического дерева объектов в приложениях.

             Все возможные типы,  наследующие тип  TEmployee,  называются
        дочерними  типами типа TEmployee,  тогда как THourly является не-
        посредственным дочерним типом типа TEmployee. Наоборот, TEmployee
        является непосредственным родителем типа THourly.  Тип объекта (в
        точности как подкаталог в DOS) может иметь любое число непосредс-
        твенных дочерних типов, но в то же время только одного непосредс-
        твенного родителя.

             Как показали данные определения, объекты тесно связаны с за-
        писями.  Новое  зарезервированное  слово object является наиболее
        очевидным различием,  но как вы увидите позднее,  имеется большое
        число других различий, некоторые из которых довольно тонкие.

             Например, поля Name, Title и Rate в типе TEmployee не указа-
        ны явно в типе THourly, но в любом случае тип THourly содержит их
        благодаря  свойству  наследования.  Вы можете говорить о величине
        Name типа THourly в точности так же,  как о  величине  Name  типа
        TEmployee.

                           Экземпляры объектных типов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Экземпляры объектных типов описываются в  точности  так  же,
        как в Паскале описывается любая переменная, либо статическая, ли-
        бо указатель,  ссылающийся на размещенную в  динамической  памяти
        переменную:

             type
               PHourly = ^THourly;
             var
               StatHourly: THourly; { готово }
               DynaHourly: PHourly; { перед использованием память должна
                                      выделяться с помощью New }


                                  Поля объектов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Вы можете обратиться к полю объекта в точности так же, как к
        полю обычной записи,  либо с помощью оператора with,  либо  путем
        уточнения имени с помощью точки. Например:

             AnHourly.Rate := 9.45;

             with AnHourly do
             begin

         B.Pascal 7 & Objects /UG   - 201 -

               Name := 'Sanderson, Arthur';
               Title := 'Word processor';
             end;

                   Примечание: Не  забывайте о том,  что наследуемые поля
              объектов не интерпретируются особым образом только  потому,
              что они являются наследуемыми.

             Именно сейчас вы должны запомнить (в конце концов это придет
        само собой),  что наследуемые поля являются столь же  доступными,
        как если бы они были объявлены внутри типа объекта. Например, да-
        же если Name,  Title и Rate  не  являются  частью  описания  типа
        THourly  (они  наследованы от типа TEmployee),  то вы можете ссы-
        латься на них, словно они описаны в THourly:

              AnHourly.Name := 'Arthur Sanderson';


                    Хорошая и плохая техника программирования
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Даже если  вы  можете  обратиться к полям объекта непосредс-
        твенно, это будет не совсем хорошей идеей. Принципы объектно-ори-
        ентированного программирования требуют,  чтобы поля объектов были
        исключены из исходного кода,  насколько это возможно. Это ограни-
        чение поначалу может показаться спорным и жестким, но оно являет-
        ся только частью огромной картины объектно-ориентированное  прог-
        раммирования,  которую  мы нарисуем в этой главе.  Со временем вы
        увидите смысл,  скрытый в этом новом определении хорошей практики
        программирования, хотя имеются некоторые основания приоткрыть его
        перед тем,  как все придет само. А пока же примите на веру: избе-
        гайте прямого обращения к полям данных.

                   Примечание: Borland  Pascal  позволяет вам делать поля
              объекта и его методы частными.  Подробнее об этом рассказы-
              вается ниже.

             Итак, как же обращаться к полям объекта? Как читать их и как
        присваивать им значения?

                   Примечание: Поля  данных объекта - это то,  что объект
              "знает", а методы объекта - это то, что объект "делает".

             Ответом заключается  в  том,  что при всякой возможности для
        доступа к полям данных должны использоваться методы объекта.  Ме-
        тод является процедурой или функцией,  описанной внутри объекта и
        жестко ограниченной этим объектом.




         B.Pascal 7 & Objects /UG   - 202 -

                                     Методы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Методы являются  одними из наиболее примечательных атрибутов
        объектно-ориентированное  программирования  и  требуют  некоторой
        практики перед использованием.  Вернемся сначала к исходному воп-
        росу о тщетной попытке структурного программирования, связанной с
        инициализацией  структур данных.  Рассмотрим задачу инициализации
        записи со следующим определением:

             TEmployee = object
               Name: string[25];
               Title: string[25];
               Rate: Real;
             end;

             Большинство программистов использовали бы оператор with  для
        присвоения полям Name, Title и Rate начальных значений:

             var
               MyEmployee: Employee;
             with MyEmployee do
             begin
                 Name := 'Sanderson, Arthur';
                 Title :=  'Word processor';
                 Rate := 9.45;
             end;

             Это тоже неплохо, но здесь мы жестко ограничены одной специ-
        фическим экземпляром записи - MyEmployee. Если потребуется иници-
        ализировать более одной записи типа Employee, то вам придется ис-
        пользовать  большее  число  операторов with,  которые выполняют в
        точности те же действия.  Следующим естественным  шагом  является
        создание  инициализирующей  процедуры,  которая обобщает оператор
        with применительно к любому экземпляру типа TEmployee, пересылае-
        мой в качестве параметра:

             procedure InitTEmployee(var Worker: TEmployee; AName,
                                             ATitle: String; ARate: Real);
             begin
               with Worker do
               begin
                 Name := NewName ;
                 Title := NewTitle;
                 Rate := NewRate;
               end;
             end;

             Это будет работать, все в порядке, однако если вы почувству-
        ете,  что при этом тратите больше времени,  чем необходимо, то вы
        почувствуете то же самое, что чувствовал ранний сторонник объект-
        но-ориентированного программирования.


         B.Pascal 7 & Objects /UG   - 203 -

             Это чувство значит,  что, ну, скажем, вы разрабатываете про-
        цедуру InitTEmployee специально для обслуживания типа  TEmployee.
        Тогда почему вы должны помнить,  какой тип записи и какой его эк-
        земпляр обрабатывает InitTEmployee? Должен существовать некоторый
        путь  объединения типа записи и обслуживающего кода в одно единое
        целое.

             Такой путь имеется и называется методом.  Метод - это проце-
        дура  или функция,  объединенная с данным типом столь тесно,  что
        метод является как бы окруженным невидимым оператором  with,  что
        делает экземпляр данного типа доступными изнутри для метода.  Оп-
        ределение типа включает заголовок метода.  Полное определение ме-
        тода  квалифицируется  в имени типа.  Тип объекта и метод объекта
        являются двумя лицами этой новой разновидности структуры, именуе-
        мой методом.

             type
             TEmployee = object
               Name, Title: string[25];
               Rate: Real;
               procedure Init (NewName, NewTitle: string[25];
                                                          NewRate: Real);
             end;

             procedure TEmployee.Init (NewName, NewTitle: string[25];
                                                          NewRate: Real);
             begin
                 Name := NewName ;   { Поле Name объекта TEmployee }
                 Title := NewTitle;  { Поле Tutle объекта TEmployee }
                 Rate := NewRate;    { Поле Rate объекта TEmployee }
             end;

             Теперь для инициализации экземпляра типа TEmployee вы просто
        вызываете его метод, словно метод является полем записи, что име-
        ет вполне реальный смысл:

             var
               AnEmployee: TEmployee;
               AnEmployee.Init('Sara Adams, Account manager, 15000');
                          {пpосто, не так ли?}


                            Совмещенные код и данные
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Одним из важнейших принципов объектно-ориентированного прог-
        раммирования является то,  что программист  во  время  разработки
        программы должен думать о коде и о данных совместно.  Ни код,  ни
        данные не существуют в вакууме.  Данные управляют потоком кода, а
        код манипулирует образами и значениями данных.

             Если ваши код и данные являются разделенными элементами,  то
        всегда существует опасность вызова правильной процедуры с  невер-

         B.Pascal 7 & Objects /UG   - 204 -

        ными данными или ошибочной процедуры с правильными данными. Забо-
        та о совпадении этих элементов возлагается на программиста, и хо-
        тя строгая типизация Паскаля здесь помогает, самое лучшее, что он
        может сделать - это указать на несоответствие.

             О том, что действительно существует вместе, Паскаль нигде не
        сообщает. Если  это не отмечено комментарием или не то,  о чем вы
        все время помните, то вы играете с судьбой.

             Объект осуществляет синхронизацию кода и данных  путем  сов-
        местного построения их описаний. Реально, чтобы получить значение
        одного из полей объекта, вы вызываете относящийся к этому объекту
        метод,  который возвращает значение нужного поля. Чтобы присвоить
        полю значение, вы вызываете метод, который назначает данному полю
        новое значение.

             Однако, Borland Pascal не вынуждает вас делать это. Как вся-
        кое структурное программирование,  объектно-ориентированное прог-
        раммирование является дисциплиной, которую вы должны навязать се-
        бе,  используя предоставляемые языком  средства.  Borland  Pascal
        позволяет  вам  обращаться  к полям объекта непосредственно извне
        объекта, однако он поощряет вас использовать преимущества объект-
        но-ориентированного программирования и создавать методы для мани-
        пулирования полями объекта внутри самого объекта.  Borland Pascal
        позволяет  задать принудительную инкапсуляцию с помощью использо-
        вания описания private в объявлении объекта.

                   Примечание: Подробнее  о  принудительной  инкапсуляции
              рассказывается ниже в разделе "Секция private".


                               Определение методов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Процесс определения  методов  объектов   напоминает   модули
        Borland Pascal. Внутри объекта метод определяется заголовком про-
        цедуры или функции, действующей как метод:

             type
               TEmployee = object
                 Name, Title: string[25];
                 Rate: Real;
                 procedure Init (AName, ATitle: String; ARate: Real);
                 function GetName : String;
                 function GetTitle : String;
                 function GetRate : Real;
             end;

                   Примечание: Поля данных должны быть описаны перед пер-
              вым описанием метода.

             Как и  описания процедур и функций в интерфейсной секции мо-
        дуля (interface),  описание методов внутри объекта  говорит,  что

         B.Pascal 7 & Objects /UG   - 205 -

        методы делают, но не говорит, как.

             Это определяется вне определения объекта, в отдельном описа-
        нии процедуры или функции.  Если метод полностью определяется вне
        объекта,  то имени метода должно предшествовать имя типа объекта,
        которому принадлежит этот метод, с последующей точкой:

             procedure TEmployee.Init(AName, ATitle: string;ARate: Real);
             begin
               Name := AName;
               Title := ATitle;
               Rate := ARate;
             end;

             function TEmployee.GetName: String;
                GetName := Name;
             end;

             function TEmployee.GetTitle: String;
             begin
                GetTitle := Title;
             end;

             function TEmployee.GetRate: Real;
             begin
                GetRate := Rate;
             end;

             Метод опpеделения  следует  методу  интуитивного  pазделения
        точками  для  указания  поля  записи.  Кpоме  наличия опpеделения
        TEmployee.GetName можно было бы  опpеделить  пpоцедуpу  с  именем
        GetName,  в  имени  котоpой  нет  пpедшествующего  идентификатоpа
        TEmployee. Однако, такая "внешняя" GetName не будет иметь никакой
        связи  с  объектом типа TEmployee и будет только запутывать смысл
        пpогpаммы.


                     Область действия метода и параметр Self
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Заметьте, что ни в одном из предыдущих примеров конструкция:
        with объект do... не встречается в явном виде. Поля данных объек-
        та легко доступны с помощью методов объекта. Хотя в исходном коде
        поля  данных объекта и тела методов разделены,  на самом деле они
        совместно используют одну и ту же область действия.

             Именно поэтому  один  из  методов  TEmployee может содержать
        оператор GetTitle := Title без  какого-либо  квалификатора  перед
        Title.  И именно поэтому Title принадлежит тому объекту,  который
        вызывает метод.  Если объект вызывает метод, то выполняется неяв-
        ный оператор with myself do method,  связывающий объект и его ме-
        тоды в области действия.


         B.Pascal 7 & Objects /UG   - 206 -

             Неявный оператор with выполняется путем передачи  невидимого
        параметра  методу всякий раз,  когда этот метод вызывается.  Этот
        параметр называется Self и в действительности является 32-разряд-
        ным указателем на экземпляр объекта,  осуществляющего вызов мето-
        да.  Относящийся к TEmployee метод GetRate приблизительно эквива-
        лентен следующему:

             function TEmployee.GetRate(var Self: TEmployee): integer;
             begin
               GetRate := Self.Rate;
             end;

                   Примечание: Синтаксически  этот  пример не совсем кор-
              ректен. Он приведен только затем, чтобы дать вам более пол-
              ное  представление  о  специфической связи между объектом и
              его методом.

             Но важно ли вам знать о существовании параметра Self? Обычно
        нет.  Генерируемый Borland Pascal код выполняет все это автомати-
        чески.  Однако в некоторых немногочисленных случаях вы можете за-
        хотеть  проникнуть внутрь метода и использовать параметр Self яв-
        но.

                  Примечание: Явное использование параметра Self допуска-
             ется, но вы должны избегать ситуаций, в которых это требует-
             ся.

             Параметр Self является частью физического  кадра  стека  при
        всех вызовах методов.  Методы,  используемые как внешние на языке
        Ассемблера,  должны учитывать Self при получении доступа к  пара-
        метрам  метода  в стеке.

                   Примечание: Более  подробно  об  использовании методом
              границ стека рассказывается в Главе 22 "Руководства по язы-
              ку".


                Поля данных объекта и формальные параметры метода
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Выводом из того факта, что методы и их объекты разделяют об-
        щую область действия, является то, что формальные параметры мето-
        да не могут быть идентичными любому из полей данных объекта.  Это
        является не каким-то новым ограничением, налагаемым объектно-ори-
        ентированным программированием,  а скорее теми же самыми  старыми
        правилами области действия,  которые Паскаль имел всегда.  Это то
        же самое,  что и запрет для формальных параметров процедуры  быть
        идентичными локальным переменным этой процедуры:

             procedure CrunchIt(Crunchee: MyDataRec,
                                           Crunchby, ErrorCode: integer);
             var
               A, B: char;

         B.Pascal 7 & Objects /UG   - 207 -

               ErrorCode: integer;
             begin
               .
               .
               .

             Локальные переменные  процедуры  и  ее  формальные параметры
        совместно используют общую область действия и  поэтому  не  могут
        быть идентичными.  Вы  получите  сообщение  "Error  4:  Duplicate
        identifier" (Ошибка 4;  Повторение идентификатора), если попытае-
        тесь компилировать что-либо подобное,  та же ошибка возникает при
        попытке присвоить формальному параметру метода имени поля  объек-
        та, которому данный метод принадлежит.

             Обстоятельства несколько отличаются, так как помещение заго-
        ловка процедуры внутрь структуры данных является намеком на  нов-
        шество  в  Турбо  Паскале,  но основные принципы области действия
        Паскаля не изменились.


                        Объекты, экспортируемые модулями
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Имеет смысл определять объекты в модуле посредством описаний
        типа объекта в интерфейсной части модуля, а тела процедур и мето-
        ды объекта - в секции реализации. Для определения объекта в моду-
        ле не требуется никаких специальных соглашений.

                  Примечание: Экспортируемый - означает  "определенный  в
             интерфейсной части модуля".

             Модули могут  иметь свои собственные приватные (частные) оп-
        ределения типов объектов внутри выполняемой секции,  и  эти  типы
        подвержены тем же ограничениям, как и всякие другие типы, опреде-
        ленные в секции реализации.  Типы объектов, определенные в интер-
        фейсной части модуля, могут иметь дочерние типы объектов, опреде-
        ленные в секции реализации модуля.  В том случае,  когда модуль B
        использует модуль A, модуль B также может определять дочерние ти-
        пы любого типа объекта, экспортируемого модулем A.

             Описанные ранее типы объектов и методы  можно  определить  в
        модуле,  как  показано  в программе WORKERS.PAS на дистрибутивном
        диске.  Чтобы использовать типы объектов и методы, определенные в
        модуле Workers, вы можете просто использовать этот модуль в своей
        программе и описать экземпляр типа THourly  в  секции  переменных
        программы:

             program HourPrt;

             uses WinCrt, Workers;

             var
             AnHourly: THourly;

         B.Pascal 7 & Objects /UG   - 208 -

               .
               .
               .

             Для создания и вывода фамилии pабочего-почасовика, его долж-
        ности и pазмеpа выплаты,  пpедставленной пеpеменной AnHourly,  вы
        просто вызываете методы AnHourly, используя следующий синтаксис:

               AnHourlye.Init('Sara Adams', 'Account manager', 1400);
                                     { записывает в экземпляp THourly }
                                     { данные для Саpы Адамс: фамилию, }
                                     { должность и pазмеp выплаты. }
               AnHourly.Show;

                   Примечание: Объектами  могут быть также типизированные
              константы.

             Объекты, будучи очень схожими с  записями,  могут  использо-
        ваться внутри оператора with. В этом случае указание имени объек-
        та, являющегося собственником методов, не является необходимым:

             with AnHourly do
             begin
               Init('Sara Adams', 'Account manager', 1400);
               Show;
             end;

             Как и в случаях с записями, объекты могут передаваться в ка-
        честве  параметра процедуре и (как вы увидите позднее) могут раз-
        мещаться в динамически распределяемой памяти.


                                 Секция private
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В некоторых  случаях у вас могут иметься части описаний объ-
        ектов,  которые экспортировать нежелательно.  Например, вы можете
        предусмотреть объекты для других программистов, которые они могут
        использовать, но не могут непосредственно манипулировать с данны-
        ми объекта.  Чтобы облегчить это,  Borland Pascal позволяет зада-
        вать внутри объектов приватные (закрытые) поля и методы.

             Приватные поля и методы доступны только внутри того  модуля,
        в  котором  описан  объект.  В  предыдущем  примере,  если бы тип
        THourly содержал приватные поля,  то доступ к ним можно  было  бы
        получить только в модуле THourly.  Даже если другие части объекта
        THourly можно было бы экспортировать, (части, описанные, как при-
        ватные, были бы недоступными.

             Приватные поля  и  методы  описываются непосредственно после
        обычных  полей  и  методов,  вслед  за  зарезервированным  словом
        private.  Таким образом,  полный синтаксис описания объекта будет
        следующим:

         B.Pascal 7 & Objects /UG   - 209 -


             type
               NewObject = object(родитель)
               поля;                        { общедоступные }
               методы;                      { общедоступные }
             private
               поля;                        { приватные }
               методы;                      { приватные }
             end;


                   Программирование в "действительном залоге"
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Большая часть из того,  что говорилось об  объектах  до  сих
        пор,  исходит  из удобств и перспектив Borland Pascal,  поскольку
        наиболее вероятно,  что это именно то,  с чего вы начнете. Теперь
        начнутся  изменения,  поскольку  мы  подошли к концепциям объект-
        но-ориентированного программирования с помощью некоторых  принци-
        пов программирования на стандартном Паскале.  Объектно-ориентиро-
        ванное программирование имеет свое собственное отдельное множест-
        во понятий,  частично благодаря началам объектно-ориентированного
        программирования (до некоторой степени  ограниченным)  в  научных
        кругах,  однако  также и потому,  что эта концепция действительно
        является радикально отличной от других.

                   Примечание: Объектно-ориентированные языки однажды ме-
              тафорично назвали "языками актеров".

             Одним, часто забавным, следствием этого явилось то, что объ-
        ектно-ориентированное  программирование  фанатично   "одушевляет"
        свои объекты. Отныне данные для вас не емкости, которые вы можете
        наполнять значениями. С точки зрения нового взгляда на вещи, объ-
        екты  выглядят  как  актеры на подмостках со множеством заученных
        ролей (методов). Если вы (директор) даете им слово, то актеры на-
        чинают декламировать в соответствии со сценарием.

             Было бы  полезно  представить  функцию AnHourly.GetPayAmount
        как,  например,  дающую распоряжение объекту AnHourly  "Вычислить
        размер вашей ежедневной платы".  Центральной концепцией здесь яв-
        ляется объект.  Этот объект обслуживают как список методов, так и
        список полей данных,  содержащихся в объекте. И ни код, ни данные
        не являются здесь "директором".

             Чтобы быть совсем привлекательным, объект не может быть опи-
        сан  как актер на сцене.  Образцу объектно-ориентированного прог-
        раммирования с большим трудом удается  моделировать  составляющие
        проблемы как компоненты,  а не как логические абстракции. Случай-
        ности и закономерности,  наполняющие нашу жизнь (от  тостеров  до
        телефонных звонков по поводу махровых полотенец) все имеют харак-
        теристики (данные) и  линии  поведения  (методы).  Характеристики
        тостера могут включать требуемое напряжение,  число гренок, кото-
        рые он может поджарить одновременно,  установку слабого или силь-

         B.Pascal 7 & Objects /UG   - 210 -

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

             Если мы хотим написать программу имитации кухни, то какой же
        имеется  наилучший способ смоделировать различные приспособления,
        кроме объектов,  с их характеристиками и линиями поведения, зако-
        дированными в поля данных и в методах? Фактически, это уже сдела-
        но:  один из первых объектно-ориентированных  языков  (Симула-67)
        был создан как язык для написания таких имитаций.

             Есть также причина того,  что объектно-ориентированное прог-
        раммирование довольно крепко связано в традиционном смысле с ори-
        ентированной  на построение графиков средой.  Объекты должны быть
        моделями, и есть ли лучший способ смоделировать объект, чем нари-
        совать его изображение?  Объекты в Borland Pascal должны имитиро-
        вать компоненты проблему, которую вы пытаетесь разрешить. Примите
        это  во  внимание,  если в дальнейшем вы намерены эксплуатировать
        новые объектно-ориентированные расширения Borland Pascal.




         B.Pascal 7 & Objects /UG   - 211 -

                                  Инкапсуляция
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Объединение в  объекте кода и данных называется инкапсуляци-
        ей. Возможно вы сможете предоставить достаточное количество мето-
        дов,  благодаря  чему пользователь объекта никогда не будет обра-
        щаться к полям объекта непосредственно. Некоторые другие объектно
        -ориентированные языки,  например Smalltalk, требуют обязательной
        инкапсуляции, однако в Borland Pascal у вас есть выбор, а хорошая
        практика объектно-ориентированного программирования во многом за-
        висит от вашей добросовестности.

             Объекты TEmployee и THourly написаны таким образом,  что со-
        вершенно  исключена необходимость прямого обращения к их внутрен-
        ним полям данных:

             type
               TEmployee = object
                  Name, Title: string[25];
                  Rate: Real;
                  procedure Init (AName, ATitle: string; ARate: Real);
                  function GetName : String;
                  function GetTitle : String;
                  function GetRate : Real;
                  function GetPayAmount : Real;
             end;

             THourly = object(TEmployee)
                Time: Integer;
                procedure Init(AName, ATitle: string; ARate:
                                            Real, Atime: Integer);
                function GetPayAmount : Real;
             end;

             Здесь присутствуют только четыpе поля данных:  Name,  Title,
        Rate и Time. Методы ShowName и ShowTitle выводят фамилию pаботаю-
        щего и его должность,  соответственно. Метод GetPayAmount исполь-
        зует  Rate,  а в случае pаботающего THourly и Time для вычисления
        суммы выплат pаботающему.  Здесь уже нет необходимости обpащаться
        непосpедственно к этим полям данных.

             Предположив существование  экземпляра AnHourly типа THourly,
        вы могли бы использовать набор методов для манипулирования полями
        данных AnHourly, например:

             with AnHourly do
             begin
               Init ('Allison Karlon, Fork lift operator' 12.95, 62);
                    { Выводит на экpан фамилию, должность и сумму выплат}
               Show;
             end;

             Обратите внимание, что доступ к полям объекта осуществляется

         B.Pascal 7 & Objects /UG   - 212 -

        не иначе, как только с помощью методов этого объекта.


                           Методы: никакого ухудшения
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Добавление этих методов незначительно увеличивает объем  ис-
        ходного кода, однако развитый компоновщик Borland Pascal выбрасы-
        вает код любого метода,  который ни разу не вызывается в програм-
        ме.  Поэтому  вам не следует отступать при предоставлении объекту
        того или иного метода,  который имеет одинаковые шансы  быть  как
        использованным,  так и неиспользованным в каждой программе, в ко-
        торой задействован данный тип объекта.  Неиспользуемые методы ни-
        чего не будут стоить вам как в части качества выполнения програм-
        мы,  так и в части ее размера, - если они не используются в прог-
        рамме, то они попросту отсутствуют в ней.

             Замечание по поводу абстрактности данных:  Имеется громадное
        преимущество в возможности полностью отсоединить THourly от  гло-
        бальных ссылок. Если ничто вне объекта не "знает" о представлении
        его внутренних данных, то программист, контролирующий объект, мо-
        жет  изменять детали внутреннего представления данных до тех пор,
        пока не изменится заголовок метода.

             Внутри самого объекта данные могут быть представлены в  виде
        массива,  однако позднее (возможно, что сфера действия прикладной
        программы расширяется и объем ее данных растет) в качестве  более
        эффективного  представления  данных  может быть признано двоичное
        дерево. Если объект полностью инкапсулирован, изменение представ-
        ления  данных  с массива на двоичное дерево вообще не изменит ис-
        пользование объекта. Интерфейс с объектом останется полностью тем
        же, позволяя программисту изящно приспосабливать эксплуатационные
        качества объекта без изменения кода, использующего объект.


                              Расширяющиеся объекты
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Люди, которые впервые сталкиваются с Паскалем, зачастую счи-
        тают  само  собой  разумеющейся  гибкость  стандартной  процедуры
        Writeln,  которая  позволяет  единственной процедуре обрабатывать
        параметры многих различных типов:

             Writeln(CharVar);     { Вывести значение символьного типа }
             Writeln(IntegerVar);  { Вывести целое значение }
             Writeln(RealVar);     { Вывести значение с плавающей
                                     точкой }

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

             Объектно-ориентированное программирование решает эту пробле-
        му с помощью наследования: если определен порожденный тип, то ме-

         B.Pascal 7 & Objects /UG   - 213 -

        тоды порождающего типа наследуются,  однако при желании они могут
        переопределяться. Для переопределения наследуемого метода попрос-
        ту опишите новый метод с тем же именем,  что и наследуемый метод,
        но с другим телом и (при необходимости) с другим множеством пара-
        метров.

             Простой пример прояснит как процесс так и его смысл. Давайте
        определим  дочерний по отношению к TEmployee тип,  пpедставляющий
        pаботника, котоpому платится часовая ставка:

             const
               PayPeriods = 26;           { периоды выплат }
               OvertimeThreshold = 80;    { на период выплаты }
               OvertimeFactor = 1.5;      { почасовой коэффициент }

             type
             THourly = object(TEmployee)
                Time: Integer;
                procedure Init(AName, ATitle: string; ARate:
                                                  Real, Atime: Integer);
                function GetPayAmount : Real;
             end;

             procedure THourly.Init(AName, ATitle: string;
                                           ARate: Real, Atime: Integer);
             begin
                TEmployee.Init(AName, ATitle, ARate);
                Time := ATime;
             end;

             function THourly.GetPayAmount: Real;
             var
                Overtime: Integer;
             begin
                Overtime := Time - OvertimeThreshold;
                if Overtime > 0 then
                   GetPayAmount := RoundPay(OvertimeThreshold * Rate +
                      Rate OverTime * OvertimeFactor * Rate)
                else
                   GetPayAmount := RoundPay(Time * Rate)
             end;

             Человек, котоpому платится часовая ставка, является pаботаю-
        щим: он обладает всем тем, что мы используем для опpеделения объ-
        екта TEmployee (фамилией, должностью, ставкой), и лишь количество
        получаемых  почасовиком  денег зависит от того,  сколько часов он
        отpаботал  за  пеpиод,  подлежащий  оплате.  Таким  обpазом,  для
        THourly тpебуется еще и поле вpемени, Time.

             Так как THourly опpеделяет новое поле, Time, его инициализа-
        ция тpебует нового метода Init, котоpый инициализиpует и вpемя, и
        наследованные поля.  Вместо того, чтобы непосpедственно пpисвоить
        значения наследованным полям, таким как Name, Title и Rate, поче-

         B.Pascal 7 & Objects /UG   - 214 -

        му бы не использовать вновь метод инициализации объекта TEmployee
        (иллюстpиpуемый пеpвым  опеpатоpом  THourly.Init),  где  Ancestor
        есть  идентификатоp  типа  pодового  типа объекта,  а Method есть
        идентификатоp метода данного типа.

             Заметьте, что вызов метода,  который вы переопределяете,  не
        является единственно хорошим стилем. В общем случае возможно, что
        TEmployee.Init выполняет важную,  однако  скрытую  инициализацию.
        Вызывая переопределяемый метод, вы должны быть уверены в том, что
        порожденный тип объекта включает функциональность родителя. Кроме
        того,  любое изменение в родительском методе автоматически оказы-
        вает влияние на все порожденные.

             После вызова TEmployee.Init, THourly.Init может затем выпол-
        нить свою собственную инициализацию, которая в этом случае состо-
        ит только в присвоении значения, переданного в ATime.

             Дpугим пpимеpом пеpеопpеделяемого  метода  является  функция
        THourly.GetPayAmount, вычисляющая сумму выплат pаботающему на по-
        часовой ставке.  В действительности, каждый тип объекта TEmployee
        имеет свой метод GetPayAmount, так как тип pаботающего зависит от
        того,  как пpоизводится pасчет. Метод THourly.GetPayAmount должен
        учитывать,  сколько часов pаботал сотрудник, были ли свеpхуpочные
        pаботы, каков коэффициент увеличения за свеpхуpочные pаботы и так
        далее.  Метод  TSalaried.GetPayAmount  должен  лишь делить ставку
        pаботающего на число выплат в каждом году (в нашем пpимеpе 26).

             unit Workers;

             interface

             const
               PayPeriods = 26;        {в год}
               OvertimeThreshold = 80; {за каждый период оплаты}
               OvertimeFactor =1.5;    {увеличение против обычной оплаты}

             type
             TEmployee = object
               Name, Title: string[25];
               Rate: Real;
               procedure Init (AName, ATitle: string; ARate: Real);
               function GetName : String;
               function GetTitle : String;
               function GetRate : Real;
               function GetPayAmount : Real;
             end;

             THourly = object(TEmployee)
                Time: Integer;
                procedure Init(AName, ATitle: string; ARate:
                                               Real, Atime: Integer);
                function GetPayAmount : Real;
                function GetTime : Real;

         B.Pascal 7 & Objects /UG   - 215 -

             end;

             TSalaried = object(TEmployee)
                function GetPayAmount : Real;
             end;
             TCommissioned = object(TSalaried)
                Commission : Real;
                SalesAmount : Real;
                constructor Init (AName, ATitle: String;
                      ARate, ACommission, ASalesAmount: Real);
                function GetPayAmount : Real;
             end;

             implementation

             function RoundPay(Wages: Real) : Real;
                { окpугляем сумму выплат, чтобы игноpиpовать
                  суммы меньше пенни }
             begin
                RoundPay := Trunc(Wages * 100) / 100;
                .
                .
                .

             TEmployee является веpшиной нашей иеpаpхии  объектов  и  со-
        деpжит пеpвый метод GetPayAmount.

              function TEmployee.GetPayAmount : Real;
              begin
                RunError(211);   { дать ошибку этапа выполнения }
              end;

             Может вызвать удивление тот  факт,  что  метод  дает  ошибку
        вpемени выполнения.  Если вызывается TEmployee.GetPayAmount, то в
        пpогpамме возникает ошибка. Почему? Потому что TEmployee является
        веpшиной  нашей иеpаpхии объектов и не опpеделяет pеального pабо-
        чего;  следовательно,  ни один из методов TEmployee не вызывается
        опpеделенным обpазом,  хотя они и могут быть наследованными.  Все
        наши pаботники являются либо почасовиками, либо имеют оклады, ли-
        бо  pаботают на сдельщине.  Ошибка на этапе выполнения пpекpащает
        выполнение пpогpаммы и выводит 211,  что соответствует  сообщению
        об  ошибке,  связанной  с  вызовом абстpактного метода (если ваша
        пpогpамма по ошибке вызывает TEmployee.GetPayAmount).

             Ниже пpиводится метод THourly.GetPayAmount, в котоpом учиты-
        ваются такие вещи как свеpхуpочная оплата, число отpаботанных ча-
        сов и так далее.

             function THourly.GetPayAMount : Real;
                var
                   OverTime: Integer;
             begin
                Overtime := Time - OvertimeThreshold;

         B.Pascal 7 & Objects /UG   - 216 -

                if Overtime > 0 then
                   GetPayAmount := RoundPay(OvertimeThreshold * Rate +
                               Rate OverTime * OvertimeFactor * Rate)
                else
                   GetPayAmount := RoundPay(Time * Rate)
             end;

             Метод TSalaried.GetPayAmount намного пpоще; в нем ставка де-
        лится на число выплат:

             function TSalaried.GetPayAmount : Real;
             begin
                GetPayAmount := RoundPay(Rate / PayPeriods);
             end;

             Если взглянуть на метод TСommissioned.GetPayAmount, то будет
        видно, что он вызывает TSalaried.GetPayAmount, вычисляет комисси-
        онные  и  пpибавляет  их   к   величине,   возвpащаемой   методом
        TSalaried.GetPayAmount.

             function TСommissioned.GetPayAmount : Real;
             begin
                GetPayAmount := RoundPay(TSalaried.GetPayAmount +
                                         Commission * SalesAmount);
             end;

              Важное замечание:  Хотя  методы  могут быть переопределены,
        поля данных переопределяться не могут. После того, как вы опреде-
        лили поле данных в иерархии объекта,  никакой дочерний тип не мо-
        жет определить поле данных в точности с таким же именем.


                        Наследование статических методов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Все показанные до сих пор методы,  связанные с типами объек-
        тов TEmployee,  THourly, TSalaried и TCommissioned, являются ста-
        тическими  методами.  Однако,  со  статическими  методами связана
        пpоблема наследования.

             Для того, чтобы разобраться с этой проблемой, отложим в сто-
        рону  наш пример с платежной ведомостью и рассмотрим другой упро-
        щенный и нереалистичный, но показательный пример. Вернемся к кры-
        латым насекомым.  Предположим, что нужно создать программу, кото-
        рая будет рисовать на экране различные типы  летающих  насекомых.
        Предположим,  вы решили, что на вершине иерархии будет находиться
        объект Winged. Пусть вы планируете, что новые типы объектов лета-
        ющих насекомых как будут строиться как потомки Winged.  Например,
        вы можете создать тип объекта Bee,  который отличается  от  родс-
        твенных крылатых насекомых тем, что имеет жало и полосы. Конечно,
        у пчелы есть другие отличающие ее характеристики, но в нашем при-
        мере это может выглядеть следующим образом:


         B.Pascal 7 & Objects /UG   - 217 -

             type
                 TWinged = object(Insect)
                   procedure Init(AX, AY: Integer) { инициализирует
                                                    экземпляр }
                   рrocedure Show;   { отображает крылатое насекомое на
                                       экране }
                   рrocedure Hide;   { стирает крылатое насекомое с
                                       экрана }
                   рrocedure MoveTo(NewX, NewY : Integer);
                                     { перемещает крылатое насекомое }
             end;

             tyрe
               TBee = object(Winged)
                .
                .
                .
                рrocedure Init(AX, AY: Integer) { инициализирует
                                                  экземпляр Bee }
                рrocedure Show;          { отображает пчелу на экране }
                рrocedure Hide;          { стирает пчелу с экрана }
                рrocedure MoveTo(NewX, NewY : Integer);
                                         { перемещает пчелу }
             end;

             И TWinged,  и TBee имеют по четыре  метода.  TWinged.Init  и
        TBee.Init инициализируют экземпляр соответствующих объектов.  Ме-
        тод  TWinged.Show  знает,  как  рисовать  крылатое  насекомое  на
        экране,  а метод TBee.Show - как рисовать пчелу (крылатое насеко-
        мое с полосками на теле и с жалом). Метод TWinged.Hide знает, как
        стирать  крылатое  насекомое  с  экрана,  а метод TBee.Hide - как
        стирать пчелу.  Два метода Show отличаются друг от  друга,  равно
        как и два метода Hide.

             Однако, методы TWinged.MoveTo и TBee.MoveTo полностью одина-
        ковы. В нашем примере X и Y определяют положение на экране.

             рrocedure TWinged.MoveTo(NewX, NewY: Integer);
             begin
               Hide;
               X := NewX;    {новая координата X на экране}
               Y := NewY;    {новая координата Y на экране}
               Show;
             end;

             рrocedure TBee.MoveTo(NewX, NewY: Integer);
             begin
               Hide;
               X := NewX;    {новая координата X на экране}
               Y := NewY;    {новая координата Y на экране}
               Show;
             end;


         B.Pascal 7 & Objects /UG   - 218 -

             Не изменилось ничего,  кроме копирования программы и  поста-
        новки  квалификатора  TBee перед идентификатором MoveTo.  Так как
        методы одинаковы,  зачем нужно помещать MoveTo в TBee?  Ведь  Bee
        автоматически  наследует  MoveTo  от  TWinged.  Поэтому  не нужно
        переопределять метод MoveTo из TWinged,  но это именно то  место,
        где возникает проблема в случае статических методов.

             Термин "статический" был выбран для описания методов, не яв-
        ляющихся виртуальными - термин,  который мы введем далее.  Факти-
        чески,  виртуальные  методы  являются решением этой проблемы,  но
        прежде чем понять решение,  вам следует разобраться в самой проб-
        леме.

             Признаки проблемы  состоят  в  следующем:  пока копия метода
        MoveTo не будет помещена в область действия TBee  для  подавления
        метода MoveTo объекта TWinged, метод не будет работать правильно,
        если он будет вызываться из объекта типа TBee. Если TBee запуска-
        ет метод MoveTo объекта TWinged,  так то, что движется по экрану,
        является крылатым насекомым, а не пчелой. Только когда TBee вызы-
        вает копию метода MoveTo, определенного в его собственной области
        действия, на экране с помощью вызовов Show и Hide будут рисовать-
        ся и стираться пчелы.

             Почему это так? Это объясняется способом, которым компилятор
        разрешает вызовы методов. Когда компилируются методы Bee, то сна-
        чала  встречаются TWinged.Show и TWinged.Hide и их код компилиру-
        ется в сегмент кода.  Немного позднее в файле  встречается  метод
        Winged.MoveTo,  который вызывает TWinged.Show и TWinged.Hide. Как
        и при вызове  любой  процедуры,  компилятор  замещает  ссылки  на
        TWinged.Show и TWinged.Hide в исходном коде на их адреса,  сгене-
        рированные в сегменте кода.  Таким образом,  когда вызывается код
        TWinged.MoveTo,  он,  в  свою  очередь,  вызывает  TWinged.Show и
        TWinged.Hide со всеми вытекающими последствиями.

             До сих пор это был типичный для Borland Pascal сценарий и он
        был бы справедлив (за исключением номенклатуры), начиная с версии
        1.0 Turbo Pascal 1983 года. Однако, дело меняется, когда вы вклю-
        чаете в этот сценарий принцип наследования.  Когда TBee наследует
        метод от TWinged,  он (TBee) использует метод в точности так, как
        тот был откомпилирован.

             Снова посмотрите,  что должен наследовать TBee, если он нас-
        ледует TWinged.MoveTo:

             рrocedure TWinged.MoveTo(NewX, NewY: integer);
             begin
               Hide;                       { Вызов Winged.Hide }
               X := NewX;
               Y := NewY;
               Show                        { Вызов Winged.Show }
             end;

             Комментарии здесь приведены для того,  чтобы подчеркнуть тот

         B.Pascal 7 & Objects /UG   - 219 -

        факт, что если Bee вызывает метод TWinged.MoveTo, то он также вы-
        зывает TWinged.Show и TWinged.Hide,  а не TBee.Show и  TBee.Hide.
        Поскольку   TWinged.MoveTo   вызывает   методы   TWinged.Show   и
        TWinged.Hide, TWinged.MoveTo нельзя наследовать. Вместо этого, он
        должен быть  переопределен своей второй копией,  которая вызывает
        копии Show и Hide,  определенные внутри области  действия  второй
        копии, то есть, TBee.Show и TBee.Hide.

             При разрешении вызовов методов,  логика компилятора работает
        так: при вызове метода компилятор сначала ищет метод, имя которо-
        го  определено внутри типа объекта.  Тип TBee определяет методы с
        именами Init,  Hide,  Show и MoveTo.  Если метод TBee должен  был
        вызвать  один  из этих четырех методов,  то компилятор заменил бы
        вызов на адрес одного из собственных методов Bee.

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

             Однако, если статический наследуемый метод найден и  исполь-
        зуется,  то  вы  должны помнить,  что вызываемый метод является в
        точности таким, как он определен и компилирован для родительского
        типа. Если родительский метод вызывает другие методы, то вызывае-
        мые методы будут также родительскими методами, даже если дочерний
        объект содержит методы, которые переопределяют родительские.




         B.Pascal 7 & Objects /UG   - 220 -

                        Виртуальные методы и полиморфизм
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Обсуждаемые до сих пор методы являются статическими. Они яв-
        ляются статическими в том же смысле, в каком статической является
        статическая переменная:  компилятор размещает ее и разрешает  все
        ссылки на нее во время компиляции.  Как вы видели, объекты и ста-
        тические методы могут быть мощным  инструментом  для  составления
        сложных программ.

             Однако иногда это не лучший способ для управления методами.

             Проблемы, аналогичные описанной в предыдущем разделе, возни-
        кают из-за разрешения ссылок на метод во время компиляции.  Выход
        заключается в том,  что метод должен быть динамическим,  а ссылки
        на него должны разрешаться во время выполнения.  Чтобы это  стало
        возможным,  нужно  иметь некоторые специальные механизмы,  однако
        Borland Pascal предоставляет эти механизмы за счет  поддержки  им
        виртуальных методов.

             Важное замечание:  Виртуальные  методы  предоставляют макси-
        мально мощный инструмент для обобщения, именуемого полиморфизмом.
        Полиморфизм в переводе с греческого означает "многообразие" и яв-
        ляется способом присвоения действию  имени,  которое  разделяется
        вверх  и вниз объектами иерархии,  причем каждый объект иерархии,
        использует это действие соответствующим ему образом.

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

             Каждый тип объекта в нашей иерархии  представляет  отдельный
        тип фигуры на экране:  крылатое насекомое или пчелу. Определенно,
        имеет смысл сказать,  что вы можете показать на экране точку  или
        окружность.  Позднее, если вам понадобится определить объекты для
        представления на экране других типов  крылатых  насекомых,  таких
        как мотыльки,  стрекозы, бабочки и т.д., вы могли бы написать ме-
        тод для каждого из них, который будет выводить объект на экран. В
        новых терминах объектно-ориентированного программирования вы мог-
        ли бы сказать,  что все эти типы крылатых насекомых имеют способ-
        ность  показать самих себя на экране.  Это большая часть из того,
        что является для них общим.

             Что является особым для каждого типа объекта,  так это  спо-
        соб,  которым он должен показать самого себя на экране. Например,
        у пчелы на экране должны рисоваться черные полоски  на  туловище.
        Можно  показать на экране любой тип крылатых насекомых,  но меха-
        низм рисования каждого является сугубо специфическим.  Одно слово
        "нарисовать" используется для рисования (буквально) многих крыла-
        тых насекомых.  Аналогично,  если вернуться к нашему примеру пла-
        тежной ведомости, то слово "GetPayAmount" вычисляет размер выплат
        для нескольких категорий работающих.


         B.Pascal 7 & Objects /UG   - 221 -

             Это были примеры полиморфизма, а виртуальными методами явля-
        ется то, что реализует его в Borland Pascal.


                  Раннее связывание против позднего связывания
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

            Различие между вызовом статического  метода  и  динамического
        метода является различием между решением сделать немедленно и ре-
        шением отложить. Когда вы кодируете вызов статического метода, вы
        по существу говорите компилятору;  "Ты знаешь, чего я хочу. Пойди
        и вызови это." С другой стороны,  применение вызова  виртуального
        метода, подобно разговору с компилятором; "Ты не знаешь пока, че-
        го я хочу.  Когда придет время, задай вопрос о конкретном экземп-
        ляре."

             Подумайте об этой метафоре в терминах проблемы MoveTo,  упо-
        мянутой в предыдущем разделе.  Вызов TBee.MoveTo  может  привести
        только к одному - выполнению MoveTo, ближайшей в объектной иерар-
        хии. В этом случае TBee.MoveTo по-прежнему будет вызывать опреде-
        ление  MoveTo  для TWinged,  так как TWinged является ближайшим к
        TBee типом вверх по иерархии. Если предположить, что не определен
        никакой   дочерний  тип,  который  определяет  собственный  метод
        MoveTo,  переопределяющий MoveTo типа TWinged, то любой порожден-
        ный по  отношению к TWinged тип будет по-прежнему вызывать тот же
        самый экземпляр метода MoveTo. Решение может быть принято во вре-
        мя компиляции и это все, что должно быть сделано.

             Однако совсем другое дело, когда метод MoveTo вызывает Show.
        Каждый тип фигуры имеет свой собственный экземпляр Show,  поэтому
        то, какой экземпляр Show вызывается методом MoveTo, полностью за-
        висит от того,  какая реализация объекта вызывает MoveTo.  Именно
        поэтому  решение  о  вызове  метода Show внутри экземпляра MoveTo
        должно быть отложено: при компиляции кода MoveTo не может принято
        никакого решения относительно того,  какой метод Show должен быть
        вызван.  Эта информация недоступна во время  компиляции,  поэтому
        решение должно быть отложено до тех пор, пока программа не начнет
        выполняться, и пока нельзя будет запросить экземпляр объекта, вы-
        зывающий MoveTo.

             Процесс, с  помощью  которого вызовы статических методов од-
        нозначно разрешаются компилятором во время компиляции в один  ме-
        тод, называется ранним связыванием. При раннем связывании вызыва-
        ющий и вызываемый методы связываются при первой  же  возможности,
        т.е. во время компиляции. При позднем связывании вызывающий и вы-
        зываемый методы не могут быть связаны во время компиляции, поэто-
        му  включается механизм,  позволяющий осуществить связывание нес-
        колько позднее, когда вызов действительно произойдет.

             Сущность механизма интересна и тонка,  и немного позднее  вы
        увидите, как он работает.


         B.Pascal 7 & Objects /UG   - 222 -

                          Совместимость типов объектов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Наследование до некоторой степени изменяет правила совмести-
        мости типов в Borland Pascal.  Помимо всего прочего,  порожденный
        тип наследует совместимость типов всех своих  порождающих  типов.
        Эта расширенная совместимость типов принимает три формы:

             - между реализациями объектов;
             - между указателями на реализации объектов;
             - между формальными и фактическими параметрами.

             Однако очень важно помнить,  что во всех трех формах совмес-
        тимость типов расширяется только от потомка к  родителю.  Другими
        словами, дочерние типы могут свободно использоваться вместо роди-
        тельских, но не наоборот.

             В модуле WORKERS.TPU TSalaried является потомком  TEmployee,
        а TCommissioned - потомком TSalaried.  Помня об этом,  рассмотрим
        следующие описания:

             tyрe
                PEmрloyee = ^TEmployee;
                PSalaried = ^TSalfried;
                PCommissioned = ^TCommissioned;
             var
                AnEmрloyee: TEmployee;
                ASalaried: TSalaried;
                PCommissioned: TCommissioned;
                TEmployeePtr: PEmрloyee;
                TSalariedPtr: PSalaried;
                TCommissionedPtr: PCommissioned;

             При данных описаниях справедливы следующие операторы присва-
        ивания:

             AnEmрloyee :=ASalaried;
             ASalaried := ACommissioned;
             TCommissionedPtr := ACommissioned;

                   Примечание: Порождающему  объекту  можно присвоить эк-
              земпляр любого из его порожденных типов.

         B.Pascal 7 & Objects /UG   - 223 -



             Обратные присваивания недопустимы.

             Эта концепция является новой для Паскаля,  и в начале,  воз-
        можно,  вам  будет трудновато запомнить,  в каком порядке следует
        совместимость типов.  Думайте следующим образом:  источник должен
        быть  в состоянии полностью заполнить приемник.  Порожденные типы
        содержат все, что содержат их порождающие типы благодаря свойству
        наследования. Поэтому порожденный тип имеет либо в точности такой
        же размер,  либо (что чаще всего и бывает) он больше своего роди-
        теля, но никогда не бывает меньше. Присвоение порождающего (роди-
        тельского) объекта порожденному (дочернему) могло бы оставить не-
        которые  поля порожденного объекта неопределенными,  что опасно и
        поэтому недопустимо.

             В операторах присваивания из источника в приемник будут  ко-
        пироваться только поля, являющиеся общими для обоих типов. В опе-
        раторе присваивания:

             AnEmрloyee := ACommissioned;

             Только поля Name, Title и Rate из ACommissioned будут скопи-
        рованы  в  AnEmрloyee,  т.к.  только эти поля являются общими для
        TCommissioned и TEmployee.  Совместимость  типов  работает  также
        между  указателями  на  типы  объектов и подчиняется тем же общим
        правилам, что и для реализаций объектов. Указатель на потомка мо-
        жет быть присвоен указателю на родителя. Если дать предыдущие оп-
        ределения,  то следующие присваивания указателей будут допустимы-
        ми:

             TSalariedPtr := TCommissionedPtr;
             TEmployeePtr := TSalariedPtr;
             TEmployeePtr := PCommissionedPtr;

             Помните, что обратные присваивания недопустимы.

             Формальный параметр  (либо значение,  либо параметр-перемен-
        ная) данного объектного типа может принимать в качестве фактичес-
        кого  параметра  объект  своего же типа или объекты всех дочерних
        типов. Если определить заголовок процедуры следующим образом:

             рrocedure CalcFedTax(Victim: TSalaried);

        то допустимыми типами фактических параметров могут быть TSalaried
        или TCommissioned,  но не тип TEmployee.  Victim также может быть
        параметром-переменной. При этом выполняются те же правила совмес-
        тимости.

         B.Pascal 7 & Objects /UG   - 224 -


             Замечание: Имейте в виду, что между параметрами-значениями и
        параметрами-переменными есть коренное отличие.  Параметр-значение
        является указателем на действительный,  посылаемый в качестве па-
        раметра объект, тогда как параметр-переменная является только ко-
        пией фактического параметра. Более того, эта копия включает толь-
        ко те поля,  которые входят в тип формального параметра-значения.
        Это означает,  что фактический параметр буквально преобразуется к
        типу формального параметра. Параметр-переменная больше напоминает
        приведение к образцу,  в том смысле, что фактический параметр ос-
        тается неизменным.

             Аналогично, если формальный параметр является указателем  на
        тип  объекта,  фактический параметр может быть указателем на этот
        тип объекта или на любой дочерний тип. Пусть дан заголовок проце-
        дуры:

             рrocedure Worker.Add (AWorker: PSalaried);

        тогда допустимыми   типами   фактических  параметров  могут  быть
        PSalaried или PCommissioned, но не тип PEmрloyee.




         B.Pascal 7 & Objects /UG   - 225 -

                             Полиморфические объекты
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При чтении  предыдущего  раздела вы,  возможно,  задали себе
        вопрос: "Если любой порожденный от типа параметра тип может пере-
        даваться  в качестве параметра,  то как же пользователь параметра
        узнает,  какой тип объекта он получил?" Фактически,  пользователь
        явно  этого и не знает.  Точный тип фактического параметра не из-
        вестен во время компиляции.  Фактический параметр может быть объ-
        ектом любого дочернего от параметра-переменной типа, и именно по-
        этому он называется полиморфическим объектом.

             Теперь, чем же именно хорош полиморфический  объект?  Прежде
        всего полиморфические объекты позволяют обрабатывать объекты, чей
        тип неизвестен на момент компиляции. Это общее замечание настоль-
        ко  ново для образа мышления Паскаля,  что пример для вас не поя-
        вится незамедлительно. (Со временем вы будете удивлены, насколько
        естественно это выглядит. То есть, когда вы действительно станете
        объектно-ориентированным программистом.)

             Предположим, что вы написали инструментальное  средство  для
        вычерчивания графиков,  поддерживающее многочисленные типы фигур:
        точки,  окружности, квадраты, прямоугольники, кривые и т.д. В ка-
        честве  части этого инструментального средства вы хотите написать
        программу,  которая будет перемещать графическую фигуру по экрану
        с помощью устройства типа "мышь".

             При старом способе необходимо было написать отдельную проце-
        дуру перемещения для каждого типа графической фигуры, поддержива-
        емой  инструментальным  средством.  Вы  должны  были  бы написать
        DragButterfly, DragBee, DragMoth и т.д. Несмотря на то, что стро-
        гая  типизация (проверка типов) Паскаля позволяла это (и не забы-
        вайте,  что всегда существуют способы обойти строгую  типизацию),
        различия  между типами графических фигур едва ли позволили бы на-
        писать действительно общую программу перемещения.

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

             С этой точки зрения, "сообразительные" программисты, работа-
        ющие на Турбо Паскале,  сделают шаг вперед и скажут:  "Поступайте
        так: передайте запись о крылатом насекомом процедуре DragIt в ка-
        честве ссылки указателя общего вида. В процедуре DragIt проверяй-
        те свободное поле по  фиксированному  смещению  внутри  записи  о
        крылатом насекомом для определения,  какого вида это насекомое, а
        затем сделайте переход с помощью оператора case:

             case FigureIDTag of
                Bee       : DragBee;
                Butterfly : DragButterfly;
                Dragonfly : DragDragonfly;
                Mocquito  : DragMocquito;

         B.Pascal 7 & Objects /UG   - 226 -

                  .
                  .
                  .

             Ну, размещение  семнадцати маленьких чемоданчиков внутри од-
        ного большого является незначительным шагом вперед,  но в чем  же
        заключается проблема, ожидающая нас на этом пути?

             Что случится,  если  пользователь инструментального средства
        определит несколько новых типов крылатых насекомых?

             В самом деле, что? Что если пользователь захочет работать со
        среднеазиатскими  фруктовыми  мухами?  В вашей программе нет типа
        Fruitfly,  поэтому DragIt не содержит метки Fruitfly в  операторе
        case  и,  следовательно,  отвергнет  перемещение  нового  рисунка
        Fruitfly.  Будучи представленным процедуре DragIt, Fruitfly будет
        выпадать  из оператора case в ветвь else этого оператора как "не-
        распознанное насекомое".

             Откровенно говоря,  создание для  продажи  инструментального
        средства  без исходного кода страдает этой проблемой.  Инструмен-
        тальное средство может работать только с типами  данных,  которые
        "известны" ему,  т.е. которые определены разработчиком инструмен-
        тального средства. Пользователь инструментального средства оказы-
        вается бессильным перед расширением его функций в направлении, не
        предвиденном разработчиком.  То,  что пользователь купил, то он и
        получил. И точка.

             Выходом из  проблемы является использование правил расширен-
        ной совместимости типов Borland Pascal для объектов и  разработка
        прикладных программ с использованием полиморфических методов. Ес-
        ли процедура DragIt инструментального средства  установлена  так,
        что может работать с полиморфическими объектами, то она будет ра-
        ботать  с  любыми  объектами,  определенными  в  инструментальном
        средстве,  и с любыми дочерними объектами,  которые вы определите
        сами.  Если типы объектов инструментального  средства  используют
        виртуальные  методы,  то  объекты  и  программы инструментального
        средства могут работать со сделанными вами графическими  фигурами
        в  собственных  терминах  самих фигур.  Определенный вами сегодня
        виртуальный метод может вызываться файлом модуля (.TPU,  .TPW или
        . TPP) инструментального средства, который был написан и оттранс-
        лирован год назад. Объектно-ориентированное программирование дает
        такую возможность, а виртуальные методы являются ключом к ней.

             Понимание того, как виртуальные методы делают возможными та-
        кие вызовы полиморфических методов требует пояснения  описания  и
        использования виртуальных методов.


                               Виртуальные методы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Метод становится виртуальным, если за его объявлением в типе

         B.Pascal 7 & Objects /UG   - 227 -

        объекта стоит новое зарезервированное слово virtual. Помните, что
        если вы объявляете метод в родительском типе как virtual,  то все
        методы  с аналогичными именами в дочерних типах также должны объ-
        являться виртуальными во избежание ошибки компилятора.

             Ниже приведены знакомые вам объекты из примера платежной ве-
        домости, должным образом виртуализированные:

             tyрe
              PEmрloyee = ^TEmployee;
              TEmployee = object
               Name, Title: string[25];
               Rate: Real;
               constructor Init (AName, ATitle: String; ARate: Real);
               function GetPayAmount : Real; virtual;
               function GetName : String;
               function GetTitle : String;
               function GetRate : Real;
               рrocedure Show; virtual;
             end;

             PHourly = ^THourly;
             THourly = object(TEmployee);
               Time: Integer;
               constructor Init (AName, ATitle: String; ARate: Real;
               Time: Integer);
               function GetPayAmount : Real; virtual;
               function GetTime : Integer;
             end;

             PSalaried = ^TSalaried;
             TSalaried = object(TEmployee);
               function GetPayAmount : Real; virtual;
             end;

             PCommissioned = ^TCommissioned;
             TCommissioned = object(Salaried);
               Commission : Real;
               SalesAmount : Real;
               constructor Init (AName, ATitle: String;
                   ARate, ACommission, ASalesAmount: Real);
               function GetPayAmount : Real; virtual;
             end;

             А ниже  приводится пример для насекомых,  дополненный вирту-
        альными методами.

             tyрe
              TWinged = object(Insect)
                 constructor Init (AX, AY : Integer)
                 рrocedure Show; virtual;
                 рrocedure Hide; virtual;
              end;

         B.Pascal 7 & Objects /UG   - 228 -


             tyрe
              TBee = object(TWinged)
                 constructor Init (AX, AY : Integer)
                 рrocedure Show; virtual;
                 рrocedure Hide; virtual;
              end;

             Прежде всего обратите внимание, что метод MoveTo, показанный
        для типа TBee, теперь удален из его определения. Теперь типу TBee
        больше нет нужды переопределять метод MoveTo типа TWinged  с  по-
        мощью немодифицируемой копии, компилируемой в его собственной об-
        ласти действия.  Вместо этого,  MoveTo теперь может наследоваться
        от TWinged со всеми вложенными в MoveTo вызовами,  которые, одна-
        ко,  будут вызывать методы из TBee, а не из TWinged, как это про-
        исходило в полностью статической иерархии объектов.

             Отметьте также  новое  зарезервированное  слово  constructor
        (конструктор),  заменившее зарезервированное слово рrocedure  для
        TWinged.Init и TBee.Init.  Конструктор является специальным типом
        процедуры,  которая выполняет некоторую установочную  работу  для
        механизма виртуальных методов. Более того, конструктор должен вы-
        зываться перед вызовом любого виртуального метода.  Вызов  вирту-
        ального  метода  без  предварительного  вызова конструктора может
        привести к блокированию системы, а у компилятора нет способа про-
        верить порядок вызова методов.

             Каждый тип объекта, имеющий виртуальные методы, обязан иметь
        конструктор.

             Предупреждение: Конструктор должен вызываться перед  вызовом
        любого другого виртуального метода. Вызов виртуального метода без
        предыдущего обращения к  конструктору  может  вызвать  блокировку
        системы,  и компилятор не сможет проверить порядок, в котором вы-
        зываются методы.

                   Примечание: Для конструкторов  объекта  мы  предлагает
              использовать идентификатор Init.

             Каждый отдельный экземпляр объекта должен инициализироваться
        отдельным  вызовом  конструктора.  Недостаточно  инициализировать
        один экземпляр объекта и затем присваивать этот экземпляр другим.
        Другие экземпляры,  даже если они могут содержать правильные дан-
        ные, не будут инициализированы оператором присваивания и заблоки-
        руют систему при любых вызовах их виртуальных методов. Например:

             var
               FBee, GBee: Bee;    { создать два экземпляра Bee }
             begin
               FBee.Init(5, 9)     { вызов конструктора для FBee }
               GBee := FBee;       { Gbee недопустим! }
             end;


         B.Pascal 7 & Objects /UG   - 229 -

             Что же именно создает конструктор? Каждый тип объекта содер-
        жит нечто,  называемое таблицей виртуального метода (ТВМ) в  сег-
        менте данных. ТВМ содержит размер типа объекта и для каждого вир-
        туального метода указатель  на  код,  выполняющий  данный  метод.
        Конструктор  устанавливает связь между вызывающей его реализацией
        объекта и ТВМ типа объекта.

             Важно помнить,  что имеется только одна ТВМ для каждого типа
        объекта. Отдельные экземпляры типа объекта (т.е. переменные этого
        типа) содержат только соединение с ТВМ, но не саму ТВМ. Конструк-
        тор устанавливает значение этого соединения в ТВМ.  Именно благо-
        даря этому вы нигде не можете запустить выполнение перед  вызовом
        конструктора.


               Проверка диапазонов при вызове виртуальных методов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В процессе разработки программы вам, возможно, захочется по-
        высить меры безопасности,  которая снижается из-за вызовов вирту-
        альных методов Borland Pascal.  Если директива  $R  находится  во
        включенном  состоянии,  {$R+},  то все вызовы виртуальных методов
        будут проверяться на состояние инициализации для выполняющих  вы-
        зовы  реализаций.  Если  выполняющая вызов реализация еще не была
        инициализирована конструктором, то произойдет ошибка проверки ди-
        апазона исполняющей системы.

                  Примечание: Состоянием по умолчанию является {$R-}.

             После того, как вы хорошенько перетрясли программу и удосто-
        верились,  что отсутствуют вызовы методов из неинициализированных
        реализаций,  вы  можете  до некоторой степени ускорить выполнение
        программы путем переключения директивы $R в пассивное  состояние.
        После этого проверка вызовов методов из неинициализированных реа-
        лизаций осуществляться не будет, что оставляет вероятность блоки-
        ровки системы, если будет выявлена такая ошибка.

                    Виртуальный однажды - виртуальный всегда

             Вы уже  вероятно обратили внимание,  что как TWinged,  так и
        TBee содержат методы, называемые Show и Hide. Все заголовки мето-
        дов  для Show и Hide объявлены виртуальными и снабжены зарезерви-
        рованным словом virtual. Как только родительский тип объекта объ-
        являет  метод виртуальным,  все его потомки также должны объявить
        этот метод виртуальным. Другими словами, статический метод никог-
        да  не сможет переопределить виртуальный метод.  Если вы попытае-
        тесь сделать это, то компилятор выдаст сообщение об ошибке.

             Также следует помнить, что после того, как метод стал вирту-
        альным, его заголовок не может изменяться в объектах более низко-
        го уровня иерархии.  Вы можете представлять себе каждое определе-
        ние  виртуального  метода как ворота для всех их.  Исходя из этих
        соображений, заголовки всех реализаций одного и того же виртуаль-

         B.Pascal 7 & Objects /UG   - 230 -

        ного  метода должны быть идентичными,  включая число параметров и
        их типы.  Это не относится к статическим методам: статический ме-
        тод, переопределяющий другой, может иметь отличное число парамет-
        ров и типы этих параметров, в зависимости от необходимости.

             Это целый новый мир.


                              Расширяемость объекта
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Важным замечанием,  касающимся модулей типа WORKERS.PAS, яв-
        ляется то, что типы объектов и методы, определенные в модуле, мо-
        гут поставляться пользователю в форме .TPU,  .TPW или .TPP т.е. в
        форме, способной к непосредственной компоновке, без исходного ко-
        да. (Нужно просмотреть только листинг интерфейсной части модуля.)
        Используя полиморфические объекты и виртуальные методы, пользова-
        тель  файла  .TPU,  .TPW или .TPP сможет добавлять характеристики
        для приспособления модуля к своим нуждам.

             Новое понятие о добавлении  функциональных  характеристик  в
        программу без предоставления ее исходного кода называется способ-
        ностью к расширению. Способность к расширению является естествен-
        ным следствием наследования:  вы наследуете все, чем обладают по-
        рождающие типы,  а затем добавляете новые нужные вам возможности.
        Позднее  связывание позволяет,  чтобы новое связывалось со старым
        во время выполнения программы,  благодаря чему расширение сущест-
        вующего  кода выглядит "бесшовным" и стоит вам в части выполнения
        не более, чем быстрое путешествие по таблице виртуального метода.


                   Статические методы или виртуальные методы?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В общем случае,  вам следует делать методы виртуальным.  Ис-
        пользуйте статические методы только в том случае,  если вы хотите
        получить  оптимальную эффективность скорости выполнения и исполь-
        зования памяти.  Однако в этом случае,  как вы видели, вы теряете
        возможности расширения.

             Предположим, что  вы  описываете  объект с именем Ancestor и
        внутри этого объекта вы описываете метод с именем Action.  Как вы
        определяете,  каким должен быть метод,  виртуальным или статичес-
        ким?  Здесь приводится правило большого  пальца:  сделайте  метод
        Action виртуальным, если имеется вероятность, что будущие наслед-
        ники объекта Ancestor будут переопределять Action,  а вы  хотите,
        чтобы будущий код был доступен Ancestor.

             С другой стороны,  помните, что если у объекта имеются любые
        виртуальные методы,  то для этого объекта в сегменте данных будет
        создана таблица виртуальных методов (ТВМ) и каждый экземпляр это-
        го объекта будет иметь связь с ТВМ. Каждый вызов виртуального ме-
        тода должен проходить через ТВМ, тогда как статические методы вы-

         B.Pascal 7 & Objects /UG   - 231 -

        зываются непосредственно.  Хотя просмотр ТВМ является весьма  эф-
        фективным,  вызов  статического метода все равно остается немного
        более быстрым, чем вызов виртуального. И если в вашем объекте нет
        виртуальных  методов,  то  и  ТВМ отсутствует в сегменте данных и
        (что более важно) в каждом экземпляре объекта отсутствуют связи с
        ТВМ.

             Дополнительная скорость  и  эффективное использование памяти
        для статических методов должно уравновешиваться гибкостью,  кото-
        рую  допускают виртуальные методы:  вы можете расширить имеющийся
        код спустя много времени после его компиляции. Помните, что поль-
        зователь вашего типа объекта может рассматривать пути его исполь-
        зования,  которые вам и не снились,  что, в конечном счете, имеет
        основное значение.


                              Динамические объекты
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Все приведенные до сих пор объекты имели статические  реали-
        зации типов объектов, которым в объявлении var присваивались име-
        на и которые размещались в сегменте данных или в стеке.

             var
               ASalaried: TSalaried;

                  Примечание: Использование  здесь слова "статический" не
              имеет отношения к статическим методам.

             Объекты могут размещаться в динамической памяти и ими  можно
        манипулировать  с помощью указателей,  как и с тесно связанными с
        ними типами записей, что всегда имело место в Паскале. Турбо Пас-
        каль  включает несколько мощных расширений для выполнения динами-
        ческого размещения и удаления объектов более легкими и более  эф-
        фективными способами.

             Объекты могут  размещаться,  как области памяти,  на которые
        ссылается указатель, с помощью процедуры New:

             var
               CurrentPay: Real;
               P: ^TSalaried;

             New(P);

             Как и для типов записей, процедура New выделяет в динамичес-
        кой  памяти  пространство,  достаточное для размещения реализации
        указателя базового типа и возвращает адрес этого  пространства  в
        указателе.

             Если динамический объект содержит виртуальные методы,  то он
        должен инициализироваться с  помощью  вызова  конструктора  перед
        тем, как будет вызван любой из его методов:

         B.Pascal 7 & Objects /UG   - 232 -


             P^.Init('Sara Adams', 'Account manager', 2400);

             Затем вызовы методов могут происходить в обычном порядке,  с
        использованием имени указателя и ссылочного символа вместо  имени
        реализации,  которое использовалось бы при обращении к статически
        размещенному объекту:

             CurrentPay := P^.GetPayAmount;


               Размещение и инициализация с помощью процедуры New
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal расширяет синтаксис процедуры New,  что явля-
        ется более компактным и более удобным средством выделения  прост-
        ранства для объекта в динамически распределяемой области памяти и
        инициализации объекта с помощью  только  одной  операции.  Теперь
        процедура New может вызываться с двумя параметрами: имя указателя
        используется в качестве первого параметра, а вызов конструктора -
        в качестве второго параметра:

             New(P, Init('Sara Adams', 'Account manager', 2400));

             Если для  процедуры  New используется расширенный синтаксис,
        то конструктор Init действительно выполняет динамическое размеще-
        ние,  используя специальный код входа, сгенерированного как часть
        компиляции конструктора.  Имя реализации не может  предшествовать
        Init,  т.к.  в то время, когда процедура New вызвана, реализация,
        инициализируемая с помощью Init,  еще не  существует.  Компилятор
        идентифицирует  правильный вызываемый метод Init посредством типа
        указателя, пересылаемого в качестве первого параметра.

             Процедура New также была расширена для возможности использо-
        вания ее как функции,  которая возвращает значение указателя. По-
        сылаемый New параметр является типом указателя на  объект,  а  не
        самой переменной-указателем:

             tyрe
             PSalaried = ^TSalaried;

             var
                P: PSalaried;
                P := New(PSalaried);

             Обратите внимание,  что в данной версии функциональная форма
        расширения  процедуры  New  применима ко всем типам данных,  а не
        только к типам объектов.

             Функциональная форма New, как и процедурная форма, также мо-
        жет  воспринимать  конструктор объектного типа в качестве второго
        параметра:


         B.Pascal 7 & Objects /UG   - 233 -

             P := New(PSalaried, Init('Sara Adams',
                                             'Account manager', 2400));

             В Borland  Pascal осуществлено также параллельное расширение
        процедуры Disрose, это подробно обсуждается в следующем разделе.

                   Примечание: Новая стандартная процедура  Fail  поможет
              вам  в  конструкторах  выполнить  восстановление при ошибке
              (см. Главу 9 в "Руководстве по языку").


                         Удаление динамических объектов
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Также, как  и обычные записи Паскаля,  размещаемые в динами-
        чески распределяемой области памяти, объекты могут удаляться про-
        цедурой Disрose, если они больше не нужны:

             Disрose (P);

             Однако, при  избавлении  от  ненужного объекта может понадо-
        биться нечто большее,  чем простое освобождение занимаемой им ди-
        намической памяти. Объект может содержать указатели на динамичес-
        кие структуры или объекты,  которые нужно освободить или очистить
        в определенном порядке, особенно если вы оперируете сложной дина-
        мической структурой данных.  Что бы ни  нужно  было  сделать  для
        очистки динамического объекта в каком-либо порядке, это все долж-
        но быть объединено в один метод таким образом,  чтобы объект  мог
        быть уничтожен с помощью одного вызова метода:

             MyComрlexObject.Done;

             Метод Done  должен инкапсулировать все детали очистки своего
        объекта, а также всех структур данных и вложенных объектов.

                   Примечание: Мы советуем использовать для удаления  ме-
              тодов, работающих с объектами,  которые более не нужны, ис-
              пользовать идентификатор Done.

             Допустимо и часто бывает полезно определять несколько  мето-
        дов очистки для данного типа объекта.  В зависимости от того, как
        они размещены или используются,  или в зависимости от состояния и
        режима объекта на момент очистки,  сложные объекты могут потребо-
        вать очистки несколькими различными путями



         B.Pascal 7 & Objects /UG   - 234 -

                                   Деструкторы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Borland Pascal предоставляет специальный тип метода, называ-
        емый "сборщиком мусора" или деструктором,  для очистки и удаления
        динамически размещенного объекта.  Деструктор объединяет шаг уда-
        ления объекта с какими-либо другими действиями или задачами,  не-
        обходимыми для данного типа объекта.  Для единственного типа объ-
        екта можно определить несколько деструкторов.

             Деструктор определяется совместно со всеми другими  методами
        объекта в определении типа объекта:

             tyрe
                TEmployee = object
                  Name: string[25];
                  Title: string[25];
                  Rate: Real;
                  constructor Init(AName, ATitle: String; ARate: Real);
                  destructor Done; virtual;
                  function GetName: String;
                  function GetTitle: String;
                  function GetRate: Rate; virtual;
                  function GetPayAmount: Real; virtual;
             end;

             Деструкторы можно наследовать,  и они могут быть либо стати-
        ческими,  либо виртуальными. Поскольку различные программы завер-
        шения обычно требуют различные  типы  объектов,  мы  рекомендуем,
        чтобы  деструкторы  всегда были виртуальными,  благодаря чему для
        каждого типа объекта будет выполнен правильный деструктор.

             Запомните, что зарезервированное слово destructor не  требу-
        ется указывать для каждого метода очистки,  даже если определение
        типа объекта содержит виртуальные методы.  Деструкторы в действи-
        тельности  работают  только с динамически размещенными объектами.
        При очистке динамически размещенного объекта, деструктор осущест-
        вляет  специальные  функции:  он  гарантирует,  что в динамически
        распределяемой области памяти всегда будет освобождаться правиль-
        ное  число  байтов.  Не может быть никаких опасений по поводу ис-
        пользования деструктора применительно  к  статически  размещенным
        объектам;  фактически,  не передавая типа объекта деструктору, вы
        лишаете объект данного типа полных преимуществ управления динами-
        ческой памятью в Borland Pascal.

             Деструкторы в  действительности становятся самими собою тог-
        да, когда должны очищаться полиморфические объекты и когда должна
        освобождаться  занимаемая  ими память.  Полиморфические объекты -
        это те объекты,  которые были присвоены родительскому типу благо-
        даря правилам совместимости расширенных типов Borland Pascal. Эк-
        земпляр  объекта  типа  THourly,  присвоенный   переменной   типа
        TEmployee, является примером полиморфического объекта. Эти прави-
        ла также могут быть применены к объектам;  указатель  на  THourly

         B.Pascal 7 & Objects /UG   - 235 -

        может свободно быть присвоен указателю на TEmployee,  а указуемый
        этим указателем объект опять же будет полиморфическим объектом.

             Термин "полиморфический" является подходящим,  так как  код,
        обрабатывающий объект,  не знает точно во время компиляции, какой
        тип объекта ему придется в конце концов обработать. Единственное,
        что он знает, это то, что этот объект принадлежит иерархии объек-
        тов, являющихся потомками указанного типа объекта.

             Очевидно, что размеры типов  объектов  отличаются.  Поэтому,
        когда  наступает время очистки размещенного в динамической памяти
        полиморфического объекта,  то как же Disрose узнает, сколько байт
        динамического пространства нужно освобождать? Во время компиляции
        из полиморфического объекта нельзя извлечь никакой информации от-
        носительно размера объекта.

             Деструктор разрешает  эту головоломку путем обращения к тому
        месту,  где эта информация записана: в ТВМ переменных реализаций.
        В каждой ТВМ типа объекта содержится размер в байтах данного типа
        объекта. Таблица виртуальных методов любого объекта доступна пос-
        редством  скрытого параметра Self,  посылаемого методу при вызове
        метода.  Деструктор является всего лишь разновидностью  метода  и
        поэтому,  когда  объект  вызывает его,  деструктор получает копию
        Self через стек.  Таким образом,  если объект является полиморфи-
        ческим  во время компиляции,  он никогда не будет полиморфическим
        во время выполнения благодаря позднему связыванию.

             Для выполнения этого освобождения памяти при позднем  связы-
        вании деструктор нужно вызывать, как часть расширенного синтакси-
        са процедуры Disрose:

             Disрose(P, Done);

             (Вызов деструктора вне процедуры Disрose вообще не выполняет
        никакого освобождения памяти.) Здесь происходит на самом деле то,
        что сборщик мусора объекта,  на который указывает P,  выполняется
        как обычный метод. Однако, как только последнее действие выполне-
        но, деструктор ищет размер реализации своего типа в ТВМ и пересы-
        лает  размер процедуре Disрose.  Процедура Disрose завершает про-
        цесс путем удаления правильного числа байт  пространства  динами-
        ческой  памяти,  которое (пространство) до этого относилось к P^.
        Число освобождаемых байт будет  правильным  независимо  от  того,
        указывал  ли  P  на экземпляр типа TSalaried,  или он указывал на
        один   из   дочерних   типов   типа   TSalaried,   например,   на
        TCommissioned.

             Заметьте, что  сам по себе метод деструктора может быть пуст
        и выполнять только эту функцию:

             destructor AnObject.Done;
             begin
             end;


         B.Pascal 7 & Objects /UG   - 236 -

             То, что делается полезного в этом деструкторе,  не  является
        достоянием  его  тела,  однако при этом компилятором генерируется
        код эпилога в ответ на зарезервированное  слово  destructor.  Это
        напоминает  модуль,  который  ничего не экспортирует,  но который
        осуществляет некоторые невидимые действия за счет выполнения сво-
        ей  секции  инициализации  перед стартом программы.  Все действия
        происходят "за кулисами".


                     Пример размещения динамического объекта
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Последний пример  программы  даст вам возможность приобрести
        некоторые навыки в использовании размещенных в динамической памя-
        ти объектов,  включая использование для удаления объекта деструк-
        тора.  Программа показывает, как в динамической памяти может быть
        создан  связанный  список  рабочих  объектов и как он за ненадоб-
        ностью может быть очищен при помощи деструктора.

             Построение связанного списка объектов требует,  чтобы каждый
        объект   содержал  указатель  на  следующий  объект  списка.  Тип
        TEmployee не содержит таких указателей.  Простым выходом из  этой
        ситуации было бы добавление указателя в TEmployee , благодаря че-
        му можно быть уверенным,  что все потомки TEmployee наследуют та-
        кой указатель.  Однако,  добавление чего-либо в TEmployee требует
        от вас наличия исходного кода,  а как говорилось ранее,  одним из
        преимуществ  объектно-ориентированного  программирования является
        возможность расширения объектов без необходимости их перекомпиля-
        ции.

             Решение, которое  не  требует  никаких  изменений TEmployee,
        создает новый тип объекта,  не являющийся потомком TEmployee. Тип
        StaffList представляет собой очень простой объект, целью которого
        является создание заголовков для объектов типа TEmployee. Так как
        TEmployee  не  содержит  никаких указателей на следующий объект в
        списке,  то простой тип записи TNode  осуществляет  этот  сервис.
        TNode даже проще, чем StaffList в том, что TNode не является объ-
        ектом, не содержит ни одного метода и не имеет никаких данных, за
        исключением  указателя  на тип TEmployee и указателя на следующий
        узел списка.

             TStaffList содержит метод,  который позволяет ему  добавлять
        нового  рабочего  в связанный список записей TNode путем внесение
        нового экземпляра TNode непосредственно после самого себя  в  ка-
        честве указуемого с помощью указателя поля TNodes. Метод Add при-
        нимает указатель на объект типа  TEmployee,  но  не  сам  объект.
        Из-за  расширенной совместимости типов Турбо Паскаля указатели на
        любого  потомка  типа  TEmployee  также  должны  передаваться   в
        TList.Add в параметре Item.

             Программа WorkList  описывает  статическую  переменную Staff
        типа TStaffList и строит связанный список из пяти  узлов.  Каждый
        узел указывает на отдельный рабочий объект, который является либо

         B.Pascal 7 & Objects /UG   - 237 -

        TEmployee,  либо одним из его потомков.  Перед созданием  каждого
        динамического объекта и после того, как объект создан, возвращает
        число байт свободной динамической памяти.  Наконец, полная струк-
        тура,   включающая  пять  записей  TNode  и  пять  объектов  типа
        TEmployee, очищается и удаляется из динамической памяти с помощью
        одного   вызова   деструктора  статического  объекта  Staff  типа
        TStaffList.


         B.Pascal 7 & Objects /UG   - 238 -


                    і

          List      і      Node           Node             Node
        ЪДДДДДДДї      ЪДДДДВДДДДї     ЪДДДДВДДДДї      ЪДДДДВДДДДї
        і       і   і  і    і    і     і    і    і      і    і    і
        і    OДДЕДДДД> і  O і  OДЕДДД> і  O і  OДЕДДДД> і  O і  OДЕДДДї
        і       і   і  і  і і    і     і  і і    і      і  і і    і   і
        АДДДДДДДЩ      АДДЕДБДДДДЩ     АДДЕДБДДДДЩ      АДДЕДБДДДДЩ   і
                    і     і               і                і        ДДБДД
                          v               v                v         ДДД
                    і ЪДДДДДДДДДДДДДї ЪДДДДДДДДДДДДДї ЪДДДДДДДДДДДДДї Д
                      і    Name     і і    Name     і і    Name     і
                    і ГДДДДДДДДДДДДДґ ГДДДДДДДДДДДДДґ ГДДДДДДДДДДДДДґ
                      і    Title    і і    Title    і і    Title    і
                    і ГДДДДДДДДДДДДДґ ГДДДДДДДДДДДДДґ ГДДДДДДДДДДДДДґ
                      і    Rate     і і    Rate     і і    Rate     і
                    і ГДДДДДДДДДДДДДґ ГДДДДДДДДДДДДДґ ГДДДДДДДДДДДДДґ
                      і             і і             і і             і
          Сегмент   і   Динамически распределяемая область
          данных        памяти (динамический)
        (статическиеі
         объекты)
                    і

             Рис. 9.2 Схема структур данных программы ListDemo.

            Удаление сложной структуры данных из динамической памяти

             Деструктор Staff.Done стоит того, чтобы рассмотреть его вни-
        мательно.  Уничтожение  объекта TStaffList включает удаление трех
        различных типов структур: полиморфических объектов рабочих струк-
        тур в списке,  записей TNode,  поддерживающих список,  и (если он
        размещен в динамической памяти) объект TList,  который озаглавли-
        вает список.  Весь процесс запускается путем единственного вызова
        деструктора объекта TStaffList:

             Staff.Done;

             Код деструктора заслуживает более подробного изучения:

             destructor StaffList.Done;
             var
              N: TNodePtr;
             begin
                 while TNodes <> nil do
             begin
                 N := TNodes;
                 Disрose(N^.Item, Done);
                 TNodes := N^.Next;
                 Disрose (N);
             end;
             end;

         B.Pascal 7 & Objects /UG   - 239 -


             Список очищается  начиная  с "головы" списка с помощью алго-
        ритма "из руки в руку",  который до некоторой степени  напоминает
        дерганье  за  веревку  воздушного змея:  два указателя (указатель
        TNodes внутри Staff и рабочий указатель N) изменяют свои ссылки в
        списке, тогда как первый элемент списка удаляется. Вызов процеду-
        ры  Disрose  освобождает  память,  занимаемую   первым   объектом
        TEmployee в списке (Item^),  затем TNodes продвигается на следую-
        щую запись списка с помощью оператора TNodes := N^.Next, сама за-
        пись TNode удаляется,  и процесс продолжается до полного очищения
        списка.

             Важным моментом в деструкторе Done является способ,  которым
        удаляются из списка объекты TEmployee:

             Disрose(N.Item, Done);

             Здесь N.Item является первым объектом TEmployee в списке,  а
        вызываемый метод Done является деструктором этого объекта. Запом-
        ните, что действительный тип N^.Item^ не обязательно является ти-
        пом TEmployee,  однако он может быть любым  дочерним  типом  типа
        TEmployee.  Очищаемый  объект  является полиморфическим и поэтому
        нельзя сделать никаких предположений  относительно  его  действи-
        тельного размера или точного его типа на этапе компиляции. В при-
        веденном выше вызове Disрose, как только Done выполнит все содер-
        жащиеся в нем операторы, "невидимый" код эпилога ищет размер реа-
        лизации очищаемого объекта в ТВМ этого объекта.  Метод Done пере-
        дает  размер процедуре Disрose,  которая затем освобождает точное
        количество динамической памяти, в действительности занимаемой по-
        лиморфическим объектом.

             Помните, что если должно освобождаться правильное количество
        динамической памяти,  то полиморфический объект должен  очищаться
        только посредством вызова передаваемого Disрose деструктора.

             В примере  программы Staff объявляется как статическая пере-
        менная в сегменте данных. Staff мог бы столь же легко разместить-
        ся  в  динамической памяти и "прикрепиться к реальному миру" пос-
        редством указателя типа ListPtr.  Если заголовок списка также яв-
        ляется  динамическим  объектом,  то удаление структуры можно осу-
        ществить путем вызова деструктора, выполняющегося внутри Disрose:

             var
               Staff: TStaffListPtr;
             begin
               Disрose(Staff, Done);
               .
               .
               .

             Здесь процедура Disрose вызывает метод деструктора Done  для
        очистки структуры в динамической памяти. Затем, когда Done завер-
        шается,  Disрose освобождает память,  на которую указывает Staff,

         B.Pascal 7 & Objects /UG   - 240 -

        удаляя,  как  правило,  из  динамической памяти также и заголовок
        списка.

             Программа WORKLIST.PAS (находящаяся на вашем диске)  исполь-
        зует  тот же модуль WORKERS.PAS,  что и раньше Она создает объект
        List, являющийся оглавлением связанного списка из пяти полиморфи-
        ческих объектов, совместимых с TEmployee, а затем удаляет всю ди-
        намическую структуру данных с помощью единственного вызова  дест-
        руктора Staff.Done.

                                 Что же дальше?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Как и во всяком другом аспекте  машинного  программирования,
        вы не преуспеете в объектно-ориентированном программировании, ес-
        ли будете только читать о нем,  но вы добъетесь результата,  если
        начнете программировать. Большинство людей, при первом столкнове-
        нии с объектно-ориентированном программированием, начинают бормо-
        тать  с придыханием;  "Я не могу постичь этого".  "Ага!" приходит
        позднее,  ночью,  когда целостная концепция является к нам в одно
        прекрасное мгновение, и мы, побросав свои никчемные дела, исполь-
        зуем это мгновение для обращения к богу. Как лицо женщины, возни-
        кающее из чернильных пятен Роша,  то,  что до этого было смутным,
        становится очевидным и затем легким.

             Самое лучшее,  что вы можете сделать в качестве первого шага
        в объектно-ориентированном программировании, так это взять модуль
        WORKERS.PAS (он находится на вашем диске) и  расширить  его.  Как
        только  вы воскликните "Ага!",  начинайте строить ориентированные
        на объекты концепции в вашей повседневной программистской  жизни.
        Возьмите несколько имеющихся утилит,  которые вы используете каж-
        дый день,  и переосмыслите их в ориентированных на объекты терми-
        нах.  Посмотрите  критически  на  "овощное рагу" вашей библиотеки
        процедур и попытайтесь найти в них объекты, затем перепишите про-
        цедуры в объектной форме.  Вы убедитесь,  что библиотеки объектов
        станет намного легче использовать в будущих проектах.  Даже самые
        незначительные  ваши  начальные  инвестиции  в программные усилия
        станут навсегда излишними.  У вас едва ли возникнет необходимость
        переписывать  объект с самого начала.  Если он работает как надо,
        то используйте его.  Если объекту чего-либо не хватает,  то  рас-
        ширьте его. Но если он работает хорошо, то нет смысла выбрасывать
        из него что-либо.

                                  Заключение
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Объектно-ориентированное программирование   является  прямым
        следствием усложнения современных приложений, усложнения, которое
        часто заставляет многих программистов в отчаянии вскидывать вверх
        руки.  Наследование и инкапсуляция являются максимально эффектив-
        ными  средствами  для управления сложностью.  (Существует разница
        между десятью тысячами насекомых,  классифицированных по таксоно-
        мической схеме,  и десятью тысячами насекомых, жужжащих возле ва-

         B.Pascal 7 & Objects /UG   - 241 -

        ших ушей.) Представляя  собой  значительно  большее,  чем  просто
        структурное программирование, объектно-ориентированное программи-
        рование вносит  рациональный  порядок  в  структуру  программного
        обеспечения ЭВМ,  что, как и таксономическая схема, устанавливает
        порядок, не устанавливая пределов.

             Добавьте сюда перспективы возможности расширения и повторно-
        му использования существующего кода и все это начнет звучать нас-
        только хорошо,  что будет походить на правду. Вы думаете, что это
        невозможно?

              Но это же Borland Pascal! Слово "невозможно" в нем не опре-
        делено.



         B.Pascal 7 & Objects /UG   - 242 -

ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
                           Глава 10. Взгляд на Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В данной  главе  содержится   обзор   программирования   для
        Microsoft Windows  с использованием Borland Pascal (с акцентом на
        объектно-ориентированное программирование).   В    представленном
        здесь примере  используется поставляемая с Borland Pascal библио-
        тека ObjectWindows.  Вы узнаете о поведении прикладной  программы
        Windows и о том, как с помощью ObjectWindows автоматизировать од-
        ни задачи и упростить другие.

             Чтобы извлечь из данной главы максимум пользы, вы должны по-
        нимать принципы объектно-ориентированного программирования.  Если
        вы не знакомы с объектно-ориентированным программированием,  про-
        читайте Главу  9 "Объектно-ориентированное программирование".  Вы
        должны также знать, как работать с Windows.



         B.Pascal 7 & Objects /UG   - 243 -

                          Что такое приложение Windows?
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             На Рис.   10.1   показаны   основные  компоненты  приложения
        Windows. Чтобы понять обсуждаемые темы,  вам должны быть  знакомы
        эти компоненты, и вы должны уметь с ними работать.

                                                     Кнопка минимизации
                                                 Кнопка максимизации і
                                 Строка заголовка                  і і
        Командная кнопка                і                          і і
        управления меню   Строка меню   і   Вертикальная полоса    і і
          і                і            і   прокрутки і            і і
        ЬЬіЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬіЬЬЬЬЬЬЬЬЬЬЬЬіЬЬЬЬЬЬЬЬЬЬЬЬЬіЬЬЬЬЬЬЬЬЬЬЬЬіЬіЬЬ
        ЫЙі[]НННННННННННННіННННННННННННіНННННННННННННіННННННННННННіНі»Ы
        Ыє±=±              і        Borland Pascal    і           і^іvєЫ
        ЫєДДДДДДДДДДДДДДДДДіДДДДДДДДДДДДДДДДДДДДДДДДДДіДДДДДДДДДДДБДБДєЫ
        Ыє File Edit Search Run Compile Tools Options іindows Help    єЫ
        ЫєДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДіДДДДДДДДДДДДДДДєЫ
        ЫєЙНННННННННННННННННННННННННННННННННННННННННННі»              єЫ
        Ыєє±=±      c:\bpw\helloapp.pas            і^ііє              єЫ
        ЫєєДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДБіє              єЫ
        Ыєє program Hello;                            ^є              єЫ
        Ыєє                                           ±є              єЫ
        Ыєє uses WObjects, WinTypes, WinProcs;        ±є              єЫ
        Ыєє                                           ±є              єЫ
        Ыєє type                                      ±є              єЫ
        Ыєє                                           Ьє              єЫ
        Ыєє { Define a TApplications descendant }     ±є              єЫ
        Ыєє THelloApp = object(TApplication)          ±є              єЫ
        Ыєє      procedure InitMaЙНННННННННННННННННННННННННННННННН»   єЫ
        Ыєє end;             і   єЫ=ЫЫЫЫЫЫGo to Line NumberЫЫЫЫЫЫЫє   єЫ
        Ыєє<±Ы±±±±±±±±±±±±±±±і±±±є                                є   єЫ
        ЫєИННННННННіНННННННННіНННє ±±Enter new line number±ЫЫЫЫЫv є   єЫ
        Ыє         і         і   є                                є   єЫ
        Ыє         і         і   є                                є   єЫ
        Ыє         і         і   є ЪДДДДДДДДїЪДДДДДДДДїЪДДДДДДДДї є   єЫ
        Ыє         і         і   є іы  OK   ііX Cancelіі?  Help і є   єЫ
        Ыє         і         і   є АДДДіДДДДЩАДДДДДДДДЩАДДДДДДДДЩ є   єЫ
        Ыє         і         і   є     і               і          є   єЫ
        Ыє         і         і   ИНННННіНННННННННННННННіННННННННННј   єЫ
        Ыє±±±1:1±±±і±±Insert±і±±±±±±±±±і±±±±±±±±±±±±±±±і±±±±±±±±±±±±±±єЫ
        ЫИНННННННННіНННННННННіНННННННННіНННННННННННННННіННННННННННННННјЫ
        ЫЫЫЫЫЫЫЫЫЫЫіЫЫЫЫЫЫЫЫЫіЫЫЫЫЫЫЫЫЫіЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫіЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ
                   і         і         і               і
                   і        Окно    Управляющий    Диалоговое окно
          Горизонтальная            элемент
          полоса прокрутки

             Рис. 10.1 Выводимые на экран компоненты приложения Windows.

             Приложение Windows - это специальный тип программы PC, кото-
        рая:

         B.Pascal 7 & Objects /UG   - 244 -


             - должна иметь специальный выполняемый формат файла (.EXE);

             - работать только с Windows;

             - обычно работать в прямоугольном окне на экране;

             - при выводе на экран следовать рекомендациям по стандартно-
               му интерфейсу с пользователем;

             - может  работать одновременно с другими программами Windows
               и прочими программами, включая другие экземпляры самое се-
               бя;

             - может  взаимодействовать и совместно использовать данные с
               другими приложениями Windows.

                              Преимущества Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Как для пользователей, так и для разработчиков Windows пред-
        лагает множество преимуществ, которые включают в себя:

             * Стандартные и предсказуемые операторы: если вы знаете, как
               использовать одно приложение Windows,  то сможете работать
               со всеми остальными.

             * Для каждого  приложения  нет  необходимости  устанавливать
               драйверы устройств  и устройства:  в Windows предусмотрены
               драйверы для поддержки периферийной аппаратуры.

             * Межпрограммное взаимодействие и связь.

             * Многозадачность:  возможность одновременно запускать  мно-
               жество программ.

             * Доступ к большему объему памяти:  Windows поддерживает за-
               щищенный режим.

             Для разработчиков эти преимущества включают в себя:

             * Независимую от устройств графику, благодаря чему графичес-
               кие приложения могут работать на всех стандартных дисплей-
               ных адаптерах.

             * Непосредственную поддержку широкого  диапазона  принтеров,
               мониторов и устройств типа "мышь".

             * Богатую библиотеку графических подпрограмм.

             * Больше памяти для больших программ.

             * Поддержку меню, пиктограмм, битовых массивов и др.

         B.Pascal 7 & Objects /UG   - 245 -



                                   Требования
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Обратной стороной  ряда  предлагаемых  Windows  пользователю
        преимуществ является  перечень  более строгих аппаратных требова-
        ний. В общем случае Windows требует для производительности, срав-
        нимой с приложением DOS лучших графических средств,  больших объ-
        емов памяти, более быстрых процессоров. Если вы располагаете про-
        цессором 80286  или  старше  и не менее 2 мегабайтами памяти,  то
        Windows будет прекрасно работать.


                              Программные средства
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Для разработчиков прикладных программ Windows предусматрива-
        ет широкий диапазон программных средств.


                      Архитектура с управлением по событиям
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Windows основана  на  архитектуре с управлением по событиям.
        Это означает,  что весь ввод от пользователя интерпретируется как
        события. Когда  событием является щелчок кнопкой "мыши" или нажа-
        тие клавиши клавиатуры,  то происходит событие, и Windows генери-
        рует сообщение. Например, если пользователь щелкает левой кнопкой
        "мыши", Windows генерирует сообщение wm_LButtonDown. Если пользо-
        ватель нажимает клавишу, Windows генерирует событие wm_KeyDown.

             При выборе  "мышью" или с помощью клавиатуры Windows интерп-
        ретирует все команды меню и  управляющие  команды  как  сообщения
        wm_Command. Эта архитектура с управлением по событиям отлично со-
        гласуется с объектно-ориентированным подходом Borland Pascal.


                        Графика, независимая от устройств
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Windows унифицирует процесс вывода на экран и печать в одном
        модуле, который называется интерфейсом с графическими устройства-
        ми (GDI)  и который обеспечивает общий интерфейс для каждой прог-
        раммы Windows.  Кроме того, в Windows предусмотрены драйверы уст-
        ройств для  большинства стандартных графических адаптеров и прин-
        теров. В результате система позволяет вам писать одно приложение,
        которое без изменений работает на большинстве существующих в мире
        аппаратных средствах.

             Графика, независимая от устройств, предлагает некоторые пре-
        имущества, которые не бросаются в глаза сразу. Одним из них явля-
        ется то,  что приложения Windows легкоустанавливаемы,  так как не

         B.Pascal 7 & Objects /UG   - 246 -

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

             Но графика,  независимая от устройств,  требует  жертв.  Для
        разработчика эти  "жертвы"  состоят в соблюдении в чем-то строгих
        требований GDI.  GDI ограничивает возможности программиста в про-
        ектировании приложений.


                                 Многозадачность
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Windows позволяет пользователям выполнять несколько приложе-
        ний параллельно, устраняя необходимость использования резидентных
        в памяти программ (TSR). В Windows реализована не просто многоза-
        дачность. Она поддержана набором средств и межпроцессорных комму-
        никаций, таких как буфер вырезанного изображения Clipboard и  ди-
        намический обмен данными (DDE).

             Windows управляет множеством приложений, ограничивая исполь-
        зование экрана каждым приложением одной или  более  прямоугольной
        областью,  которые называются окнами.  Эти окна можно перемещать,
        изменять их размер и временно сворачивать в пиктограммы, позволяя
        пользователю быстро переключаться от одной задачи к другой.

             С точки  зрения программиста это означает,  что программа не
        должна  записывать текст или графику непосредственно по  экранным
        адресам, а  должна  выводить их в пользовательскую область окна -
        область внутри рамки окна. Аналогично, прикладная программа долж-
        на использовать память компьютера совместно с другими приложения-
        ми. Хорошо построенное  приложение  Windows  корректно  соблюдает
        правила Windows работы с экраном и управления памятью.


                               Управление памятью
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             В типичном сеансе работы с Windows множество приложений мно-
        гократно открываются и закрываются,  поэтому нерационально загру-
        жать каждое приложение в память после предыдущего - Windows скоро
        исчерпает память.  Вместо этого Windows, чтобы удовлетворить пот-
        ребности других приложений или самой  Windows,  может  перемещать
        память большинства приложений в другую часть памяти или на диск.

             Таким образом, приложение Windows должно соответствовать ди-
        намическому распределению памяти Windows и избегать прямого обра-
        щения к адресам памяти. Например, традиционный указатель на ячей-
        ку памяти может быстро стать недопустимым,  когда  Windows  пере-
        распределит память, так как может указывать на ячейку памяти, ко-
        торая используется для чего-то еще.


         B.Pascal 7 & Objects /UG   - 247 -

             Вместо указателей Windows использует описатели,  которые  по
        существу представляют  собой указатели на указатели.  Описатели -
        это номера,  использующиеся в качестве индексов  в  обслуживаемой
        Windows таблице  указателей.  Таким  образом,  приложения Windows
        ссылаются на окно или содержимое экрана (область для  отображения
        на экране) по описателю. Имеются также указатели экземпляров при-
        ложений, строк,  средств отображения и ресурсов, таких как меню и
        пиктограммы.

             При обычной  работе  вам  не потребуется иметь дело с самими
        описателями. Вы можете выделять и освобождать память в динамичес-
        ки распределяемой  области  с  помощью  обычных  подпрограмм New,
        Dispose, GetMem и FreeMem,  а Borland Pascal будет взаимодейство-
        вать с  Windows  и обеспечивать для нее информацию о том,  на что
        фактически ссылаются эти указатели.

             Одним из основных преимуществ управления памятью  в  Windows
        является возможность совместно использовать в приложениях скомпи-
        лированный код. Например, если пользователь выполняет два экземп-
        ляра одного  и  того же приложения,  то эти приложения используют
        один и тот же скомпилированный код в памяти. Аналогично, приложе-
        ние может  динамически  загружать библиотечный модуль,  совместно
        используемый в нескольких прикладных программах.  Это  называется
        динамически компонуемой библиотекой - DLL.

                                     Ресурсы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Ресурсы представляют собой описания  устройств пользователь-
        ского интерфейса приложения Windows:  его меню,  диалоговых окон,
        курсоров, пиктограмм,  битовые массивы, строки и командные клави-
        ши. Windows обеспечивает средства для поддержки этих описаний вне
        исходного кода приложения.  Ресурсы приложения объединяются с его
        выполняемым файлом перед выполнением приложения. Чтобы ограничить
        использование памяти, приложение вызывает ресурсы в память только
        когда они необходимы.

             Отделение спецификаций  ресурса  от исходного кода имеет до-
        полнительное преимущество:  вы можете изменить вид приложения, не
        затрагивая исходного кода программы.  Фактически, для модификации
        ресурсов приложения вам не нужно даже иметь исходный код. Это об-
        легчает настройку или трансляцию существующих приложений Windows.

             Для создания  и настройки ресурсов Borland Pascal включает в
        себя пакет разработчика ресурсов Resourse Workshop.


                             Динамическая компоновка
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Windows позволяет  приложениям,  включая  программы  Borland
        Pascal, загружать и освобождать библиотечные модули на этапе ком-
        поновки. Эти  модули должны быть записаны в специальном выполняе-

         B.Pascal 7 & Objects /UG   - 248 -

        мом формате (EXE),  который  называется  динамически  компонуемой
        библиотекой (DLL).  Часто  эти библиотеки выполняют специальные и
        сложные задачи,  такие как преобразование форматов файлов. В этом
        случае программа  может  применять DLL как фильтры для экспорта и
        импорта файлов.  Кроме того,  DLL могут совместно  использоваться
        группой приложений,  что способствует совместному использованию и
        экономии памяти.


                          Буфер вырезанного изображения
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Буфер вырезанного  изображения Clipboard позволяет пользова-
        телям передавать информацию,  такую как текст,  графику и данные,
        между приложениями, между различными частями приложения или в ка-
        честве временной памяти для последующего использования. Например,
        программа обработки  текста  может использовать буфер вырезанного
        отображения для операций удаления, копирования и вставки текста.


                           Динамический обмен данными
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Динамический обмен данными (DDE) - это еще один механизм пе-
        редачи информации.  В то время как буфер вырезанного  изображения
        полностью находится  под  контролем  пользователя,  DDE выполняет
        "закулисную" работу под управлением программы.  Посылая DDE-сооб-
        щения, программа передает информацию другой программе.




         B.Pascal 7 & Objects /UG   - 249 -

                     Множественный документальный интерфейс
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Множественный документальный интерфейс  (MDI)  устанавливает
        соглашения по пользовательскому интерфейсу для создания окон, со-
        держащих внутри себя дочерние окна.  Примером MDI  может  служить
        интегрированная интерактивная среда для Windows Borland Pascal. В
        оперативной области Borland  Pascal  пользователь  может  открыть
        сразу несколько окон.  Каждое окно редактирования является дочер-
        ним окном.

        ЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬЬ
        ЫЙН[]ННННННННННННННННННННННННННННННННННННННННННННННННННННННННН»Ы
        Ыє±=±ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫBorland PascalЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫі^іvєЫ
        ЫєДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДБДєЫ
        Ыє File Edit Search Run Compile Tools Options Windows Help     єЫ
        ЫєДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДєЫ
        ЫєЙНННННННННННННННННННННННННННННННННННННННННННН»               єЫ
        Ыєє±=±      c:\bpw\helloapp.pas            і^іvє               єЫ
        ЫєєДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДБДБДє               єЫ
        Ыєє program Hello;                            ^є               єЫ
        Ыєє                                           ±є               єЫ
        Ыєє uses WObjects, WinTypes, WinProcs;        ±є               єЫ
        Ыєє                                           ±є               єЫ
        Ыєє type                                      ±є               єЫ
        Ыєє                                           Ьє               єЫ
        Ыєє { Define a TApplications descendant }     ±є               єЫ
        Ыєє THelloApp = object(TApplication)          ±є               єЫ
        Ыєє      procedure InitMainWindow; virtual;   vє               єЫ
        Ыєє<±Ы±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±>±є               єЫ
        ЫєИННННННННННННННННННННННННННННННННННННННННННННј               єЫ
        Ыє                                                             єЫ
        Ыє                                                             єЫ
        Ыє                                                             єЫ
        Ыє±±±1:1±±±±±±Insert±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±єЫ
        ЫИНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННјЫ
        ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ

             Рис. 10.2  Окна  IDE для Windows Borland Pascal - приложение
        MDI.



         B.Pascal 7 & Objects /UG   - 250 -

                               Типы данных Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Благодаря схеме управления данными Windows и ее подобию язы-
        ку программирования Си,  программированию для Windows  с  помощью
        Borland Pascal  способствуют  некоторые  специализированные  типы
        данных. Например,  описатель окна  сохраняется  под  типом  HWnd.
        Borland Pascal и ObjectWindows определяют новые типы, содействую-
        щие работе с таким типом как HWnd. Все эти новые типы и структуры
        данных описаны в "Руководстве по программированию с использовани-
        ем ObjectWindows".


                    Объектно-ориентированная работа с окнами
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Как можно видеть, программирование в многооконной среде тре-
        бует знания многих событий,  форматов, описателей и других прило-
        жений,  поэтому  разработка  программы  Windows  может показаться
        трудной задачей. К счастью, объектно-ориентированное программиро-
        вание  упрощает  задачу программирования для многооконной среды и
        позволяет разработчику прикладной  программы  сосредоточиться  на
        функциях  приложения,  а  не на его форме.  Используя объекты для
        представления таких сложных структур как окна,  программы Borland
        Pascal  могут  инкапсулировать  свои  операции и хранение данных.
        Этой цели служит ObjectWindows.

             Объектно-ориентированное программирование  обеспечивает   ту
        основу, в  рамках  которой программист может использовать объекты
        для представления элементов интерфейса с пользователем  программы
        Windows. Это означает, что окно является объектом.

             Окно ObjectWindows  объектные типы прикладной программы под-
        держивают  требуемую от программы Windows работу  с  сообщениями,
        значительно упрощая  взаимодействие программиста с пользователем.
        Фактически, объекты ObjectWindows представляют  не  только  окна,
        они представляют  диалоговые блоки и управляющие элементы,  такие
        как блоки списка и командные кнопки.


                           Лучший интерфейс с Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             ObjectWindows использует объектно-ориентированные расширения
        Borland Pascal для инкапсуляции прикладного  программного  интер-
        фейса Windows  (API), скрывая  от вас детали программирования для
        Windows. В результате вы  можете  использовать  IDE  для  Windows
        Borland Pascal для написания программ Windows, затрачивая сущест-
        венно меньше времени и усилий,  чем это потребовалось бы при  не-
        объектно-ориентированном программировании.  ObjectWindows предус-
        матривает три полезных средства:  инкапсуляцию  информации  окна,
        абстракцию  функций API Windows и автоматический ответ на сообще-
        ния.

         B.Pascal 7 & Objects /UG   - 251 -

                              Интерфейсные объекты

             Хотя библиотека ObjectWindows определяет объекты  для  окон,
        диалоговых окон  и  управляющих  элементов,  она  предусматривает
        только поведение объектов,  их атрибуты и типы данных. Физической
        реализацией, визуальным отображением элемента на экране, управля-
        ет сама Windows. Таким образом, объекты ObjectWindows, которые мы
        называем интерфейсными объектами, взаимодействуют с соответствую-
        щими визуальными элементами,  которые мы  называет  интерфейсными
        элементами. Успешное  управление взаимодействием объект/элемент -
        это ключ к успешному программированию в Windows с  использованием
        ObjectWindows.

             Взаимодействие объект/элемент осуществляется через описатель
        окна. Когда вы строите интерфейсный объект,  одной из его функций
        является указание  Windows  на  создание  интерфейсного элемента.
        Windows возвращает идентифицирующий этот элемент описатель, кото-
        рый объект  сохраняет  в  поле  с именем HWindow.  Многие функции
        Windows воспринимают описатель окна в качестве параметра, поэтому
        сохранение его  в поле поддерживает готовность доступа к оконному
        объекту. Аналогично,  поля интерфейсного объекта можно  использо-
        вать для сохранения информации о средствах отображения или инфор-
        мации о состоянии конкретного окна.

                         Абстрагирование функций Windows

             Приложения Windows управляют своим видом и поведением  путем
        вызова функций Windows - набора почти из 600 функций,  образующий
        интерфейс с прикладной программой Windows (API).  Каждая  функция
        воспринимает разнообразные параметры различных типов, которые мо-
        гут быть достаточно запутанными. Хотя из Borland Pascal вы можете
        непосредственно вызывать любую функцию Windows, ObjectWindows уп-
        рощает задачу, предлагая объектные методы, абстрагирующие функци-
        ональные вызовы.

             Как отмечалось   выше,  многие  из  параметров  для  функций
        Windows уже записаны в полях интерфейсных объектов.  Таким  обра-
        зом, методы  могут  использовать эти данные для подстановки пара-
        метров для функций Windows.  Кроме того, ObjectWindows группирует
        родственные функциональные  вызовы  в отдельных методах,  которые
        выполняют задачи более высокого уровня.  Результатом является уп-
        рощенный и простой в использовании интерфейс API,  улучшающий су-
        ществующий API Windows.

             Хотя такой подход существенно уменьшает вашу зависимость  от
        сотен функций  API Windows,  он не запрещает вам вызывать API не-
        посредственно. ObjectWindows предлагает лучшее из обоих  "миров":
        объектно-ориентированную разработку высокого уровня,  плюс макси-
        мальное управление графической операционной средой.

                        Автоматизация ответа на сообщения

             Кроме сообщения операционной среде Windows,  что надо что-то

         B.Pascal 7 & Objects /UG   - 252 -

        сделать, большинство приложений должны иметь возможность отвечать
        на сотни сообщений Windows, являющихся результатом действий поль-
        зователя (например, щелчка кнопкой "мыши"), других приложений или
        прочих источников.  Корректная обработка сообщений и ответ на них
        является  решающим  для правильной работы вашей программы.  Кроме
        того,  ваша программа должна как-то отвечать на выбор меню,  и  в
        ответ на конкретное сообщение реализовать это не трудно. Но напи-
        сание программы,  которая знает как отвечать почти на 200 различ-
        ных  сообщений  Windows,  также затруднительно,  как вызов нужных
        функции Windows.

             Объекты с их предопределенным поведением (методами) прекрас-
        но подходят  для  задачи ответа на внешние воздействия (сообщения
        Windows). ObjectWindows превращает сообщения Windows в вызовы ме-
        тодов Borland Pascal.  Таким образом,  с помощью ObjectWindows вы
        просто определяете метод для ответа на каждое сообщение,  которое
        вам нужно обрабатывать в программе.  Например, когда пользователь
        щелкает левой  кнопкой  "мыши",  Windows   генерирует   сообщение
        wm_LButtonDown. Если  вы хотите,  чтобы окно или управляющий эле-
        мент в вашей программе реагировали на такие нажатия  кнопки  "мы-
        ши", нужно определить метод WMLButtonDown, настроенный на сообще-
        ние wm_LButtonDown.  Затем, когда Windows посылает это сообщение,
        ваш объект автоматически вызывает определенный вами метод.

             Такие методы  называются  методами ответа на сообщение.  Без
        объектно-ориентированного программирования  и  ObjectWindows  вам
        пришлось бы написать длинный оператор case для каждого окна и уп-
        равлять поступлением этого сообщения, отсортировывать вид сообще-
        ния и наконец,  решать,  что с ним делать. ObjectWindows берет на
        себя все эти функции.


         B.Pascal 7 & Objects /UG   - 253 -

                           Структура программы Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             При наличии  такого  множества  взаимодействующих  элементов
        программного обеспечения как DOS,  Windows и прикладные программы
        полезно знать о том, какие части ваших приложений Windows взаимо-
        действуют с окружающей их программной средой.  В  данном  разделе
        исследуется структура  типичных приложений Windows,  написанных в
        Borland Pascal with Objects.

                                Структура Windows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             На этапе  выполнения функциональные возможности Windows и ее
        API сосредоточены в трех библиотечных модулях, вызываемых работа-
        ющими в данный момент приложениями. Это следующие модули Windows:

             * KERNEL.EXE  -  управляет распределением памяти и ресурсов,
               выполняет планирование и взаимодействие с DOS.

             * GDI.EXE - выводит на экран и на принтер графику.

             * USER.EXE - работает с окнами, вводом данных от пользовате-
               ля и коммуникациями.

             Эти модули  являются  компонентами  распространяемой  версии
        Windows, поэтому пользователи Windows могут  найти  их  на  своих
        дисках. Поставляемые  программы используют эти библиотечные моду-
        ли; он не включают их.

                         Взаимодействие с Windows и DOS
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

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

             Аналогичное правило  действует  для программы Windows.  Пос-
        кольку Windows предлагает значительно большее число  функциональ-
        ных вызовов операционной системы,  взаимодействие между Windows и
        вашей программой отследить значительно труднее.  Например,  чтобы
        вывести графику  на экран,  ваша программа должна вызвать функцию
        GDI Windows.  Для реакции на нажатие пользователем кнопки  "мыши"
        программа  должна определять метод реакции (ответа) на сообщение.
        Ваша программа должна непрерывно взаимодействовать с операционной
        системой (DOS + Windows).



         B.Pascal 7 & Objects /UG   - 254 -

                             Элементарная программа
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Традиционным введением в  новый  язык  программирования  или
        операционную среду   является   программа,   выводящая  сообщение
        "Hello, Word!",  написанная на данном языке или для данной опера-
        ционной среды. Это программа содержит количество программного ко-
        да, достаточное для вывода на экран строки "Hello, Word!".

             Конечно, в Windows нужно  сделать  значительно  больше.  Вам
        нужно вывести  окно,  записать в него текст и сделать так,  чтобы
        окно взаимодействовало с "окружающим миром",  по крайней мере  вы
        должны иметь возможность закрыть окно и выйти. Если вы будете де-
        лать все это с самых основ,  то даже для выполнения этих  элемен-
        тарных задач  потребуется  очень  большой  объем кода.  Например,
        программа GENERIC.PAS, содержащаяся на дистрибутивных дисках, вы-
        полняя такие элементарные действия, занимает более 100 строк.

             Это связано  с  тем,  что предъявляет к прикладной программе
        ряд требований,  которые та должна удовлетворять перед  тем,  как
        она сможет работать в Windows.  Даже простейшая программа требует
        большого объема исходного кода.  К счастью, программы, написанные
        с использованием ObjectWindows,  автоматически удовлетворяют этим
        требованиям (включая создание и вывод на экран основного  окна  и
        сохранение для приложения описателя окна).  Таким образом,  прог-
        рамма "Hello, Word!" сокращается всего до 16 строк.

             program HelloApp;

             uses WObjects;

             type
               THelloWord = object(TApplication)
                  procedure InitMainWindow; virtual;
               end;

             procedure THelloWord.InitMainWindow;
             begin
                 MainWindow := New(PWindow,
                                     Init(nil, 'Hello, Borland Pascal'));
             end;

             var HelloWord: THelloWord;

             begin
                HelloWord.Init('HelloWord');
                HelloWord.Run;
                HelloWord.Done;
             end.

                         Действия программы при запуске

             При запуске  программа ObjectWindows должна сначала получить

         B.Pascal 7 & Objects /UG   - 255 -

        от Windows четыре значения и сохранить их в соответствующих  гло-
        бальных переменных.  (Это происходит автоматически, но если бы вы
        писали программу,  не используя ObjectWindows,  то пришлось бы об
        этом позаботиться.)

             * В HInstance сохраняется описатель экземпляра программы.

             * В  HPrevInst  сохраняется  описатель последнего экземпляра
               той же прикладной программы.

             * В CmdShow записывается целое значение,  представляющее на-
               чальный режим вывода основного окна.  Оно используется для
               вызова метода Show.

             * В CmdLine записывается командная строка вызова  прикладной
               программы, включая   параметры   и   имя  файла,  например
               "CALC.EXE /M" или "WORDPROC.EXE LETTER1.DOC".

             Как приложение  ObjectWindows,  программа  HelloApp   должна
        строить и инициализировать объект основного окна.  Она может ини-
        циализировать только первый экземпляр HelloApp с  помощью  метода
        InitApplication, либо  инициализировать каждый экземпляр HelloApp
        с помощью метода InitInstance.

             HelloApp начинает цикл сообщения,  вызывая метод Run.  Нако-
        нец, она  завершается путем освобождения объекта прикладной прог-
        раммы с помощью метода Done.

                            Назначение основного окна

             Основное окно прикладной программы - это окно первоначально-
        го вывода  прикладной  программы при ее запуске.  Оно отвечает за
        представления пользователю списка  доступных  команд  (меню).  Во
        время сеанса  работы с прикладной программой основное окно управ-
        ляет интерфейсом прикладной программы и во многих случаях являет-
        ся единственной рабочей областью программы,  создавая,  когда это
        требуется, диалоговые окна. Другие, более сложные приложения, мо-
        гут использовать в качестве рабочих областей несколько окон. Ког-
        да пользователь закрывает основное окно,  он инициализирует  про-
        цесс закрытия прикладной программы.



         B.Pascal 7 & Objects /UG   - 256 -

                      Цикл разработки прикладной программы
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Из-за наличия определенных требований ко  многим  прикладным
        программам Windows  (например,  инициализация основного окна) вам
        будет легче всего начать писать программу, используя существующее
        приложение Windows   и  приспосабливая  его  для  своих  нужд.  В
        ObjectWindows вы можете найти много примеров  программ.  Выберите
        для своего приложения наиболее подходящую.

             Используя в Windows интегрированную интерактивную среду раз-
        работки программ, вы значительно сократите время разработки. Бла-
        годаря многозадачным  возможностям  Windows,  вы можете запустить
        IDE, Resource Workshop и свою прикладную программу  одновременно.
        Поставляемые с Borland Pascal for Windows инструментальные средс-
        тва не только облегчают каждую задачу, но и сокращают число задач
        при разработке приложения Windows. По существу, это процесс можно
        сократить до следующих нескольких шагов:

             1. Создание исходного кода программы и включение в программу
                имен файлов ресурсов, которые будут использоваться по ди-
                рективе {$R имя_файла}.

             2. Создание ресурсов для диалоговых окон, меню и т.д.

             3. Компиляция программы.

             4. Интерактивная отладка программы.

                             Изучение ObjectWindows
        ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

             Теперь, когда  вы поняли основы программирования в Windows и
        имеете начальные сведения об ObjectWindows, можете начинать прог-
        раммировать. Начните  с чтения "Руководства по программированию с
        использованием ObjectWindows" и шаг за шагом изучите,  как разра-
        батывать приложение ObjectWindows.



?????? ???????????