Changeset 311 for trunk/Include/Classes/System

Timestamp:

Aug 27, 2007, 12:29:26 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

コンパイルできないものをコミットしてしまったのでコミットのやりなおし

File:

• trunk/Include/Classes/System/Collections/Generic/Dictionary.ab (modified) (3 diffs)

trunk/Include/Classes/System/Collections/Generic/Dictionary.ab

@@ -8 +8 @@
 
 Namespace Detail
-    Class Pair<Key, T>
+    Class Pair
     Public
-        Sub Pair(key As Key, value As T)
+        Sub Pair(key As Object, value As Object)
             Key = key
             Value = value
         End Sub
 
-        Key As Key
-        Value As T
+        Key As Object
+        Value As Object
     End Class
 End Namespace 'Detail
@@ -41 +41 @@
 '   Virtual Function Item(key As Key) As T
     Virtual Function Item(key As Key) As Object
-
         Imports System.Collections.Generic.Detail
-        Imports System.Diagnostics
 
         If Object.ReferenceEquals(key, Nothing) Then
@@ -57 +55 @@
             For i = 0 To ELM(a.Count)
                 Dim pair = a[i] As Pair
-                Dim s = pair.Key.ToString + " " + pair.Value.ToString
-                Trace.Write(s)
                 If pair.Key.Equals(key) Then
                     Return pair.Value