Почему не пашет?

← →
Programist21 (2003-01-18 13:57) [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.

← →
Big_Rom © (2003-01-18 14:10) [1]

мож лучше copyfile использовать ?

← →
Zz_ (2003-01-18 14:16) [2]

1. Размер buf ???
2. Reset(f,RecSize) RecSize default=128

Благодари бога что не вешаешь компьютер, буффер то кто будет выделять, Пушкин?

Почему не пашет? Найти похожие ветки