|
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.
|
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |