Нетепизированные файлы (буфер) Опции

[Skrip]

Код

Uses Crt;
Var
FromF, ToF : File;
NumRead, NumWritten : Word;
Buf : array [1..64512] of char;
i: integer;
Begin
clrscr;
Assign(FromF, 'c:\new.exe');
Reset(FromF, 1);
Assign(ToF, 'c:\copy_new.exe');
ReWrite(ToF, 1);
WriteLn('Копирую: ', FileSize(FromF), ' байт...');
Repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
Until (NumRead = 0);
Close(FromF);
Close(ToF);
readln
end.

end.

Почему размер буфера записи и чтения устанавливается по 1 байту
(я очень сильно догадываюсь, но хочу узнать правильно или нет)

[SKVOZNJAK]

Гы. Reset(FromF, 1); Строка совершенно правильная. 1 обозначает, что третий параметр в процедурах чтения и записи будет умножаться на 1 а не на 128 как по умолчанию. У меня была похожая прога (где-то есть на форуме), только там всё через GOTO написано Цикл чтения-записи сильно мудрёно написан, и неправильно, к томуже. Так получше будет

Код

BlockRead(FromF, Buf, NumRead);
BlockWrite(ToF, Buf, NumRead,);

Никогда не пользовался четвёртым параметром. ИМХО счётчик вообще не нужен, выбрось четвёртую переменную Тогда процесс выглядит так: третий параметр в процедурах чтения и записи ставим NumRead, по умолчанию он равен размеру буфера(выставляется перед циклом). Перед чтением производится сравнение длины файла (qqq: longint) и NumRead. Если qqq больше, то от него отнимаем NumRead, в противном случае NumRead:=qqq; qqq:=0 ......... Until (qqq = 0); Только, Ихмо, с гото получается прикольнее

Сообщение отредактировано: SKVOZNJAK - 16.12.2004 22:43