|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Цитата:
Код:
... var f : file of byte; buf: array[1..8] of byte; i,b: integer; begin AssignFile(f,'File Name'); try Reset(f); Seek(f,1); repeat BlockRead(f, buf, SizeOf(buf), i); for b:= 1 to i do begin // вот здесь делайте со считанными байтами что хотите buf[b]:= ... end; until (i = 0); finally CloseFile(f); end; end; ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |