Различия

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

--- bb:redbook:210 [2019/07/24 10:10]
caufman [3. Расширяемые типы]
+++ bb:redbook:210 [2019/07/24 10:20]
caufman [4. Ограниченные типы]
@@ Строка 75: / Строка 75: @@
 Пример приводится ниже:
+  MODULE Test_limited;
+  TYPE
+      tVector = LIMITED RECORD
+          x: REAL;
+          y: REAL;
+      END;
+      tMyVector1 = RECORD (tVector)
+          z: REAL;
+      END;
+  VAR
+      v: tVector;
+      v1: tMyVector1;
+  BEGIN
+  END Test_limited.
 Как видно в примере, при попытке его скомпилировать, возникла ошибка. Так как тип-потомок также должен наследовать атрибут ограничения.
 Исправленный пример ниже:
+  MODULE Test_limited;
+  TYPE
+      tVector = LIMITED RECORD
+          x: REAL;
+          y: REAL;
+      END;
+      tMyVector1 = LIMITED RECORD (tVector)
+          z: REAL;
+      END;
+  VAR
+      v: tVector;
+      v1: tMyVector1;
+  BEGIN
+  END Test_limited.
 И как видно, никаких вопросов у компилятора к программисту не возникает. [↑]