Changeset 403 for trunk/Include/Classes/ActiveBasic/Core
- Timestamp:
- Feb 12, 2008, 9:40:59 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab
r402 r403 15 15 memberTypeFullNames As *String ' 型名リスト 16 16 memberCounts As Long ' 個数 17 memberInfosCache As System.Collections.Generic.List<System.Reflection.MemberInfo> 17 18 18 19 Protected … … 108 109 ' Public methods 109 110 '---------------------------------------------------------------- 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 110 124 111 125 End Class
Note:
See TracChangeset
for help on using the changeset viewer.