[vankai14]

Сообщение от poli-smen

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  massiv: array[1..8] of Byte;
  fs: TFileStream;
begin
  // Открываем файл на чтение без блокировок:
  fs := TFileStream.Create('Имя файла', fmOpenRead or fmShareDenyNone);
  try
    fs.Position := 0; // Устанавливаем позицию с которой нужно прочитать файл
    fs.ReadBuffer(massiv, 8); // Читаем из указанной позиции файла 8 байт в массив
    ... // Что-то делаем с прочитанными данными
  finally
    fs.Free;
  end;
end;

что-то я в вашем споре запутался. первый предложенный будет читать? и далее после обработки массива нужно в этот же массив считать следующие 8 байт, потом следующие и так лдо конца. а в коде я этого не вижу(((