* Put Collection.Assign loop in beginupdate/endupdate (bug ID 33517)

git-svn-id: trunk@38628 -

rtl/objpas/classes/collect.inc

@@ -325,9 +325,14 @@ Var I : Longint;
 begin
   If Source is TCollection then
     begin
-    Clear;
-    For I:=0 To TCollection(Source).Count-1 do
-     Add.Assign(TCollection(Source).Items[I]);
+    BeginUpdate;
+    try
+      Clear;
+      For I:=0 To TCollection(Source).Count-1 do
+       Add.Assign(TCollection(Source).Items[I]);
+    finally
+      EndUpdate;
+    end;
     exit;
     end
   else