Ada.Streams.Stream_IO |
Devuelve la referencia del stream asociado al fichero.
function Stream (File : in File_Type) return Stream_Access;
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"; F_Stream : Stream_Access; ...
Open (Fichero, In_File, Name => S1); ... Stream := Stream (Fichero);