Ignore:
Timestamp:
Feb 12, 2008, 9:40:59 AM (17 years ago)
Author:
dai
Message:

・MemberInfoクラスを追加。
・KeyNotFoundExceptionクラスを追加。
TypeInfo.GetMembersメソッドを追加。
・TypeInfoテストケースを追加。

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab

    r402 r403  
    1515    memberTypeFullNames As *String      ' 型名リスト
    1616    memberCounts As Long                ' 個数
     17    memberInfosCache As System.Collections.Generic.List<System.Reflection.MemberInfo>
    1718
    1819Protected
     
    108109    ' Public methods
    109110    '----------------------------------------------------------------
     111
     112    Override Function GetMembers() As System.Collections.Generic.List<System.Reflection.MemberInfo>
     113        If Object.ReferenceEquals( memberInfosCache, Nothing ) Then
     114            ' キャッシュにないときは生成する
     115            memberInfosCache = New System.Collections.Generic.List
     116            Dim i As Long
     117            For i=0 To ELM(memberCounts)
     118                memberInfosCache.Add( New System.Reflection.MemberInfo( memberNames[i], _System_TypeBase_Search( memberTypeFullNames[i] ) ) )
     119            Next
     120        End If
     121
     122        Return memberInfosCache
     123    End Function
    110124
    111125End Class
Note: See TracChangeset for help on using the changeset viewer.