Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запись динамического массива в нетипизированный файл [D5, D7, Win2k, WinXP]


rummy ©   (2005-08-22 17:19:00) 

Уважаемые мастера. Столкнулся с проблемой записи динамического массива в файл. Пишу:
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;
А в файле вижу совсем не то что писал. Есть ли возможность корректно записать содержимое динамического массива в файл? и в чем моя ошибка?


rummy   (2005-08-22 17:35:00) [1]

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


DiamondShark   (2005-08-22 17:23:00) [2]


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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо