Write

Librerías

Ada.Streams.Stream_IO

Explicación

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

Sintaxis

procedure S'Read (Stream : not null access Ada.Streams.Root_Stream_Type'Class;
                  Item   : out 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'Read (F_Stream, Dato1);
Float'Read (F_Stream, Dato2);

Véase