Das Durchlaufen einer Liste II

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

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:
 

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