Как заполняются многомерные массивы?

Question

[Максим]

Переписываю программу с delphi на c#, опыта работы с delphi нет. Столкнулся с проблемой,не пойму, как заполняется массив mkts и msh. Буду признателен любой помощи.

mkts = array [0..3, 1..6, 1..16] of SmallInt;
msh = array[1..392] of SmallInt;

TPmkts = ^mkts;
TPmsh = ^msh;

Pkts: array[1..Blocks, 1..RTParts] of TPmkts = ( (nil, nil),
                                (nil, nil), (nil, nil), (nil, nil) );
Psh: array[1..4, 1..2] of TPmsh = ( (nil, nil),
                                (nil, nil), (nil, nil), (nil, nil) );
...
Df: array[1..4, 1..2] of integer;

{------------------------------------------------------------------------}

function OpenA(FileName: ShortString; Mode: LongWord): integer;
begin
  Result:= FileOpen(FileName, Mode);
end;

{------------------------------------------------------------------------}

function ReadA(Df: integer; Pmas: Pointer; L: word): boolean;
begin
  Result:= false;
  if FileSeek(Df, 0, 0) = 0 then
    if FileRead(Df, Pmas^, L) > 0 then
      Result:= true;
end;
...

{------------------------------------------------------------------------}

Df[BlNum, ROTO]:= OpenA(ShifrFileName, fmShareDenyNone);

{ Выделение памяти }
New(Psh[4, 1]);

if not ReadA(Df[4, 1], Psh[4, 1], 784) then
begin
  CloseA(Df[4, 1]);
  Dispose(Psh[4, 1]);
  Exit;
end;

Pkts[4, 1]:= @Psh[4, 1]^[9];

Answer 1

[Mercury13]

New(Psh[4, 1]);
Переводим на C#. Правда, тут есть одна загвоздка. Массивы в c# начинаются только с 0, и надо смотреть: либо заводить холостой 0-й элемент, либо корректировать индексы. Так что перед нами два варианта.

Psh[4][1] = new short[393];
Psh[3][0] = new short[392];

(для примера работаю со вторым)

function OpenA(FileName: ShortString; Mode: LongWord): integer;
Stream OpenA(string FileName, FileAccess access);

Как перевести ReadA? Это не так просто. Дело в том, что языки со стандартным промежуточным кодом (к ним относятся в первую очередь языки семейства Java и .NET) обычно пишут в порядке байтов Motorola. На Delphi файл писался в порядке Intel. Так что мы считываем 392 word’а, а затем смотрим, что делать: либо обернуть байты, либо сказать: теперь у нас новый стандарт — Motorola!

if (!ReadA(Df[3][0], Psh[3][0], 392) {
  CloseA(Df[3, 0]);
  Psh[3][0] = null;
  return;
}

И последний рывок.
Pkts[4, 1]:= @Psh[4, 1]^[9];
Из-за отсутствия указателей (точнее, есть они, но мы же не хотим unsafe-кода) придётся Pkts разбивать на две части: ссылку на массив и смещение в массиве.

Pkts[3][0].array = Psh[3][0];
Pkts[3][0].offset = 8;

Comments

[Максим]

Спасибо за ответ, я объявляю short[] psh = new short[392]; , Мне не понятно, как обернуть байты или сказать, что новый стандарт Intel, можете чуть, чуть по подробней ? Чем лучше считывать FileStream или BinaryReader?

[Максим]

После чтения файла его длина 784, как я понимаю Delphi сам переводит в 392 ?

[Mercury13]

После чтения файла его длина 784, как я понимаю Delphi сам переводит в 392 ?

392 word’а = 784 байта.

Мне не понятно, как обернуть байты или сказать, что новый стандарт Intel Motorola, можете чуть, чуть по подробней ? Чем лучше считывать FileStream или BinaryReader?

Я тут ошибся и вместо Motorola написал Intel.
Минимальная адресуемая единица памяти — восьмибитный байт.
Машина «одним махом» работает с двух-, четырёх- или восьмибайтовым машинным словом. В такой ситуации мы можем обратиться к половинке (четвертушке, восьмушке) машинного слова и увидеть, что число 0x1234 состоит из 0x12 и 0x34.

Порядок байтов Motorola (прямой): 0x1234 = 0x12:34. Использовался в микропроцессорах Motorola; также в большинстве межплатформенных форматов вроде PNG и TCP/IP.
Порядок байтов Intel (обратный): 0x1234 = 0x34:12. Используется в микропроцессорах Intel, ARM и в большинстве форматов, придуманных специально для них.

Поменять местами байты можно так.

reversedBytes = (short)((x << 8) | ((ushort)x >> 8));

Или считать байт, ещё байт, а потом сложить в обратном порядке.

int loByte = fs.readByte();
int hiByte = fs.readByte();
reversedBytes = (short)((hiByte << 8) | loByte);

Чем лучше считывать FileStream или BinaryReader?

Если читаем word или dword целиком — только BinaryReader. Если по байту — не важно.

[Mercury13]

Извините, есть небольшое разногласие по поводу понятия «машинное слово» (word).
Это может быть как размер регистра (4/8 байт), так и два байта (машинное слово 8086/80286).
Обычно, когда в русском языке говорят word (а не «слово»), подразумевают два байта, short.

[Максим]

Mercury13: Вы мне очень помогли, спасибо большое!

[Максим]

Mercury13: Еще вопрос появился, Pkts состоит из 3х массивов, как распределятся данные из Psh , который одинарный массив

[Mercury13]

Pkts состоит из 3х массивов, как распределятся данные из Psh , который одинарный массив

Некий кусок одномерного массива msh интерпретируется как трёхмерный массив. Мы вместо этого используем ссылку на массив и смещение в массиве.

[Максим]

Mercury13: Все равно не пойму по какому алгоритму заносится в трехмерный массив .

[Mercury13]

У нас массив [0..3, 1..6, 1..16].
Тогда newindex = i1*6*16 + (i2 - 1)*16 + (i3 - 1).

[Максим]

Mercury13: newIndex это индекс нового pkts ?
Я объявляю

private short[,,] pkts = new short[4, 6, 16];
private short[] psh = new short[392];

BinaryReader br = new BinaryReader(df);

for(int i = 0; i < psh.Count(); i++)
{
int loByte = br.ReadByte();
int hiByte = br.ReadByte();
psh[i] = (short)((hiByte << 8) | loByte);
}

i1,i2,i3 - это индексы psh ?

[Mercury13]

Не так просто. Может сработать, а может, и нет — по той семантике, которая мне известна, pkts — это срез какого-то массива из psh.

[Mercury13]

И не просто срез, а срез, интерпретированный как трёхмерный массив. Т.е. вообще нечто пятимерное.

[Mercury13]

Скажу честно, тут изрядный говнокод. Почему кусок массива psh интерпретируется как трёхмерный, да ещё начиная с 9-й позиции? ХЕЗ.

[Максим]

Mercury13: Грустно, а как алгоритм заполнения отследить ? я думаю, обратится к заполненному pkts к нужному элементу трехмерного массива и как нибудь посмотреть каждое значение , каждого индекса, но я не знаю, как этого сделать ?