Changeset 620 for trunk


Ignore:
Timestamp:
Aug 25, 2008, 4:12:17 PM (16 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Core/TypeInfo.ab

    r475 r620  
    357357        End If
    358358
    359         Search = types.Item(fullName)
    360 
    361         If Object.ReferenceEquals( Search, Nothing ) Then
    362             OutputDebugString("TypeSearch Failed: ")
     359        If Not types.TryGetValue(fullName, Search) Then
     360            OutputDebugString(Ex"TypeSearch Failed: \r\n")
    363361            If Not ActiveBasic.IsNothing(fullName) Then
    364362                OutputDebugStringW(StrPtr(fullName) As PWSTR)
     
    367365            End If
    368366            OutputDebugString(Ex"\r\n")
     367            Debug
    369368        End If
    370369    End Function
Note: See TracChangeset for help on using the changeset viewer.