Routine zum Aktualisieren der Datenbank mit Objekten oder Listen von Objekten

Routine zum Aktualisieren der Datenbank mit Objekten oder Listen von Objekten

Routine zum Aktualisieren der Datenbank mit Objekten oder Listen von Objekten : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Ein einfaches Verfahren, das eine Liste von Fett Objekte und Listen zu verpflichten, die Datenbank akzeptiert.
Häufig ist es notwendig, ein einzelnes Objekt oder mehrere Objekte in der Datenbank zu begehen. Diese Prozedur akzeptiert eine Liste der Objekte und Objekt-Listen, alle zu einer einzigen Liste hinzugefügt und schreibt sie in einem Arbeitsgang.

procedure UpdateDatabaseWithObjects( Objs : array of const );
var
   i : integer;
   bie : TBoldIndirectElement;
   lstObjs : TBoldObjectList;
   currObj : TBoldElement;
begin
   lstObjs := nil;
   bie := nil;
   try
     lstObjs := TBoldObjectList.Create;
     bie := TBoldIndirectElement.Create;
     for i := 0 to Length( Objs )-1 do begin
        currObj := Objs[i].vObject as TBoldElement;

        if not Assigned( currObj ) then
           Continue;
        if not (( currObj is TBoldObject) or ( currObj is TBoldObjectList )) then
           raise Exception.Create( 'UpdateDatabaseWithObjects: can only update TBoldObject or TBoldObjectList' )
        else begin
          currObj.GetAsList( bie );
          lstObjs.AddList( bie.Value as TBoldList );
        end;
     end;
     if lstObjs.count > 0 then
        lstObjs[0].BoldSystem.UpdateDatabaseWithList( lstObjs );
   finally
      lstObjs.Free;
      bie .Free;
   end;
end;