Ребят, поможете найти ошибку?

[Poltish]

Работал над чтением HEX-кода файла.

Вот собственно код:

procedure TForm1.Button5Click(Sender: TObject);
var
F : File;
Arr : array of Byte;
S, STmp : String;
i, j, Size, H, Len : Integer;
begin

{Привязывание, чтение и т.д. файла}
AssignFile(F, Op.FileName);
Reset(F, 1);
Size:= FileSize(F);
SetLength(Arr, Size);
BlockRead(F, Arr[0], Size);
CloseFile(F);

{Формирование данных для RichEdit}
Len := Size * 3 + (Size div 16);
  if Size mod 16 > 0 then Dec(Len);
  SetLength(S, Len);
  H := High(Arr);
  j := 1;
  for i := 0 to H do begin
    STmp := IntToHex(Arr[i], 2);
    S[j] := STmp[1];
    S[j + 1] := STmp[2];
    Inc(j, 2);
    if i = H then Continue;
    if i mod 16 = 15 then begin
      S[j] := #13;
      S[j + 1] := #10;
      Inc(j, 2);
    end else begin
      S[j] := #9;
      Inc(j);
    end;
  end;

form2.RichEdit1.Text:= S;

end;

Что-то мне подсказывает что на BlockRead ругается. Вот скрин ошибки:

Причём код читает и в нужном виде сканирует его в RichEdit. А после закрытия второй формы (на которой EichEdit) выдаёт ошибку. Буду премного благодарен всем откликнувшимся

[Stilet]

после закрытия второй формы

Значит проблема не в этом коде.
Это легко проверить: Закоментируй код этой кнопки и запусти - появится ошибка?
Если нет раскоментируй считывание - запусти. Потом Формирование данных для RichEdit - запусти, и так до последнего.
Узнаешь в каком месте родина сбоя.

[TwiX]

Похоже, что за пределы массивы лезешь

 H := High(Arr);
  for i := 0 to H do begin

Попробуй заменить на

 H := High(Arr);
  for i := 0 to H-1 do begin

Или

 H := Size;
  for i := 0 to H-1 do begin

[Аватар]

Попробуй заменить на

Не. С High динамческого массива все нормально. Вот значение j покапать не мешало бы, если выход, то из-за него скорее

[саша40]

Попробуй так:

BlockRead(F,@Arr,Size);

[TwiX]

Да) Скорее всего, саша40 прав
BlockRead(F, Arr[0], Size); это сильно) (Может собаку забыл?)

[Poltish]

Сообщение от Stilet

Значит проблема не в этом коде.
Это легко проверить: Закоментируй код этой кнопки и запусти - появится ошибка?
Если нет раскоментируй считывание - запусти. Потом Формирование данных для RichEdit - запусти, и так до последнего.
Узнаешь в каком месте родина сбоя.

Ошибки нет в случае если закомментирован BlockRead и вывод информации в RixhEdit

[Poltish]

Сообщение от саша40

Попробуй так:

BlockRead(F,@Arr,Size);

[dcc32 Error] Unit1.pas(85): E2197 Constant object cannot be passed as var parameter
Вот такая ошибка вылазит

[Poltish]

Сообщение от TwiX

Да) Скорее всего, саша40 прав
BlockRead(F, Arr[0], Size); это сильно) (Может собаку забыл?)

Если честно я с темой чтения и записи в файл по средствам BlockRead и BlockWrite только начинаю работать. Не подскажете зачем тут собачка?

[Аватар]

Все правильно с Arr[0]. C собакой не прокатит и не должно. TC, ставь точку останова и пошагово проверяй где вылетаешь и почему