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:

image255.jpg

tareas PROGRAMACION PASCAL :

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

Politica de Privacidad