Пример 1.14

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

Unit U1; {Раздел Unit модуля U1}

Interface {Интерфейсный раздел}

Uses Dos;

Const

MyValue = 724;

Type

Ned = (Pn, Vt, Sr, Ch, Pt, Sb, Vs);

Var

D: Ned;

Procedure SetNed (Var Den: Ned);

Function WeekEnd: Boolean;

Implementation {Раздел реализации}

Uses U2;

Var

D1, D2, D3: Ned;

Procedure SetNed;

Begin

<Тело процедуры SetNed>

End;

Function WeekEnd;

Begin

<Тело функции WeekEnd>

End;

Begin {Раздел инициализации}

D:= Pn

End. {Конец модуля U1}

Program Main; {Программный модуль (главная программа)}

Uses U1; {Предложение использования в программном модуле}

Var

X: Ned;

B: Boolean;

I: Integer;

...

Begin

...

SetNed (X); {Вызов процедуры, описанной в модуле U1}

...

B:= WeekEnd; {Вызов функции, описанной в модуле U1}

...

I:= MyValue; {Обращение к константе, описанной в модуле U1}

...

Написанный модуль U1 должен быть помещен в файл U1.pas, затем откомпилирован с директивой

Destination = Disk.

Результат компиляции – файл U1.tpu.

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

Чтобы найти модуль, указанный в предложении Uses программы, компилятор вначале просматривает библиотеку Turbo.tpl (это библиотека, в которой хранятся стандартные модули языка Паскаль – Dos, Crt и т.д.). Если нужного модуля здесь нет, то он ищется в текущем каталоге (в том, где находится программный модуль), а затем – в каталоге модулей, заданном командой Options / Directories / Unit Directories интегрированной среды Турбо Паскаль. Поэтому желательно файл U1.tpu поместить или в текущий каталог, или в каталог модулей (его можно задать в окне ввода Options / Directories / Unit Directories).

Если файл модуля находится в другом месте или имя файла не совпадает с именем модуля (например, модуль Unit U1, а имя файла, в котором он находится – Unit1.pas), то компилятору необходимо передать нужное имя файла (если он в другом месте – то с путем к нему) с помощью директивы компилятора

{$U <Имя_файла>}

Этой директиве передается имя файла с расширением pas. Данная директива должна быть помещена непосредственно перед именем модуля в предложении Uses. Например,

Uses Dos, Crt, {$U Unit1.pas} U1;

1.6.3. Особенности работы с модулями