Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Файлы Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.05 c
