[Alegun]

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

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

Код:

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