Write

Librerías

Ada.Sequential_IO, Ada.Direct_IO

Explicación

Escribe un componente en un fichero de componentes uniformes.

Sintaxis

procedure Write (File : in File_Type;
                 Item : in Element_Type[;
                 To   : in Positive_Count]);

Ejemplo

with Direct_IO;
...
package Fich_Integer_Dir is new Direct_IO(Integer);
use Fich_Integer_Dir;
...
Fichero  : Fich_Integer_Dir.File_Type; 
S1       : String := "Mi_Fichero.dat";
Dato     : Integer;
Posición : Fich_Integer_Dir.Positive_Count;
...
Open (Fichero, In_File, Name => S1); 
...
Write (Fichero, Dato)
...
Posición := Size (Fichero) + 1;
Write (Fichero, Dato, Posición); --  Escribe al final del fichero

Véase