Changeset 620

Timestamp:

2008/08/25 16:12:17 (4 years ago)

Author:

egtra

Message:

Searchでtypesの検索をItemからTryGetValueへ変更。

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Core/TypeInfo.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Core/TypeInfo.ab

@@ -357 +357 @@
         End If
 
-        Search = types.Item(fullName)
-
-        If Object.ReferenceEquals( Search, Nothing ) Then
-            OutputDebugString("TypeSearch Failed: ")
+        If Not types.TryGetValue(fullName, Search) Then
+            OutputDebugString(Ex"TypeSearch Failed: \r\n")
             If Not ActiveBasic.IsNothing(fullName) Then
                 OutputDebugStringW(StrPtr(fullName) As PWSTR)
@@ -367 +365 @@
             End If
             OutputDebugString(Ex"\r\n")
+            Debug
         End If
     End Function