ErrorDeSintaxis

Pequeños fragmentos de código fuente en distintos lenguajes de programación, agrupados por categorías.

Puedes buscar entre los fuentes existentes, o aportar los tuyos.

Pascal: Copiar un fichero binario

Ejemplo de cómo copiar el contenido de un fichero binario en otro, usando Pascal

Lenguaje: Pascal (compilador: Turbo Pascal 7)

Categoría: Ficheros

(* Fuente procedente de ErrorDeSintaxis.es *)
(* Ejemplo de cómo copiar el contenido de un *)
(*  fichero binario en otro, usando Pascal *)
(* Lenguaje: Pascal *)
(* Compilador: Turbo Pascal 7 *)
(* Nivel: Básico *)
(* Disponible desde 19/07/2011 *)
(* Aportado por Nacho *)
(* Autor original: Nacho Cabanes *)
(* Web original: http://www.aprendeaprogramar.com/mod/resource/view.php?id=154 *)


Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399
program CopiaFichero;
 { Sencillo y rápido programa de copia de ficheros, SIN comprobación
   de errores }
 
 var
   Origen, Destino: file;
   CantLeida, CantEscrita: Word;
   NombreOrg, NombreDest: String;
   Buffer: array[1..2048] of Char;
 
 begin
   Write( 'Introduzca el nombre del fichero ORIGEN... ' );
   ReadLn( NombreOrg );
   Write( 'Introduzca el nombre del fichero DESTINO... ' );
   ReadLn( NombreDest );
   Assign( Origen, NombreOrg );
   Reset( Origen, 1 );                                { Tamaño = 1 }
   Assign( Destino, NombreDest );
   Rewrite( Destino, 1 );                             { Lo mismo }
   WriteLn( 'Copiando ', FileSize(Origen), ' bytes...' );
   repeat
     BlockRead( Origen, Buffer, SizeOf(Buffer), CantLeida);
     BlockWrite( Destino, Buffer, CantLeida, CantEscrita);
   until (CantLeida = 0) or (CantEscrita <> CantLeida);
   Close( Origen );
   Close( Destino );
   WriteLn( 'Terminado.' )
 end.