|
CalendarMan.om |
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 Andreas Borchert, in HTML konvertiert am 29.06.1999 |