Changeset 311
- Timestamp:
- Aug 27, 2007, 12:29:26 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/System/Collections/Generic/Dictionary.ab
r310 r311 8 8 9 9 Namespace Detail 10 Class Pair <Key, T>10 Class Pair 11 11 Public 12 Sub Pair(key As Key, value As T)12 Sub Pair(key As Object, value As Object) 13 13 Key = key 14 14 Value = value 15 15 End Sub 16 16 17 Key As Key18 Value As T17 Key As Object 18 Value As Object 19 19 End Class 20 20 End Namespace 'Detail … … 41 41 ' Virtual Function Item(key As Key) As T 42 42 Virtual Function Item(key As Key) As Object 43 44 43 Imports System.Collections.Generic.Detail 45 Imports System.Diagnostics46 44 47 45 If Object.ReferenceEquals(key, Nothing) Then … … 57 55 For i = 0 To ELM(a.Count) 58 56 Dim pair = a[i] As Pair 59 Dim s = pair.Key.ToString + " " + pair.Value.ToString60 Trace.Write(s)61 57 If pair.Key.Equals(key) Then 62 58 Return pair.Value
Note:
See TracChangeset
for help on using the changeset viewer.