Копирование :-Е

← →
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 равен?

1. Под массив Buf не выделена память.
2. То же самое (только проще, быстрее и лучше) делается так:
CopyFile("1.rar", "2.rar", False);

Копирование :-Е Найти похожие ветки