|
PROCEDURE GetAppointment(VAR list: ListOfAppointments; VAR appointment: Appointment) : BOOLEAN; BEGIN IF list.cursor = NIL THEN RETURN FALSE ELSE appointment := list.cursor.appointment; list.cursor := list.cursor.next; RETURN TRUE END; END GetAppointment; |
Situation nach dem 1. Aufruf von GetAppointment:
|
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |