jvcl: Fix crash of TJvDBTreeView when deleting the last child of a node. Issue #45 reported at sourceforge.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7692 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-24 14:47:02 +00:00
parent e3cd2dea44
commit 15176c6bf2

View File

@ -980,7 +980,7 @@ begin
{*** To delete from a tree the remote/removed records [translated] }
repeat
AllChecked := True;
for I := 0 to Items.Count - 1 do
for I := Items.Count - 1 downto 0 do
if not Locate(FMasterField, (Items[I] as TJvDBTreeNode).FMasterValue, []) then
begin
Items[I].Free;