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