access violation после завершения работы процедуры

[Dreanks]

процедура чтения из файла

procedure TForm1.Button2Click(Sender: TObject);
var i,lenlogs:integer;
    len:word;
begin
  assignfile(logf,'data.log');
  reset(logf);
  blockread(logf,len,sizeof(word));
  lenlogs:=len;
  for i:=0 to lenlogs-1 do
    begin
      blockread(logf,len,sizeof(word));
    end;
  closefile(logf);
end;

читает все нормально, а после end; вылетает ошибка
подскажите в чем тут дело

[Tony Parker]

Ошибка при обращении к памяти. В приведенном коде это может вызвать только blockread().

Какие данные содержит файл data.log?
(Файл бинарный, не содержит "4 1 1 1 1", а содержит числа записанные подряд по 2 байта (слово) каждое?)

[Dreanks]

вот запись файла

len:=length(logs);
  blockwrite(logf,len,sizeof(word));
  for i:=0 to length(logs)-1 do
    begin
      len:=length(logs[i].name);
      blockwrite(logf,len,sizeof(word));
    end;

чтение проходит нормально
ошибка вылетает после end; в конце процедуры чтения

[Tony Parker]

Функции открытия файла Reset и Rewrite имеют дополнительный параметр, который указывает размер записи, если этот параметр не указан, то используется значение по умолчанию в 128 байт, кстати, это часто является одной из причин для возникновения ошибок, забываем указать этот размер, а при работе считаем, что работаем с байтом. Что бы работать с файлом, как с байтом, надо или установить размер записи в 1 или использовать типизированный файл следующего типа - file of byte.

Попробуй так: Reset(F, 1);

[Dreanks]

спасибо
помогло