| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему не пашет? [D6, Win95/98, WinXP]
Programist21 © (2003-01-18 13:57:00)Народ, вот тут файл копирую. Но файл копируется, но не читается (то есть читается неправильно)! В чём ошибка?
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.
Anatoly Podgoretsky (2003-01-18 14:44:00) [1]Благодари бога что не вешаешь компьютер, буффер то кто будет выделять, Пушкин?
Zz_ (2003-01-18 14:16:00) [2]1. Размер buf ???
2. Reset(f,RecSize) RecSize default=128
Big_Rom (2003-01-18 14:10:00) [3]мож лучше copyfile использовать ?
| |
