BlockWrite(те же параметры)

Count – количество записей, заказанных для вывода.

Result – число фактически записанных элементов файла.

Close(F); - работает и для нетипизированных файлов.

Размер буфера (Buf) всегда равен произведению размера записи на значение переменной Count. Размер_буфера_Buf=Size*Count

Пример (использование нетипизированных файлов):

Прог-а копирования любых файлов. (copy источник приёмник)

program FileCopy;

count

BufSize = 512; //размер буфера обмена данных

var

FileIn, FileOut: file; //размер буфера обмена в байтах

NumRead,NumWritten: world;

Buf: array[1..BufSize] of Char; //буфер обмена

begin

if ParamCout < 2 then Halt;

Assign(FileIn, ParamStr(1));

//ParamStr возвращает строку (1-й параметр)

{$I-} Reset(fileIn,1);

//{$I-} – отключение автоматической обработки ошибок

if IOResult <> 0 then // IOResult – внутненняя ф-ция

begin

writeln(‘Файл – источник не найден’); Half

end;

//откроем выходной файл

Assign(FileOut,ParamStr(2));

//ParamStr возвращает имя файла приёмника

Rewrite(FileOut,1);

//цикл копирования

repeat

BlockRead(FileIn,Buf,BufSize,NumRead);

BlockWrite(FileOut,Buf,NumRead,NumWritten);

until (NumRead = 0) or (NumRead <> NumWritten)

close(FileIn);

close(FileOut);

end.

Дата добавления: 2014-01-07