, en enkel procedure, der accepterer en liste af dristige genstande og lister til at forpligte sig til databasen, og ofte er det nødvendigt at begå et enkelt formål eller flere genstande til databasen.denne procedure accepterer en liste over genstande og objekt lister, tilføjer dem alle sammen til en enkelt liste og forpligter dem i en enkelt operation.,,,,, procedure updatedatabasewithobjects (objs: vifte af denne);,, var, jeg: heltal,, bie: tboldindirectelement;,, lstobjs: tboldobjectlist;,, currobj: tboldelement;,, begynder, lstobjs: = 0,,, bie: = nul;,,,, lstobjs: = tboldobjectlist. skabe;,, bie: = tboldindirectelement. skabe;,,, jeg: = 0 længde (objs) - 1 - begynder, currobj: = objs [i]. vobject som tboldelement,,,,,, hvis ikke tildelt (currobj), fortsat;,,, hvis ikke (currobj er tboldobject) eller (currobj er tboldobjectlist)), med undtagelse af. skabe ('updatedatabasewithobjects: kun kan ajourføre tboldobject eller tboldobjectlist), ellers begynder, currobj. getaslist (bie);,, lstobjs. addlist (bie. værdi som tboldlist);,,,,,,,,,, hvis lstobjs.count > 0,, lstobjs [0]. boldsystem. updatedatabasewithlist (lstobjs); og endelig, lstobjs. gratis;,, bie. fri,,,,,,,,,,,,,