IPB

> Blockrd.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

   {Blockrd.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the BlockRead and BlockWrite procedures.}

  uses WinCrt;

  program CopyFile;
  { Simple, fast file copy program with NO error-checking }
  var
    FromF, ToF: file;
    NumRead, NumWritten: Word;
    Buf: array[1..2048] of Char;
  begin
    Assign(FromF, ParamStr(1)); { Open input file }
    Reset(FromF, 1);  { Record size = 1 }
    Assign(ToF, ParamStr(2)); { Open output file }
    Rewrite(ToF, 1);  { Record size = 1 }
    Writeln('Copying ', FileSize(FromF), ' bytes...');
    repeat
      BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
      BlockWrite(ToF, Buf, NumRead, NumWritten);
    until (NumRead = 0) or (NumWritten <> NumRead);
    Close(FromF);
    Close(ToF);
  end.

 
 К началу страницы 
Тэги:
 

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



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