Rutina para actualizar la base de datos con los objetos o las listas de objetos

Rutina para actualizar la base de datos con los objetos o las listas de objetos

Rutina para actualizar la base de datos con los objetos o las listas de objetos : Multi-millones de consejos para hacer su vida mas facil.

Un procedimiento sencillo que acepta una lista de negrita objetos y listas para comprometerse a la base de datos.
con Frecuencia es necesario cometer un solo objeto o varios objetos a la base de datos. Este procedimiento se acepta una lista de los objetos y de las listas de objetos, agrega todas ellas a una unica lista y los compromete en una sola operacion.

procedimiento UpdateDatabaseWithObjects( Objs : matriz de const )
var
& nbsp & nbsp & nbsp i : integer
& nbsp & nbsp & nbsp bie : TBoldIndirectElement
& nbsp & nbsp & nbsp lstObjs : TBoldObjectList
& nbsp & nbsp & nbsp currObj : TBoldElement
begin
& nbsp & nbsp & nbsp lstObjs := nil
& nbsp & nbsp & nbsp bie := nil
& nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp lstObjs := TBoldObjectList.Crear
& nbsp & nbsp & nbsp & nbsp & nbsp bie := TBoldIndirectElement.Crear
& nbsp & nbsp & nbsp & nbsp & nbsp for i := 0 to Length( Objs )-1 empiezan
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp currObj := Objs[i].vObject como TBoldElement

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si no Asignados( currObj ), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Continuar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si no (( currObj es TBoldObject) o ( currObj es TBoldObjectList )) a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp elevar la Excepcion.Create( 'UpdateDatabaseWithObjects: solo puede actualizar TBoldObject o TBoldObjectList' )
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp currObj.GetAsList( bie )
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp lstObjs.AddList( bie.Valor como TBoldList )
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp si lstObjs.count > 0 then
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp lstObjs[0].BoldSystem.UpdateDatabaseWithList( lstObjs )
& nbsp & nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp lstObjs.Libre
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp bie .Libre
& nbsp & nbsp & nbsp final
fin