Changeset 452 for trunk/Include/Classes/ActiveBasic/Core
- Timestamp:
- Mar 3, 2008, 10:15:06 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab
r450 r452 17 17 memberNames As *String ' 名前リスト 18 18 memberTypeFullNames As *String ' 型名リスト 19 memberOffsets As *LONG_PTR ' クラスの先頭ポインタからのオフセット値 19 20 memberCounts As Long ' 個数 20 21 memberInfosCache As System.Collections.Generic.List<System.Reflection.MemberInfo> … … 46 47 Dim result = New TypeBaseImpl( strNamespace, name, fullName ) 47 48 result.SetBaseType( baseType ) 48 result.SetMembers( memberNames, memberTypeFullNames, member Counts )49 result.SetMembers( memberNames, memberTypeFullNames, memberOffsets, memberCounts ) 49 50 result.memberInfosCache = This.memberInfosCache 50 51 result.ptrLevel = This.ptrLevel … … 54 55 Public 55 56 56 Sub SetMembers( memberNames As *String, memberTypeFullNames As *String, num As Long )57 Sub SetMembers( memberNames As *String, memberTypeFullNames As *String, memberOffsets As *LONG_PTR, num As Long ) 57 58 This.memberNames = memberNames 58 59 This.memberTypeFullNames = memberTypeFullNames 60 This.memberOffsets = memberOffsets 59 61 This.memberCounts = num 60 62 … … 146 148 Dim i As Long 147 149 For i=0 To ELM(memberCounts) 148 memberInfosCache.Add( New System.Reflection.MemberInfo( memberNames[i], _System_TypeBase_Search( memberTypeFullNames[i] ) ) )150 memberInfosCache.Add( New System.Reflection.MemberInfo( memberNames[i], _System_TypeBase_Search( memberTypeFullNames[i] ), memberOffsets[i] ) ) 149 151 Next 150 152 End If
Note:
See TracChangeset
for help on using the changeset viewer.