home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / refex / ex6.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  612 b   |  26 lines
  1. Program Example6;
  2.  
  3. { Program to demonstrate the BlockRead and BlockWrite functions. }
  4.  
  5. Var Fin, fout : File;
  6.     NumRead,NumWritten : Word;
  7.     Buf : Array[1..2048] of byte;
  8.     Total : Longint;
  9.  
  10. begin
  11.   Assign (Fin, Paramstr(1));
  12.   Assign (Fout,Paramstr(2));
  13.   Reset (Fin,1);
  14.   Rewrite (Fout,1);
  15.   Total:=0;
  16.   Repeat
  17.     BlockRead (Fin,buf,Sizeof(buf),NumRead);
  18.     BlockWrite (Fout,Buf,NumRead,NumWritten);
  19.     inc(Total,NumWritten);
  20.   Until (NumRead=0) or (NumWritten<>NumRead);
  21.   Write ('Copied ',Total,' bytes from file ',paramstr(1));
  22.   Writeln (' to file ',paramstr(2));
  23.   close(fin);
  24.   close(fout);
  25. end.
  26.