Changeset 311


Ignore:
Timestamp:
Aug 27, 2007, 12:29:26 AM (17 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Include/Classes/System/Collections/Generic/Dictionary.ab

    r310 r311  
    88
    99Namespace Detail
    10     Class Pair<Key, T>
     10    Class Pair
    1111    Public
    12         Sub Pair(key As Key, value As T)
     12        Sub Pair(key As Object, value As Object)
    1313            Key = key
    1414            Value = value
    1515        End Sub
    1616
    17         Key As Key
    18         Value As T
     17        Key As Object
     18        Value As Object
    1919    End Class
    2020End Namespace 'Detail
     
    4141'   Virtual Function Item(key As Key) As T
    4242    Virtual Function Item(key As Key) As Object
    43 
    4443        Imports System.Collections.Generic.Detail
    45         Imports System.Diagnostics
    4644
    4745        If Object.ReferenceEquals(key, Nothing) Then
     
    5755            For i = 0 To ELM(a.Count)
    5856                Dim pair = a[i] As Pair
    59                 Dim s = pair.Key.ToString + " " + pair.Value.ToString
    60                 Trace.Write(s)
    6157                If pair.Key.Equals(key) Then
    6258                    Return pair.Value
Note: See TracChangeset for help on using the changeset viewer.