Changeset 366
- Timestamp:
- Oct 31, 2007, 4:24:47 AM (17 years ago)
- Location:
- trunk/Include/Classes/System
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/System/Collections/Generic/Dictionary.ab
r313 r366 44 44 If Object.ReferenceEquals(key, Nothing) Then 45 45 'Throw ArgumentNullError 46 Exit Sub 46 debug 47 Exit Function 47 48 End If 48 49 … … 59 60 Next 60 61 End If 62 debug 61 63 'KeyNotFoundException 62 64 Return Nothing … … 130 132 131 133 a.Add(New Pair(key, value)) 134 135 count ++ 132 136 End Sub 133 137 … … 138 142 Next 139 143 End Sub 144 145 Function Count() As Long 146 Return count 147 End Function 140 148 141 149 ' Function ContainsKey(key As Key) As Boolean … … 162 170 Dim e = al[0] 163 171 Dim p = ObjPtr(e) As ULONG_PTR 172 173 count = 0 164 174 End Sub 165 175 166 176 al As ArrayList 177 count As Long 167 178 168 179 End Class -
trunk/Include/Classes/System/String.ab
r308 r366 251 251 252 252 Override Function Equals(s As Object) As Boolean 253 If This.GetType = s.GetTypeThen253 If Object.Equals( This.GetType(), s.GetType() ) Then 254 254 Return This.Equals(s As String) 255 255 End If
Note:
See TracChangeset
for help on using the changeset viewer.