Algoritmos y Programación en Pascal

14.2. Manejo de archivos en Pascal 293
función es imprescindible para realizar la lectura de archivos en los que desconocemos
a priori el número de componentes o para detectar archivos vacíos.
En el siguiente ejemplo se presenta el esquema de un programa que lee un
archivo completo controlando el final de archivo con EoF:
Program LeerArchivo (input, output, archivoTarjetas);
type
tTarjeta = array[1..50] of char;
tArchivo = file of tTarjeta;
var
archivoTarjetas: tArchivo;
una Tarjeta: tTarjeta
begin {LeerArchivo}
...
Reset(archivoTarjetas);
while not EoF(archivoTarjetas) do begin
Read(archivoTarjetas, unaTarjeta);
Procesar unaTarjeta
end; {while}
end. {LeerArchivo}
El principal inconveniente que presentan los archivos en Pascal es que no se
pueden alternar las operaciones de lectura y escritura en un archivo. Por tanto,
si deseamos escribir y leer un archivo, en primer lugar se tendrá que escribir en
él, y posteriormente situar el cursor al principio del archivo para leerlo.
Para realizar una copia de un archivo no se puede utilizar la asignación, a
diferencia de los demás tipos de datos. Para poder copiar un archivo en otro se
debe desarrollar un procedimiento cuyo código podría ser:
type
tTarjeta = array[1..50] of char; {por ejemplo}
tArchivoTarjetas = file of tTarjeta;
...
procedure CopiarArchivo(var archiEnt, archiSal: tArchivoTarjetas);
{Efecto: archiSal:= archiEnt}
var
unaTarjeta: tTarjeta;
begin
Reset(archiEnt);
Rewrite(archiSal);
while not EoF(archiEnt) do begin
Read(archiEnt, unaTarjeta);
Write(archiSal, unaTarjeta)
end {while}
end; {CopiarArchivo}