Передача переменной неизвестного типа

[anian]

Есть 2 пользовательских типа: myType1 и myType2, например...
Количество полей в них разное, но тип полей везде один - string.
Есть класс, в ем есть процедурка, которая должна принять переменную Х и чего-нить с ней сделать...но...переменная может быть любого из этих типов, заранее не известно...
Пример:

Код: Выделить всё

вызов:
Dim tcMI as tMInfo либо Dim tcСI as tСInfo

aXML.SaveNewItem "Managers", "Manager", tcMI 'либо tcСI


процедурка:
Friend Sub SaveNewItem(sGroup$, sSubGroup$, ByRef tVI)   
   
    Select Case sSubGroup
        Case "Manager"
                tVI.ManName
        Case "Client"
                 tVI.ClientName
    End Select
   
End Sub



Пробовал передавать указатель, потом по указателю находить переменную через CopyMemory - либо виснет, либо ничего не копирует...

[Approximator]

Есть 2 пользовательских типа: myType1 и myType2, например...
Количество полей в них разное, но тип полей везде один - string.
Есть класс, в ем есть процедурка, которая должна принять переменную Х и чего-нить с ней сделать...но...переменная может быть любого из этих типов, заранее не известно...
Пример:

Код: Выделить всё

вызов:
Dim tcMI as tMInfo либо Dim tcСI as tСInfo

aXML.SaveNewItem "Managers", "Manager", tcMI 'либо tcСI


процедурка:
Friend Sub SaveNewItem(sGroup$, sSubGroup$, ByRef tVI)   
   
    Select Case sSubGroup
        Case "Manager"
                tVI.ManName
        Case "Client"
                 tVI.ClientName
    End Select
   
End Sub



Пробовал передавать указатель, потом по указателю находить переменную через CopyMemory - либо виснет, либо ничего не копирует...

Усё очень просто. Добавляешь тип:

Код: Выделить всё

Public Type UVar
UVarType as Long
UVarPtr as Long
End Type

Dim tcMI as tMInfo либо Dim tcСI as tСInfo,lUV as UVar

aXML.SaveNewItem "Managers", "Manager", tcMI 'либо tcСI


процедурка:
Friend Sub SaveNewItem(sGroup$, byref sSubGroup$ as UVar, ByRef tVI)   
   
    Select Case sSubGroup.UVarType
        Case 1 '"Manager"
                tVI.ManName
        Case 2 '"Client"
                 tVI.ClientName
    End Select
   
End Sub

обращаемся:
lUV.UVarType=1
lUV.UVarPtr=VarPtr(tcMI)
SaveNewItem ..., lUV, ...

lUV.UVarType=2
lUV.UVarPtr=VarPtr(tcCI)
SaveNewItem ..., lUV, ...


Иного не дано... Можно, конечно добавить в оба пользовательских типа в самом начале для идентификации один байт... Кстати, чтобы обращаться к данным в структуре по указателю необходимо сначала соблюсти выравнивание, см. подробнее http://bbs.vbstreets.ru/viewtopic.php?t=8760