Programación General > Pascal

 pequeño ejemplo de archivos

(1/1)

epayan:
dentro de la humilde aportacion que les traigo, acontinuacion un pequeño ejemplo del manejo de  archivos tipeados
cito el programa principal y anexo dos unidades la primera utileria.pas y la segunda archivos.pas
compilado en freepascal.

espero que les sea de utilidad.

--- Código: Pascal --- 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}  

Navegación

[0] Índice de Mensajes