BlockRead и AV

← →
Vovan #2 (2007-01-17 16:29) [0]

Что я делаю не так? Размер файла 100 Кб.

var f: file; i: Integer; begin OpenDialog1.Execute; AssignFile(f, OpenDialog1.Filename); Reset(f); BlockRead(f, i, SizeOf(Integer)); CloseFile(f);

---> AV

← →
Германн © (2007-01-17 16:31) [1]

Reset(f,1);

← →
Vovan #2 (2007-01-17 16:36) [2]

М-м, похоже. Спасибо!

А почему когда я до этого делал

BlockRead(f, SomeHeader, SizeOf(TSomeHeader));

то читало нормально?

← →
Плохиш © (2007-01-17 16:37) [3]

> А почему когда я до этого делал
>
> BlockRead(f, SomeHeader, SizeOf(TSomeHeader));
>
> то читало нормально?

Повезло...

> А почему когда я до этого делал
>
> BlockRead(f, SomeHeader, SizeOf(TSomeHeader));
>
> то читало нормально?
>

Это тебе только так казалось.

Параметр у Reset это длина блока в байтах. По умолчанию длина блока какая-то довольно большая. При чтении мы должны указать длину в БЛОКАХ. Поэтому если длины файла хватило, то может прочитаться, если длину блока забыли указать. Единственно, что прочтется гораздо больше чем запрошено, и могут затереться какие-то другие области.

BlockRead и AV Найти похожие ветки