2 массива с одним адресом

[MIT]

Возможно ли такое: иметь 2 массива, ссылающихся на одну и ту же информацию?
Например:

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

Arr(99) as integer
ArrB(399) as byte

[Viper]

В .NET низзя (стандартными средствами). В VB6 можно.
З.Ы. Можно соорудить класс обертку над указателем на неуправляемую память, но (ИМХО) не стоит это делать.

[ANDLL]

можно объявить один массив arr(99) as struct
где struct - структура в которой один short и четыре байта в одном месте в памяти

[MIT]

можно объявить один массив arr(99) as struct

Нет, не вариант.

В .NET низзя (стандартными средствами).

Значит, что нестандартными можно.

Массив объявлен примерно таким образом:

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

Dim gch As GCHandle
Dim arr(99) as integer
gch = GCHandle.Alloc(arr, GCHandleType.Pinned)

[Viper]

MIT, а какова конечная задача? Потому как ANDLL предлагает вполне подходящий вариант. Массив таких структур будет имитировать массив Byte и массив Short находящихся в одном месте. Чем этот вариант не подходит.

[MIT]

Конечная задача - доступ к данным из разных массивов.
Почему не подходит? Возьмем пример:

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

        <StructLayout(LayoutKind.Explicit, Size:=3)> _
        Public Structure SomeStructure
            <FieldOffset(0)> Dim x As Byte
            <FieldOffset(1)> Dim y As Byte
            <FieldOffset(2)> Dim z As Byte
        End Structure

        Dim arr(99) as SomeStructure
        Dim arrB(49) as Short

Информация одна, значит arr(0).x будет равен arrB(0) And &HFF, arr(0).y - arrB(0) >> 8, arr(0).z - arrB(1) And &HFF, arr(1).x - arrB(1) >> 8 и т.д...
Как ни крути - с одной структурой не получиться.
Еще вариант приложения - использование одних и тех же данных в одно- и двухмерных массивах:

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

        Dim arr(99) as Short
        Dim arrB(24,3) as Short

[ANDLL]

Написанное в последнем сообщении выглядит лишенным смысла

[MIT]

Возможно, но это не ответ.

[Viper]

Структура должна иметь следующий вид:

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

<StructLayout(LayoutKind.Explicit)> Public Structure Union
    <FieldOffset(0)> Dim b0 As Byte
    <FieldOffset(1)> Dim b1 As Byte
    <FieldOffset(2)> Dim b2 As Byte
    <FieldOffset(3)> Dim b3 As Byte
    <FieldOffset(0)> Dim i As Integer
End Structure

В этом случае 4 байта и Integer будут храниться по одному адресу. Доступ конечно будет более муторным, чем если бы это были два массива с одинм адресом, но тем не менее исходную задачу это решает.

[MIT]

Структура должна иметь следующий вид:

Это-то все понятно, но использование структуры надо избежать - необходимо именно два массива.