1) Визначення модуля
2) Структура модуля
3) Створення модуля.
4) Підключення модуля.
5) Модуль CRT
6) Модуль DOS
Модульність - це властивість системи, яка може бути поділена незалежні частини. Кожна з частин призначена для виконання конкретної дії.
Модуль не може самостійно виконуватись, він тільки підключається до програм для використання.
Модуль компілюється незалежно від програми. Модуль має розширення .tpu. Ім’я модуля завжди повинно співпадати з ім’ям файлу, в якому він знаходиться.
Щоб підключити модуль до програми використовується директива USES, в якій вказується ім’я модуля.
Структура модуля складається з 4 частин:
- заголовок модуля (UNIT <ім’я модуля>;).
- розділ оголошень (INTERFACE)
- розділ реалізацій (IMPLEMENTATION)
- розділ ініціалізації ([begin].....end.)
Заголовок модуля
Визначає ім¢я по якому модуль буде підключатись до програм.
Формат заголовку
Unit <ім¢я модуля>;
<ім¢я модуля> обов¢язково повинно співпадати з ім¢ям фізичного файлу, в якому буде збережено текст модуля.
Розділ оголошень.
Розділ оголошень може включати модулі, що підключаються, опис типів, констант, змінних, які будуть привноситись в програму при підключенні модуля. Тут також, описуються заголовки підпрограм, що складають бібліотеку. Все, що описано в цьому розділі буде доступно програмам, що підключають модуль.
Формат розділу
INTERFACE
[Uses ...]
[Const ...]
[Type ...]
[Var ...]
procedure ...;
function ...;
...
Розділ реалізації
Розділ реалізації складається з тіл процедур та функцій, що об’явлені в розділі оголошень. В розділі можуть бути оголошені модулі, свої типи, константи, змінні, які будуть глобальними тільки для підпрограм цього розділу.
Формат розділу
IMPLEMENTATION
[Uses ...]
[Const ...]
[Type ...]
[Var ...]
procedure ...;
begin ... end;
...
function ...;
begin ...end;
Розділ ініціалізації.
Розділ ініціалізації може включати діє, які потрібно виконати один раз при підключенні модуля. Якщо цей розділ відсутній - ставиться тільки слово – end..
Формат розділу
[begin
... ]
end.
Приклад .
unit mоd;
interface
type
tx = array [1...32500] оf byte;
procedure fr (a,d:real);
function fn (x:real):real;
implementation
uses crt, dos;
procedure pr;
begin
:
end;
function fn(x:real):real;
begin
:
end;
end.
