En enkel prosedyre som tar en liste med dristige gjenstander og lister å forplikte seg til database.Frequently det er nødvendig å begå et enkelt objekt eller flere objekter i databasen. Denne prosedyren godtar en liste over objekter og objektlister, legger dem alle til en enkelt liste og forplikter dem i en enkelt operation.procedure UpdateDatabaseWithObjects (Objs: array of const); Var jeg: integer; bie: TBoldIndirectElement; lstObjs: TBoldObjectList; currObj: TBoldElement; begynne lstObjs: = null; bie: = null; prøv lstObjs: = TBoldObjectList.Create; bie: = TBoldIndirectElement.Create; for i: = 0 til Lengde (Objs) -1 trenger begynne currObj: = Objs [i] .vObject som TBoldElement; hvis ikke Assigned (currObj) deretter Fortsett; hvis ikke ((currObj er TBoldObject) eller (currObj er TBoldObjectList)) deretter heve Exception.Create ('UpdateDatabaseWithObjects: kan bare oppdatere TBoldObject eller TBoldObjectList') else begynne currObj.GetAsList (bie); lstObjs.AddList (bie.Value som TBoldList); slutt; slutt; hvis lstObjs.count > 0 da lstObjs [0] .BoldSystem.UpdateDatabaseWithList (lstObjs); endelig lstObjs.Free; bie .Gratis; end, end; Anmeldelser