Skip to content

Commit 742cda1

Browse files
committed
fixed issue in TList<T>.DeleteRange
1 parent 173b82a commit 742cda1

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Source/Base/Collections/Spring.Collections.Lists.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1064,7 +1064,7 @@ procedure TAbstractArrayList<T>.DeleteRange(index, count: Integer);
10641064
if ItemType.HasWeakRef then
10651065
begin
10661066
MoveManaged(@fItems[index + count], @fItems[index], TypeInfo(T), tailCount);
1067-
FinalizeArray(@fItems[index + count], TypeInfo(T), tailCount);
1067+
FinalizeArray(@fItems[index + tailCount], TypeInfo(T), count);
10681068
end
10691069
else
10701070
System.Move(fItems[index + count], fItems[index], SizeOf(T) * tailCount);

0 commit comments

Comments
 (0)