Доступность модуля для программы

Скопируйте свой новый файл .TPU, .TPW или .TPP в каталог мо-

дулей, заданный в диалоговом окне Options|Directories, или ис-

пользуйте параметр командной строки /U при работе с компилятором

режима командной строки.

Если вы поместите свой модуль в заданный каталог модулей, то

сможете ссылаться на этот модуль, даже если он не находится в те-

кущем каталоге или в библиотеках исполняющей системы.

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

новый модуль, оператор uses. Например, если ваш новый модуль на-

зывается INTLIB.TPW, то задайте в своей программе оператор следу-

ющего вида:

uses IntLib;

Чтобы найти модуль, имя которого указано в операторе uses,

Borland Pascal проверяет его наличие в библиотеке исполняющей

системы, загруженной в память в время инициализации.

Примечание: О том, как поместить модуль в библиотеку

исполняющей системы, рассказывается ниже.

Если модуль в библиотеке исполняющей системы отсутствует, то

компилятор ищет его на диске, сначала в текущем каталоге, затем в

каталогах, заданных в качестве каталогов модулей (Options|

Directories). Компилятор предполагает, что имя файла совпадает с

именем модуля, а расширение имени файла - это .TPU, .TPW или

.TPP. Исходный текст модуля имеет расширение .PAS.

Пример

Теперь напишем небольшой модуль. Назовем его 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 }