Файлы

← →
Grant (2004-03-21 12:46) [0]

У меня есть бинарный(нетипизированный) файл. В каждых двух байтах находится число. Мне необходимо считать эти числа. Правильный ли у меня код :
Var a : Word;
F: File;
Begin
AssignFile(F, ‘…’);
Reset(F, 2);
While not EOF(F) do
BlockRead(F, a, SizeOf(a));
End;

← →
Eagle Owl © (2004-03-21 13:27) [1]

А самому лень проверить?

> Grant (21.03.04 12:46)
> У меня есть бинарный(нетипизированный) файл. В каждых двух
> байтах находится число

Следовательно, файл все же типизированный - file of word. Хотя никто не запрещает работать с ним и как с нетипизированным.

Файлы Найти похожие ветки