UNIDAD 5: PASCAL REGISTROS Y ARCHIVOS SECUENCIALES

TEMA 11: EDICION DE REGISTROS ARCHIVOS DISCO PASCAL

Editar registros significa cambiar el contenido de algunos de los campos o columnas por nueva informacion o para corregir algun error de captura original o para agregar alguna columna que no existia por modificacion de la tabla o la base de datos.

La solucion es similar a los temas anterior, es decir se ocupan los dos archivos el original y el temporal y ya sea que se modifique una sola clave o se modifiquen todos los registros el ejemplo que se construye va mostrando los registros del archivo y pregunta y modifica o edita el registro pedido.

Prog24.pas

program prog24;

uses crt;

type

alumnos = RECORD

clave:integer;

nombre:string[30];

estatura:real;

end;

var

alumno:alumnos;

archivo: file of alumnos;

temporal: file of alumnos;

clave:integer;

BEGIN

(* creando y abriendo los dos archivos *)

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

reset(archivo);

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

rewrite(temporal);

(* capturando clave a editar *)

clrscr;

write('clave a editar : ');readln(clave);

(* iniciando ciclo de lectura de registros en archivo original *)

while not(EOF(archivo)) do

begin

READ(archivo,alumno);

if clave = alumno.clave then

begin

(* capturando nuevos datos *)

write('dame nueva clave : ');readln(alumno.clave);

write('dame nuevo nombre: ');readln(alumno.nombre);

write('dame estatura : ');readln(alumno.estatura);

(* escribiendo reg editado a temporal *)

WRITE(temporal,alumno);

end

else

WRITE(temporal,alumno);

end;

(* cerrando archivos *)

close(archivo);

close(temporal);

(* borrando y eliminando archivos *)

erase(archivo);

rename(temporal,'c:\prog\alumnos.dat');

(* avisando *)

write('Registro Editado <enter> para continuar');

readln;

END.

corrida:

tareas PROGRAMACION PASCAL :

1.- construir procedimientos de edicion para sus archivos, pero primero desplegar el registro a eliminar y luego pedirle los nuevos campos