[vankai14]

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

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

[M.A.D.M.A.N.]

Воу-воу, poli-smen, так же надо (вдруг он динамический массив воткнет, да и просто принять за правило)

Код:

fs.ReadBuffer(massiv[1], length(massiv)); 

Ну т.е. явно указывать начало массива.

[poli-smen]

Сообщение от M.A.D.M.A.N.

Воу-воу, poli-smen, так же надо (вдруг он динамический массив воткнет, да и просто принять за правило)

Код:

fs.ReadBuffer(massiv[1], length(massiv)); 

Ну т.е. явно указывать начало массива.

Так ведь индексация в динамических массивах начинается с нуля, а не с единицы

А вообще у меня правило другое:
Для переменных неуказательных типов (которыми являются и статические массивы) я передаю сами эти переменные:

Код:

fs.ReadBuffer(massiv, 8);

Для переменных указательных типов (которыми являются и динамические массивы) я их разыменовываю:

Код:

fs.ReadBuffer(Pointer(massiv)^, 8);

Чтение же с определённого элемента массива/строки я делаю только если действительно нужно произвести чтение именно с этого элемента, а не сначала и только после проверки существования такого элемента массива.

[icWasya]

А вот так будет работать всегда

Код:

fs.ReadBuffer(massiv[low(massiv)], length(massiv));

И для статики, и для динамики, и для строк

[poli-smen]

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

А вот так будет работать всегда

Код:

fs.ReadBuffer(massiv[low(massiv)], length(massiv));

И для статики, и для динамики, и для строк

Не будет работать когда massiv пустой, а в настройках проекта включена опция "Range checking".

p.s. И кроме того функции Low и High не применимы для строк в старых версиях Delphi.

[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 байт, потом следующие и так лдо конца. а в коде я этого не вижу(((

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