Übersicht durch kleine Zugriffs-Operationen

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

AddressBook2.om
PROCEDURE FindFreeSlot(addressBook: AddressBook;
                       VAR index: INTEGER) : BOOLEAN;
   (* look for an unused slot within the address book;
      set index and return TRUE, if successful;
      return FALSE if there are no free slots left
   *)
BEGIN
   index := 0;
   WHILE (index < maxentries) &
         addressBook[index].used DO
      INC(index);
   END;
   RETURN index < maxentries
END FindFreeSlot;

*Einzelne Operationen wie beispielsweise das Finden eines freien Feldes im Array lassen sich elegant in einzelne Prozeduren packen.
 

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