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

[Poltish]

Сообщение от Аватар

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

Я бы с удовольствием, но у меня Delphi категорически не хочет отображать что-либо в режиме Debug Layout
Ни Local Variables, ни чего(

[Poltish]

form2.Show; - при заккоментированной данной строке ошибку не выдаёт.

[Аватар]

Тогда смотри от Stilet-а #2

Значит проблема не в этом коде.

[TwiX]

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

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

Да, Аватар прав. Собака тут лишняя:

Аргумент Buffer - это не указатель, а нетипизированный var-napaметр. Передавайте саму переменную, а не ее адрес. Если вы передаете указатель на динамически выделенный буфер, разыменуйте ссылку при вызове BlockRead.

Собака - это указатель на адрес в памяти. Просто обычно в функции чтения блоков памяти пер]едают указатель на начало памяти, куда считывать.
Изначально у тебя было правильно.

Я не очень понял из описания функции что она считывает (вроде как может не только по байту считывать). Хотя у тебя вроде установлен размер записи в 1 байт.
Можешь попробовать указать заведомо большую длину массива и посмотреть, будет ли ошибка на маленьком файле. Как-то так:
SetLength(Arr, Size*100);

Если не ошибка останется, то ищи в другом месте)


Короче. Проверил код у себя - всё нормально отработало.

[Poltish]

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

Да, Аватар прав. Собака тут лишняя:


Собака - это указатель на адрес в памяти. Просто обычно в функции чтения блоков памяти пер]едают указатель на начало памяти, куда считывать.
Изначально у тебя было правильно.

Я не очень понял из описания функции что она считывает (вроде как может не только по байту считывать). Хотя у тебя вроде установлен размер записи в 1 байт.
Можешь попробовать указать заведомо большую длину массива и посмотреть, будет ли ошибка на маленьком файле. Как-то так:
SetLength(Arr, Size*100);

Если не ошибка останется, то ищи в другом месте)


Короче. Проверил код у себя - всё нормально отработало.

Спасибо, понял. И спасибо большое что проверил В общем "забив" на время на этот отрывок кода, создал обычную форму, и при её ВЫЗОВЕ! обычном .Show такая же ошибка. Что это может быть?

[iworm2009]

а код на закрытии form2 есть?

[iworm2009]

интересно, у меня этот код вызывает через ~ 2 мин system exception
ntdll.zwclose + 0x12

procedure TForm3.Button5Click(Sender: TObject);
var
F : File;
Arr : array of Byte;
S, STmp : String;
i, j, Size, H, Len : Integer;
begin
op.Execute(0);
{Привязывание, чтение и т.д. файла}
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;

RichEdit1.Text:= S;

  Caption := inttostr(size) +' ' + inttostr(len)  + ' '+ inttostr(h) + ' ' + inttostr (j);

end;

все на одной форме

в richedit при первом впечатлении все хорошо отображает