Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизКопирование :-Е Найти похожие ветки
← →
Programist21 (2003-02-24 14:35) [0]Почему не пашет?
Народ, вот тут файл копирую. Но файл копируется, но не читается (то есть читается неправильно)! В чём ошибка?
var f1,f2: File;
buf: array of char;
s: string;
NumRead, NumWritten: integer;
begin
AssignFile(f1,"1.rar");
AssignFile(f2,"2.rar");
Reset(f1);
Rewrite(f2);
repeat
BlockRead(f1, Buf, SizeOf(Buf), NumRead);
BlockWrite(f2, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(f1);
CloseFile(f2);
Readln;
end.
← →
Романов Р.В. (2003-02-24 14:40) [1]1. Размер Buf не задан
2. SizeOf(Buf) = 4 байта
← →
Zz_ (2003-02-24 14:41) [2]buf array[1..1024] of byte
Reset (f1, 1);
Rewrite (f2, 1);
repeat
BlockRead (f1, Buf[1], 1024, NumRead);
BlockWrite (f2, Buf[1], NumRead, NumWritten);
← →
Владислав (2003-02-24 14:42) [3]А чему у тебя Buf равен?
← →
Юрий Зотов (2003-02-24 14:49) [4]1. Под массив Buf не выделена память.
2. То же самое (только проще, быстрее и лучше) делается так:
CopyFile("1.rar", "2.rar", False);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c