[vankai14]

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

[poli-smen]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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, так же надо (вдруг он динамический массив воткнет, да и просто принять за правило)

Код:

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

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

[poli-smen]

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

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

Код:

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

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

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

Код:

1	fs.ReadBuffer(massiv, 8);

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

Код:

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

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

[icWasya]

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

Код:

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

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

[poli-smen]

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

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

Код:

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

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

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

[vankai14]

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

Код:

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

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