Ada.Streams.Stream_IO |
Dado un subtipo, S, de un tipo T, S'Read(Str, I) lee el valor del Item I en el Stream referenciado por Str.
procedure S'Read (Stream : not null access Ada.Streams.Root_Stream_Type'Class; Item : out T);
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);