added RemoveRange overload for IMap to remove a range of keys

Author: sglienke

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

@@ -639,6 +639,8 @@   TMapBase<TKey, TValue> = class abstract(TCollectionBase<TPair<TKey, TValue>>)
     procedure Add(const key: TKey; const value: TValue); overload;
 
     function Remove(const item: TKeyValuePair): Boolean;
+    function RemoveRange(const keys: array of TKey): Integer; overload;
+    function RemoveRange(const keys: IEnumerable<TKey>): Integer; overload;
 
     function Extract(const item: TKeyValuePair): TKeyValuePair;
 
@@ -2668,6 +2670,24 @@ function TMapBase<TKey, TValue>.Remove(const item: TKeyValuePair): Boolean;
   Result := IMap<TKey, TValue>(this).Remove(item.Key, item.Value);
 end;
 
+function TMapBase<TKey, TValue>.RemoveRange(const keys: array of TKey): Integer;
+var
+  i: Integer;
+begin
+  Result := 0;
+  for i := 0 to High(keys) do
+    Inc(Result, Integer(IMap<TKey, TValue>(this).Remove(keys[i])));
+end;
+
+function TMapBase<TKey, TValue>.RemoveRange(const keys: IEnumerable<TKey>): Integer;
+var
+  key: TKey;
+begin
+  Result := 0;
+  for key in keys do
+    Inc(Result, Integer(IMap<TKey, TValue>(this).Remove(key)));
+end;
+
 {$ENDREGION}
 
 

Source/Base/Collections/Spring.Collections.Dictionaries.pas

@@ -213,6 +213,8 @@       TInverse = class(TCollectionBase<TValueKeyPair>,
         function TryAdd(const value: TValue; const key: TKey): Boolean;
         function Remove(const value: TValue): Boolean; overload;
         function Remove(const value: TValue; const key: TKey): Boolean; overload;
+        function RemoveRange(const values: array of TValue): Integer; overload;
+        function RemoveRange(const values: IEnumerable<TValue>): Integer; overload;
         function Extract(const value: TValue; const key: TKey): TValueKeyPair; overload;
         function Contains(const value: TValue; const key: TKey): Boolean; overload;
         function ContainsKey(const value: TValue): Boolean;
@@ -2048,6 +2050,26 @@ function TBidiDictionary<TKey, TValue>.TInverse.Remove(
   Result := Remove(item.Key, item.Value);
 end;
 
+function TBidiDictionary<TKey, TValue>.TInverse.RemoveRange(
+  const values: array of TValue): Integer;
+var
+  i: Integer;
+begin
+  Result := 0;
+  for i := 0 to High(values) do
+    Inc(Result, Integer(Remove(values[i])));
+end;
+
+function TBidiDictionary<TKey, TValue>.TInverse.RemoveRange(
+  const values: IEnumerable<TValue>): Integer;
+var
+  value: TValue;
+begin
+  Result := 0;
+  for value in values do
+    Inc(Result, Integer(Remove(value)));
+end;
+
 procedure TBidiDictionary<TKey, TValue>.TInverse.SetCapacity(value: Integer);
 begin
   fSource.SetCapacity(value);

Source/Base/Collections/Spring.Collections.pas

@@ -1715,6 +1715,30 @@   TLinkedListNode<T> = class sealed
     /// </returns>
     function Remove(const key: TKey; const value: TValue): Boolean; overload;
 
+    /// <summary>
+    ///   Removes the specified range of keys from the IMap&lt;TKey,
+    ///   TValue&gt;.
+    /// </summary>
+    /// <param name="keys">
+    ///   The keys of the elements to remove.
+    /// </param>
+    /// <returns>
+    ///   The number of elements that were actually removed.
+    /// </returns>
+    function RemoveRange(const keys: array of TKey): Integer; overload;
+
+    /// <summary>
+    ///   Removes the specified range of keys from the IMap&lt;TKey,
+    ///   TValue&gt;.
+    /// </summary>
+    /// <param name="keys">
+    ///   The keys of the elements to remove.
+    /// </param>
+    /// <returns>
+    ///   The number of elements that were actually removed.
+    /// </returns>
+    function RemoveRange(const keys: IEnumerable<TKey>): Integer; overload;
+
     function Extract(const key: TKey; const value: TValue): TPair<TKey, TValue>;
 
     /// <summary>