Проблемы с процедурой

[Nigadyai]

Здравствуйте, возникла проблема с написанием процедуры...
В идеале она должна делать следующее:
есть один массив байтов.
Берутся по два байта из 1го массива, переводятся в короткое вещественное и записывается во 2й и 3й массив по очереди.
(т.е. в одной процедуре должно получиться два новых массива).
В итоге после вызова процедур получаются нулевые новые массивы.. Где накосячил?

procedure ReadDat(Arr:array of byte;Arr_Size:longint;Arr_K:array of smallint;Arr_M:array of smallint);
var
i,j:longint;
ekg,emg:smallint;
begin
i:=1;
j:=1;
  while i<=Arr_Size do begin
  emg:=Arr[i]+Arr[i+1]*256;
  ekg:=Arr[i+2]+(Arr[i+3]*256);
  Arr_M[j]:=emg;
  Arr_K[j]:=ekg;
  inc(i,4);
  j:=j+1;
  end;
end;

var
  S_Path,P_Path,F_Path:       string;
  S_File,P_File,F_File:       file;
  S_Size,P_Size,F_Size:       longint;
  S_Arr,P_Arr,F_Arr:          array of byte;

    SetLength(S_Arr_EKG,(S_Size div 4)+1);
    SetLength(S_Arr_EMG,(S_Size div 4)+1);
    SetLength(P_Arr_EKG,(P_Size div 4)+1);
    SetLength(P_Arr_EMG,(P_Size div 4)+1);
    SetLength(F_Arr_EKG,(F_Size div 4)+1);
    SetLength(F_Arr_EMG,(F_Size div 4)+1);
    //
    ReadDat(S_Arr, S_Size, S_Arr_EKG, S_Arr_EMG);
    ReadDat(P_Arr, P_Size, P_Arr_EKG, P_Arr_EMG);
    ReadDat(F_Arr, F_Size, F_Arr_EKG, F_Arr_EMG);

[Sibedir]

Ну, во-первых, раз массивы динамические, что начинать нужно не с 1-ого, а с 0-ого элемента

i := 0;
j := 0;

Во-вторых, вы уверенны, что S_Arr, P_Arr и F_Arr не являются нулевыми до вызова процедур.
И как получаются S_Size, P_Size, F_Arr. Может они равны 0.

[Nigadyai]

Arr - не динамический, поэтому i должно быть = 1.
Если и поставить j=0, то результат останется тем же...
Я думаю, что проблема кроется где-то в описании параметров процедуры и в том, как я ее вызываю..

[Sibedir]

Arr:array of byte

и

S_Arr,P_Arr,F_Arr: array of byte;

Это динамические массивы

[Sibedir]

Сдетайте так

type
  TArrB = array of Byte;
  TArrI = array of smallint;

procedure ReadDat(Arr:TArrB;Arr_Size:longint;Arr_K, Arr_M:TArrI);
var
i,j:longint;
ekg,emg:smallint;
begin
i:=0;
j:=0;
  while i<=Arr_Size do begin
  emg:=Arr[i]+Arr[i+1]*256;
  ekg:=Arr[i+2]+(Arr[i+3]*256);
  Arr_M[j]:=emg;
  Arr_K[j]:=ekg;
  inc(i,4);
  j:=j+1;
  end;
end;

var
  S_Path,P_Path,F_Path:       string;
  S_File,P_File,F_File:       file;
  S_Size,P_Size,F_Size:       longint;
  S_Arr,P_Arr,F_Arr:          TArrB;

    SetLength(S_Arr_EKG,(S_Size div 4)+1);
    SetLength(S_Arr_EMG,(S_Size div 4)+1);
    SetLength(P_Arr_EKG,(P_Size div 4)+1);
    SetLength(P_Arr_EMG,(P_Size div 4)+1);
    SetLength(F_Arr_EKG,(F_Size div 4)+1);
    SetLength(F_Arr_EMG,(F_Size div 4)+1);
    //
    ReadDat(S_Arr, S_Size, S_Arr_EKG, S_Arr_EMG);
    ReadDat(P_Arr, P_Size, P_Arr_EKG, P_Arr_EMG);
    ReadDat(F_Arr, F_Size, F_Arr_EKG, F_Arr_EMG);

[Nigadyai]

i,j оставил как есть, типы объявил - рисует как надо))) спасибо!

[Sibedir]

i,j оставил как есть

Зачем? Это же не правильно.

[Nigadyai]

  // обработка файла
    assignfile(S_File,S_Path);
    reset(S_File,1);
    S_Size:=FileSize(S_File);
    SetLength(S_Arr,S_Size);
    BlockRead(S_File,S_Arr[0],S_Size);
    closefile(S_File);
    //

После "считывания" байт из файла в массив, нумерация пошла именно с единицы.
[мл.байт][ст.байт][мл.байт][ст.байт][мл.байт][ст.байт]

[Sibedir]

Странно. Мне кажется, что у вас сбивка произошла на этапе записи в файл, а не чтения.

[Sibedir]

Кстати, может есть смысл сразу считать по слову, а не по байту

type
  TArrI = array of Smallint;
var
  S_File: file;
  S_Size: Integer;
  S_Path: String;
  S_Arr: TArrI;

    AssignFile (S_File, S_Path);
    Reset (S_File, 2);
    S_Size := FileSize (S_File) div 2;
    SetLength (S_Arr, S_Size);
    BlockRead (S_File, S_Arr[0], S_Size);
    CloseFile (S_File);

Посмотрите еще вот это. Может пригодится

type
  TWordRec = packed record
    case Integer of
      0: (Lo, Hi: Byte);
      1: (Word: Word);
  end;
var
  b1, b2: Byte;
  wr: TWordRec;
  w: Word;

  wr.Lo := b1;
  wr.Hi := b2;
  w := wr.Word;