paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 08:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@38628 -
This commit is contained in:
michael 2018-03-26 19:02:51 +00:00
parent 31a354a3bc
commit 6d49a7b93f
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/classes/collect.inc
View File

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