• Miércoles 16 de Octubre de 2019, 07:43

Autor Tema:  pequeño ejemplo de archivos  (Leído 786 veces)

epayan

  • Miembro activo
  • **
  • Mensajes: 41
  • Nacionalidad: mx
    • Ver Perfil
    • http://www.pillin-slk.blogspot.com
pequeño ejemplo de archivos
« en: Jueves 24 de Septiembre de 2009, 02:58 »
0
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
  1.  
  2. program RegArchivos;
  3. uses crt,strings,go32,utileria,archivos,sysutils; {unidades o utilerias utilizadas}
  4.  
  5. {-----*-------*-------*-------*--------*------*------*------*-------*------}
  6. { Cuerpo del programa }
  7. Var
  8.     Archivo  : TipoArchivo; {tipo del archivo}
  9.     registro : TipoRegistro; {tipo del registro}
  10.     Ventana1 , Ventana2 , Ventana3 : save_screen;
  11.     Opcion , Numero : integer;
  12.     seleccion : ArregloVertical;
  13.     Tecla : char;
  14. Begin
  15.     textattr:=15+1*16;
  16.     borraarea(1,1,79,25,15,1);
  17.     clrscr;
  18.     {agregamos un menu}
  19.     Seleccion[1]:='Mant. de Regis';
  20.     Seleccion[2]:=' Listado       ';
  21.     Seleccion[3]:=' Salir        ';
  22.     cuadro3d(1,1,80,3,2,1);
  23.     Textattr:=0+2*16;
  24.     gotoxy(2,2);write('Programa que Ejemplifica el uso de Archivos y Registros en Pascal .11/10/2009');
  25.     cuadro3d(2,23,79,25,2,1);
  26.     Textattr:=0+2*16;
  27.     gotoxy(45,24);write('epayan76@hotmail.com');
  28.     Repeat
  29.        cursoroff;
  30.        opcion := MenuVertical(Seleccion,3,1,5,0,7,15,1);
  31.        case opcion of
  32.             1 : begin
  33.                    GetScreen(ventana1);
  34.                    AperturaDeArchivo(Archivo); {aperturamos el archivo}
  35.                    Alta(Archivo,Registro);
  36.                    close(Archivo);
  37.                    PutScreen(Ventana1);
  38.                 End;
  39.             2 : Begin
  40.                    GetScreen(ventana1);
  41.                    AperturaDeArchivo(Archivo); {aperturamos el archivo}
  42.                    EfectoScroll(Archivo,Registro);
  43.                    Close(Archivo);
  44.                    PutScreen(Ventana1);
  45.                 End;
  46.        End;{case}
  47.     Until (Opcion= 3) or (Opcion = 27);
  48.     cursoron;
  49.     textattr:=15+0*16;
  50.     clrscr;
  51. End.
  52. {este programa puede ser usado y distribuido libremente con fines didacticos y educativos}
  53.  
  54.  
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.