Quellcode durchsuchen

* TCollection.Exchange also needs to notify

git-svn-id: trunk@22258 -
michael vor 13 Jahren
Ursprung
Commit
445ec2672a
1 geänderte Dateien mit 1 neuen und 0 gelöschten Zeilen
  1. 1 0
      rtl/objpas/classes/collect.inc

+ 1 - 0
rtl/objpas/classes/collect.inc

@@ -419,6 +419,7 @@ procedure TCollection.Exchange(Const Index1, index2: integer);
 
 begin
   FItems.Exchange(Index1,Index2);
+  FPONotifyObservers(Self,ooChanged,Nil);
 end;