next up previous contents
Siguiente: Ejemplo: Copia de un Subir: Ficheros de texto Anterior: Ficheros de texto   Índice General

Números y enumerados

Los paquetes genéricos Integer_IO, Float_IO y Enumeration_IO también tienen dos versiones de los procedimientos Put y Get. Una para acceder a teclado y pantalla (que es la que hemos utilizado hasta ahora); la otra para leer o escribir en ficheros. Igual que en los procedimientos de Text_IO, para utilizar la versión de ficheros debemos pasar como primer parámetro una variable de tipo Text_IO.File_Type. Por ejemplo:

      with Text_IO;
      procedure Ejemplo_Fichero is
         package Int_IO is new Text_IO.Integer_IO (Integer);

         Fichero_Numeros : Text_IO.File_Type;
      begin
         Text_IO.Create (Fichero_Numeros, Text_IO.Out_File, "numeros.txt");

         for Contador in 1 .. 10 loop
             Int_IO.Put (Fichero_Numeros, Contador);
         end loop;

         Text_IO.Close (Fichero_Numeros);
      end Ejemplo_Fichero;



Javier Miranda 2002-10-03