Typ-Erweiterungen

TYPE GraphicalObject = RECORD x, y: INTEGER; (* center point *) END; Rectangle = RECORD (GraphicalObject) width, height: INTEGER; END; Circle = RECORD (GraphicalObject) radius: INTEGER; END;

Record-Typen können als Erweiterung eines anderen Record-Typs definiert werden. In diesem Falle wird der zu erweiternde Record-Typ in Klammern unmittelbar hinter dem Schlüsselwort RECORD angegeben.

Ein Record-Typ kann nur die Erweiterung eines anderen Record-Typs sein -- nicht von mehreren. Somit ergibt sich die Struktur eines Baumes bzw. die mehrerer Bäume.

	Record-Typen können als Erweiterung eines anderen Record-Typs definiert werden. In diesem Falle wird der zu erweiternde Record-Typ in Klammern unmittelbar hinter dem Schlüsselwort RECORD angegeben.
	Ein Record-Typ kann nur die Erweiterung eines anderen Record-Typs sein -- nicht von mehreren. Somit ergibt sich die Struktur eines Baumes bzw. die mehrerer Bäume.