IPB

> Blockrd.PAS
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Язык:
Русский
English


 { Пример программы для процедур BlockRead и BlockWrite }

program CopyFile;

uses Crt;

{ Простая программа быстрого копирования файлов БЕЗ проверки ошибок }

var
  FromF, ToF          : File;
  NumRead, NumWritten : Word;
  Buf                 : array[1 .. 2048] of Char;
begin
 { Открываем входной файл }
  Assign(FromF, ParamStr(1));
  FileMode := 0;    { Режим только-чтение }
 Reset(FromF, 1);  { Размер буфера записи = 1 байт }
 { Открываем выходной файл }
  Assign(ToF, ParamStr(2));
 ReWrite(ToF, 1);  { Размер буфера записи = 1 байт }
 WriteLn('Копирую ', FileSize(FromF), ' байт...');
 repeat
   BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
   BlockWrite(ToF, Buf, NumRead, NumWritten);
 until (NumRead = 0) or (NumWritten <> NumRead);
 Close(FromF);
 Close(ToF);
end.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"