Changeset 537 for trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/Dictionary.ab

Timestamp:

Jul 12, 2008, 2:14:23 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Dictionary.Removeとテストを追加。#promptでコンパイルできない問題を修正。

File:

• trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/Dictionary.ab (modified) (5 diffs)

trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/Dictionary.ab

@@ -40 +40 @@
 
     Virtual Function Item(key As Key) As T
-        If Object.ReferenceEquals(key, Nothing) Then
+        If ActiveBasic.IsNothing(key) Then
             Throw New ArgumentNullException("key")
         End If
@@ -61 +61 @@
 
     Virtual Sub Item(key As Key, value As T)
-        If Object.ReferenceEquals(key, Nothing) Then
-            'Throw ArgumentNullError
-            Exit Sub
+        If ActiveBasic.IsNothing(key) Then
+            Throw New ArgumentNullException("key")
         End If
 
@@ -100 +99 @@
     'Methods
     Sub Add(key As Key, value As T)
-        If Object.ReferenceEquals(key, Nothing) Then
-            'Throw ArgumentNullError
-            Exit Sub
+        If ActiveBasic.IsNothing(key) Then
+            Throw New ArgumentNullException("key")
         End If
 
@@ -108 +106 @@
         Dim a = al[hash] As ArrayList
 
-        If Object.ReferenceEquals(a, Nothing) Then
+        If ActiveBasic.IsNothing(a) Then
             a = New ArrayList
             al[hash] = a
@@ -142 +140 @@
 '   End Function
 '   Function GetEnumerator() As Enumerator
-'   Function Remove(key As Key) As Boolean
-'   End Function
+
+    /*!
+    @biref  指定されたキーの要素を削除する。
+    @date   2008/07/11
+    @param[in] key  削除対象のキー
+    @retval True    対象要素が見つかって削除されたとき
+    @retval False   見つからず削除されなかったとき
+    @author Egtra
+    */
+    Function Remove(key As Key) As Boolean
+        Remove = False
+        If Not ActiveBasic.IsNothing(key) Then
+            Dim hash = getHash(key)
+            Dim a = al[hash] As ArrayList
+            If Not ActiveBasic.IsNothing(a) Then
+                Dim i As Long
+                For i = 0 To ELM(a.Count)
+                    Dim pair = a[i] As Detail.Pair
+                    If pair.Key.Equals(key) Then
+                        a.RemoveAt(i)
+                        Remove = True
+                        count--
+                        Exit Function
+                    End If
+                Next
+            End If
+        End If
+    End Function
+
 '   Function TryGetValue(key As Key, ByRef value As T) As Boolean
 '   End Function