Байты из файла в array of Byte

[Cold_Night]

Всем привет! У меня такой вопрос: как последовательно считать байт за байтом из файла и разместить их в той же последовательности в динамическом массиве array of Byte?

[raxp]

var rl_: array of Byte;
     recl: byte;
...
 fDAT:= TMemoryStream.Create;
 fDAT.LoadFromFile('file');

 setlength(rl_, 0);

for i:=0 to sizeof(fdat) div 2 do begin
  fDAT.Position:= i;
  fDAT.Read(recl, SIZEOF(recl)); // recl

  setlength(rl_,length(rl_)+1);
  rl_[length(rl_)-1]:= recl;
...

смысл ясен?

[Serge_Bliznykov]

1)

setlength(rl_,length(rl_)+1);

операция setlength достаточно долгая, поэтому, когда есть возможность (например, как в данном случае), лучше выносить её из цикла - до цикла сразу установить нужную длину (разумеется, если она известна) и потому уже в цикле заполнять.

2) сейчас нет времени проверить, но, мне кажется,
что банальный BlockRead тоже без проблем прочитает из файла в динамический массив...

[Stilet]

банальный BlockRead тоже без проблем прочитает из файла в динамический массив

Согласен.

Cold_Night

Тебе это зачем? В разных ситуациях разная стратегия. Например если ты хочеш четко контролировать файл и его содержимое проще работать с ним через TFileStream.
А если тебе нужно все и быстро закачать то BlockRead тут поумеснее будет.

[raxp]

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

[Cold_Night]

Тебе это зачем?

Хотел сделать шифрование файла
Всем спасибо, буду разбираться