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

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

Копирование файла [D6, Win95/98]

NS ©   (2002-03-27 04:43:00) 

Уважаемый All! Подскажите, пожалуста, почему код
var
f1,f2:file;
buf:array of byte;
begin
AssignFile(f1,"File1.ext");
AssignFile(f2,"File2.ext");
Reset(f1,1);
Rewrite(f2,1);
SetLength(buf,FileSize(f1));
BlockRead(f1,buf,FileSize(f1));
BlockWrite(f2,buf,FileSize(f1));
buf:=nil;
CloseFile(f1);
CloseFile(f2);
end;
Вызывает ошибку при исполнении на строке
CloseFile(f1);, но при этом файл все равно копируется?

---

NS   (2002-03-27 06:37:00) [1]

>Adder
Спасибо за помощ.

---

Adder   (2002-03-27 06:13:00) [2]

Дело в том, что динамический массив размещается в памяти примерно так же, как длинная строка. А процедура BlockRead
читает из файла в память, начиная с ПЕРВОГО байта, занимаемого Buf (Это совсем не Buf[0]). И "затирает" информацию о размере динамического массива и счетчик ссылок.

---

Adder   (2002-03-27 05:32:00) [3]

var
buf:array of byte;
f1,f2:file;
begin
AssignFile(f1,"project1.ini");
AssignFile(f2,"project2.ini");
Reset(f1,1);
Rewrite(f2,1);
SetLength(buf,FileSize(f1));

BlockRead(f1, buf[0],FileSize(f1));
BlockWrite(f2, buf[0],FileSize(f1));

buf:=nil;
CloseFile(f1);
CloseFile(f2);
end;

---

Наверх