,, boldsystemhandle har en updatedatabase metode for alle genstande, men hvordan vil du ajourføre de enkelte genstande?,, procedure updatedatabasewithobjects (genstande: række tboldobject; system: tboldsystem);,, var, jeg: heltal,, objectlist: tboldobjectlist;, begynder, hvis ikke tildelt (system) - system: = tboldsystem. defaultsystem;,, objectlist: = tboldobjectlist. skabe,,,, for jeg: = lav (objekter) til højt niveau (objekter) gør, objectlist. der tilsættes (genstande [i]), hvis objectlist. tæl > 0, system. updatedatabasewithlist (objectlist); og endelig, objectlist. fri,,,,,,,,,, oplysninger fra eric holton http: //www.holtonsytems. kom,,,,