Write

Librerías

Ada.Streams.Stream_IO

Explicación

Dado un subtipo, S, de un tipo T, S'Write(Str, I) escribe el valor del Item I en el Stream referenciado por Str.

Sintaxis

procedure S'Write (Stream : not null access Ada.Streams.Root_Stream_Type'Class;
                   Item   : in T);

Ejemplo

with Ada.Streams;           use Ada.Streams;
with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO;
...
Fichero  : Ada.Streams.Stream_IO.File_Type; 
S1       : String := "Mi_Fichero.dat";
Dato1    : Integer;
Dato2    : Float;
F_Stream : Stream_Access;
...
Open (Fichero, In_File, Name => S1); 
...
F_Stream := Stream (Fichero);
Integer'Write (F_Stream, Dato1);
Float'Write (F_Stream, Dato2);

Véase