program RegArchivos;
uses crt,strings,go32,utileria,archivos,sysutils; {unidades o utilerias utilizadas}
{-----*-------*-------*-------*--------*------*------*------*-------*------}
{ Cuerpo del programa }
Var
Archivo : TipoArchivo; {tipo del archivo}
registro : TipoRegistro; {tipo del registro}
Ventana1 , Ventana2 , Ventana3 : save_screen;
Opcion , Numero : integer;
seleccion : ArregloVertical;
Tecla : char;
Begin
textattr:=15+1*16;
borraarea(1,1,79,25,15,1);
clrscr;
{agregamos un menu}
Seleccion[1]:='Mant. de Regis';
Seleccion[2]:=' Listado ';
Seleccion[3]:=' Salir ';
cuadro3d(1,1,80,3,2,1);
Textattr:=0+2*16;
gotoxy(2,2);write('Programa que Ejemplifica el uso de Archivos y Registros en Pascal .11/10/2009');
cuadro3d(2,23,79,25,2,1);
Textattr:=0+2*16;
gotoxy(45,24);write('epayan76@hotmail.com');
Repeat
cursoroff;
opcion := MenuVertical(Seleccion,3,1,5,0,7,15,1);
case opcion of
1 : begin
GetScreen(ventana1);
AperturaDeArchivo(Archivo); {aperturamos el archivo}
Alta(Archivo,Registro);
close(Archivo);
PutScreen(Ventana1);
End;
2 : Begin
GetScreen(ventana1);
AperturaDeArchivo(Archivo); {aperturamos el archivo}
EfectoScroll(Archivo,Registro);
Close(Archivo);
PutScreen(Ventana1);
End;
End;{case}
Until (Opcion= 3) or (Opcion = 27);
cursoron;
textattr:=15+0*16;
clrscr;
End.
{este programa puede ser usado y distribuido libremente con fines didacticos y educativos}