Ignore:
Timestamp:
Feb 11, 2008, 12:11:27 PM (17 years ago)
Author:
dai
Message:

動的型情報にメンバ情報を持たせた

File:
1 edited

Legend:

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

    r400 r401  
    1010    name As String
    1111    fullName As String
     12
     13    ' メンバ情報
     14    memberNames As **Char               ' 名前リスト
     15    memberTypeFullNames As **Char       ' 型名リスト
     16    memberCounts As Long                ' 個数
    1217
    1318Protected
     
    2732
    2833Public
     34
     35    Sub SetMemberTypes( memberNames As **Char, memberTypeFullNames As **Char, num As Long )
     36        This.memberNames = memberNames
     37        This.memberTypeFullNames = memberTypeFullNames
     38        This.memberCounts = num
     39    End Sub
    2940
    3041
Note: See TracChangeset for help on using the changeset viewer.