Typ-Erweiterungen III

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel] 

PROCEDURE Move(VAR go: GraphicalObject; newx, newy: INTEGER);
BEGIN
   go.x := newx;
   go.y := newy;
END Move;

*Move kann für eine beliebige Erweiterung von GraphicalObject aufgerufen werden; so ist z.B.
Move(circle, 0, 0);
zulässig.
 
*Bei VAR-Parametern findet eine Projektion nicht statt.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999