[poli-smen]

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

Здравтсвуйте, подскажите как прочитать файл в массив из элементов по 8 байт? необходима дальнейшая работа с битами файла

Код:

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;