La Routine de mise à jour de la base de données avec des objets ou des listes d'objets

La Routine de mise a jour de la base de donnees avec des objets ou des listes d'objets

La Routine de mise a jour de la base de donnees avec des objets ou des listes d'objets : Plusieurs milliers de conseils pour vous faciliter la vie.

Une procedure simple qui accepte une liste de gras des objets et des listes jusqu'a s'engager a la base de donnees.
Souvent, il est necessaire de commettre un seul objet ou plusieurs objets de la base de donnees. Cette procedure accepte une liste d'objets et de listes d'objets, ajoute-les tous pour une liste unique et s'engage dans une seule operation.

procedure UpdateDatabaseWithObjects( Objs : tableau 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 essayer
& ! & ! & ! & ! & nbsp lstObjs := TBoldObjectList.Creer
& ! & ! & ! & ! & nbsp bie := TBoldIndirectElement.Creer
& ! & ! & ! & ! & nbsp for i := 0 a Longueur( Objs )-1 do begin
& ! & ! & ! & ! & ! & ! & ! & nbsp currObj := Objs[i].vObject comme TBoldElement

& ! & ! & ! & ! & ! & ! & ! & nbsp si non Affecte( currObj )
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Continuer
& ! & ! & ! & ! & ! & ! & ! & nbsp si non (( currObj est TBoldObject) ou ( currObj est TBoldObjectList )) puis
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp raise Exception.Create( 'UpdateDatabaseWithObjects: pouvez uniquement mettre a jour TBoldObject ou TBoldObjectList' )
& ! & ! & ! & ! & ! & ! & ! & nbsp else begin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp currObj.GetAsList( bie )
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp lstObjs.AddList( bie.Valeur TBoldList )
& ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & nbsp si lstObjs.count > 0 then
& ! & ! & ! & ! & ! & ! & ! & nbsp lstObjs[0].BoldSystem.UpdateDatabaseWithList( lstObjs )
& nbsp & nbsp & nbsp enfin
& ! & ! & ! & ! & ! & nbsp lstObjs.Gratuit
& ! & ! & ! & ! & ! & nbsp bie .Gratuit
& nbsp & nbsp & nbsp fin
fin