DeleteNodes(): Prevent range error below when empty array is passen. …

…See issue #1288
JAM-Software · Dec 29, 2024 · 33828f6 · 33828f6
1 parent 11e7b6f
commit 33828f6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Source/VirtualTrees.BaseTree.pas b/Source/VirtualTrees.BaseTree.pas
@@ -16300,6 +16300,8 @@ procedure TBaseVirtualTree.DeleteNodes(const pNodes: TNodeArray);
   I: Integer;
   LevelChange: Boolean;
 begin
+  if Length(pNodes) = 0 then
+    exit; // Prevent range error below when empty array is passen. See issue #1288
   BeginUpdate;
   try
     for I := High(pNodes) downto 1 do