Просмотр исходного кода

* fixed the nil check of FOnNodeNotify in TCustomAVLTreeMap.NodeNotify

Nikolay Nikolov 1 неделя назад
Родитель
Сommit
5a80281fa7
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      packages/rtl-generics/src/generics.collections.pas

+ 1 - 1
packages/rtl-generics/src/generics.collections.pas

@@ -3385,7 +3385,7 @@ end;
 
 procedure TCustomAVLTreeMap<TREE_CONSTRAINTS>.NodeNotify(ANode: PNode; ACollectionNotification: TCollectionNotification; ADispose: boolean);
 begin
-  if Assigned(FOnValueNotify) then
+  if Assigned(FOnNodeNotify) then
     FOnNodeNotify(Self, ANode, ACollectionNotification, ADispose);
   KeyNotify(ANode.Key, ACollectionNotification);
   ValueNotify(ANode.Value, ACollectionNotification);