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

← →
rummy (2005-08-22 17:19) [0]

Уважаемые мастера. Столкнулся с проблемой записи динамического массива в файл. Пишу:
var
bFileArr: array of byte;
bfile: file;
written: integer;
BEGIN
//Выделяю память
SetLength(bfilearr,132);
//Заполняю массив
//Пишу в файл :(
AssignFile(bfile,"C:\1.DAT");
Rewrite(bfile,1);
Seek(bfile,$100);
BlockWrite(bfile,bFileArr,length(bFileArr),written);
CloseFile(bfile);
END;
А в файле вижу совсем не то что писал. Есть ли возможность корректно записать содержимое динамического массива в файл? и в чем моя ошибка?

← →
DiamondShark © (2005-08-22 17:23) [1]

> BlockWrite(bfile,bFileArr,length(bFileArr),written);

BlockWrite(bfile,bFileArr[0],length(bFileArr),written);

← →
rummy (2005-08-22 17:35) [2]

Спасибо за "молнию". Все заработало как надо.

Запись динамического массива в нетипизированный файл Найти похожие ветки