Различия

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

--- cp:obx-export [2017/12/27 08:21]
иван_денисов создано
+++ cp:obx-export [2020/10/29 07:08] (текущий)
@@ Строка 6: / Строка 6: @@
 ==== Модуль для экспорта ====
-<code oberon2>
+<code>
 MODULE TestExport;
 VAR
@@ Строка 16: / Строка 16: @@
 END Export.
 </code>
-В этом модуле определены два экспортируемых члена:
+В этом модуле определены две экспортируемые переменные:
   * str --- только для чтения (со знаком '-')
   * rVal --- на чтение и запись (со знаком '*')
-Если попытаться изменить **str** --- компилятор **Компонентного Паскаля** грязно выругается и сообщит, что изменять эту переменную нельзя.
+Если попытаться изменить **str** --- компилятор **Компонентного Паскаля** выведет маркер ошибки, нажав на который появится сообщение, что изменять эту переменную нельзя.
 ==== Второй модуль ====
-<code oberon2>
+<code>
 MODULE TestImport;
-IMPORT e:=TestExport, sl:=StdLog;
+IMPORT TestExport, Log;
 PROCEDURE Start*;
 BEGIN
-    sl.String(e.str);sl.Ln;
+    Log.String(TestExport.str); Log.Ln;
-    e.str:='Петя Телевизоров'; (* <- эта строка недопустима!!! *)
+    TestExport.str:='Петя Телевизоров'; (* <- эта строка недопустима!!! *)
-    slReal(e.rVal);sl.Ln;
+    Log.Real(TestExport.rVal); Log.Ln;
-    e.rVal:=50.1;
+    TestExport.rVal:=50.1;
-    slReal(e.rVal);sl.Ln
+    Log.Real(TestExport.rVal); Log.Ln
 END Start;
 END TestImport.
 ^TestImport.Start
 </code>

Инструменты пользователя

Инструменты сайта

Различия

Инструменты страницы