Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

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

← →
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

---

← →
Anatoly Podgoretsky ©   (2003-01-18 14:44) [3]

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

---

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

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c