2009-05-20 19:01:44 procedure Bestellung_an_Liste (B_L : in out Liste; B : in Bestellung) is C : B_Liste.Cursor := Cursor_Listen_Anfang (B_L); T : Bestellung; Gefunden : Boolean := false; begin while Ist_Cursor_Zulaessig (C) and not Gefunden loop T := Inhalt_An_Cursor (C); Gehe_Vorwaerts (C); if T.ID = B.ID then T.ausstehende_Lieferung := T.ausstehende_Lieferung + B.ausstehende_Lieferung; Bearbeite_An_Cursor (T, C); Gefunden := true; end if; end loop; if not Gefunden then Anhaengen_Hinten (B_L, B); end if; end Bestellung_an_Liste; procedure Bearbeite_An_Cursor (Item : in Inhalts_Typ; C : in Cursor) is begin C.all.Inhalt := Item; end Bearbeite_An_Cursor;