ARCHIVOS

1.- Concepto 

2.- Uso

3.- Sintaxis

4.- Ejemplo 

¿Qué es?   

        

Es una colección de datos que tiene un nombre y se guardan en dispositivos de almacenamiento secundario, los cuales pueden ser magnéticos, ópticos, electrónicos.

Consistente en un conjunto de informaciones estructuradas en unidades de acceso denominadas registros, todos del mismo tipo y en número indeterminado. En contraste con los arreglos, el tamaño de los archivos no es fijo, y está limitado solamente por la capacidad de almacenamiento disponible.

 Los archivos en general, están compuestos por registros. Mediante programas adecuados se pueden manipular los distintos tipos de archivos (texto, tipeados, no tipeados). Cada archivo es referenciado por un identificador (su nombre y su extensión). Cuando hablamos de archivos tipeados, nos referimos a un archivo de registros.

El usuario puede colocarle la extensión que desee ya sea DAT, TXT, BIN, JK8, etc.

 un archivo solo tiene 2 operaciones:

• Lectura

 • Escritura

Uso

Los datos pueden ser almacenados de muchas formas diferentes en los archivos y de esto depende la facilidad (o dificultad) que el archivo muestre para ciertas operaciones de acceso.

Sintaxis

Primero se debe crear un alias: Se usa la función Assign para asignar el alias de un archivo

Para abrir un archivo en Pascal en modo de lectura y escritura se utiliza la función Reset y para crear un archivo se usa la función Rewrite.

·         Escritura: Para almacenar todos los campos de un registro en un archivo se usa la variable write. Cabe destacar que al utilizar esta función, se almacena una variable (de tipo Record) que representa un bloque de datos o campos; es decir, no se almacena campo por campo.

·         Lectura: La función Read permite “cargar” todos los campos de un registro en un archivo, es decir, lee un registro y lo copia en la memoria RAM

Se puede reposicionar este apuntador del archivo mediante la función Seek.

Antes de dejar de utilizar un archivo es necesario cerrarlo. Esto se logra mediante la función Close y es necesario indicarle el alias del archivo que se desea cerrar.

EJEMPLO:

Ejemplo 2:

program prog26;

uses crt;

type

alumnos = RECORD

clave:integer;

nombre:string[30];

edad:integer;

status:char;

end;

var

alumno:alumnos;

archivo: file of alumnos;

BEGIN

clrscr;

(* creando y abriendo el archivo *)

assign(archivo,'c:\prog\alumnos.dat');

reset(archivo);

(* ciclo de lectura y despliegue registro *)

while not(EOF(archivo)) do

begin

read(archivo,alumno);

(* revisando status registro *)

if alumno.status = 'A' then

begin

write('clave : ');writeln(alumno.clave);

write('nombre : ');writeln(alumno.nombre);

write('edad : ');writeln(alumno.edad);

write('<enter> para continuar ');readln;;

end;

end;

(* cerrando archivo *)

close(archivo);

END.