Löschen von Einträgen

AddressBook.om

(* delete an entry with the given name *) Write.String("Name: "); Read.Line(name); index := 0; WHILE (index < maxentries) & (~addressBook[index].used OR (addressBook[index].name # name)) DO INC(index); END; IF index = maxentries THEN Write.Line("Sorry, not found!"); ELSE addressBook[index].used := FALSE; END;

Das Löschen ist sehr ähnlich zum Suchen. Nur wird der Eintrag nicht ausgegeben, sondern das used-Feld wird nur auf FALSE gesetzt.