[Alegun]

Сообщение от vankai14

...а в коде я этого не вижу(((

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

... 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; ...