Algoritmos y Programación en Pascal

14.2. Manejo de archivos en Pascal 289
Rewrite(nombreArchivo)
nombreArchivo^
Fin de
archivo
? ? ?
EoF(nombreArchivo) = true
Figura 14.4.
secuencial. El cursor del archivo avanzará una posición cada vez que se escriba
o se lea en el archivo.
La creación de un archivo se hace mediante la siguiente instrucción:
Rewrite(nombreArchivo)
que sitúa el cursor al principio del archivo nombreArchivo y, además, destruye
cualquier posible información existente en él, como se muestra en la figura 14.4.
Una vez ejecutada la instrucción anterior, el archivo está preparado para recibir
operaciones de escritura como la siguiente:
Put(nombreArchivo)
que añade una componente más al archivo en la posición que indique el cursor
y avanza éste un lugar en el archivo nombreArchivo, como puede verse en la
representación gráfica de la figura 14.5. Después de ejecutar dicha instrucción,
nombreArchivo^ queda indefinido.
Así, teniendo en cuenta la declaración hecha anteriormente y suponiendo
que la variable unaTarjeta posee la información que queremos almacenar en el
archivo archivoTarjetas, realizaremos las siguientes instrucciones para añadir
una nueva componente al archivo:
archivoTarjetas^:= unaTarjeta;
Put(archivoTarjetas)
Estas dos instrucciones son equivalentes a la instrucción: