Algoritmos y Programación en Pascal

292 Capítulo 14. Archivos
Get(nombreArchivo)
comp comp comp comp . . .
1
comp
2 3 4 n
nombreArchivo^
Get(nombreArchivo)
comp
2
Figura 14.7.
Su efecto se muestra en la figura 14.7.
. . .
Fin de
archivo
Fin de
archivo
nombreArchivo^ ? ? ?
EoF(nombreArchivo) = false
Siguiendo con el ejemplo anterior, si deseamos leer el contenido de la componente
del archivo apuntada por el cursor realizaremos las siguientes instrucciones:
unaTarjeta:= archivoTarjetas^;
Get(archivoTarjetas)
o, equivalentemente,
Read(archivoTarjetas, unaTarjeta)
Es muy importante tener en cuenta que antes de leer de un archivo se ha de
comprobar, mediante la función EoF, que quedan componentes por leer. Esta