Этот пример демонстрирует, как можно обратиться к переменным и процедурам одного модуля из другого. Для демонстрации примера приведены два модуля.
MODULE TestExport;
VAR
str-:ARRAY 40 OF CHAR;
rVal*: REAL;
BEGIN
str:='Вася Пупкин';
rVal:=10.5
END Export.
В этом модуле определены две экспортируемые переменные:
Если попытаться изменить str — компилятор Компонентного Паскаля выведет маркер ошибки, нажав на который появится сообщение, что изменять эту переменную нельзя.
MODULE TestImport;
IMPORT TestExport, Log;
PROCEDURE Start*;
BEGIN
Log.String(TestExport.str); Log.Ln;
TestExport.str:='Петя Телевизоров'; (* <- эта строка недопустима!!! *)
Log.Real(TestExport.rVal); Log.Ln;
TestExport.rVal:=50.1;
Log.Real(TestExport.rVal); Log.Ln
END Start;
END TestImport.
^TestImport.Start
В таком виде этот модуль скомпилировать невозможно. Присвоение строке запрещено.
В отличии от FreePascal (и многих других идеологически устаревших языков) в Компонентном Паскале всё, что не помечено на экспорт — скрыто. Это выверенное решение и абсолютно логичное. Никому не понравится купленная в магазине микроволновка, у которой все провода висят наружу.