Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Копирование файла   Найти похожие ветки 

← →
NS   (2002-03-27 04:43) [0]

Уважаемый 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);, но при этом файл все равно копируется?

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c