Changeset 403 for trunk/Include/Classes/ActiveBasic

Timestamp:

Feb 12, 2008, 9:40:59 AM (17 years ago)

Author:

dai

Message:

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

File:

• trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab (modified) (2 diffs)

trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab

@@ -15 +15 @@
     memberTypeFullNames As *String      ' 型名リスト
     memberCounts As Long                ' 個数
+    memberInfosCache As System.Collections.Generic.List<System.Reflection.MemberInfo>
 
 Protected
@@ -108 +109 @@
     ' Public methods
     '----------------------------------------------------------------
+
+    Override Function GetMembers() As System.Collections.Generic.List<System.Reflection.MemberInfo>
+        If Object.ReferenceEquals( memberInfosCache, Nothing ) Then
+            ' キャッシュにないときは生成する
+            memberInfosCache = New System.Collections.Generic.List
+            Dim i As Long
+            For i=0 To ELM(memberCounts)
+                memberInfosCache.Add( New System.Reflection.MemberInfo( memberNames[i], _System_TypeBase_Search( memberTypeFullNames[i] ) ) )
+            Next
+        End If
+
+        Return memberInfosCache
+    End Function
 
 End Class