Скачать: CL | DM;

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

← →
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]

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

---

← →
Юрий Зотов ©   (2004-03-21 14:08) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c