Ada.Text_IO, Ada.Sequential_IO, Ada.Direct_IO, Ada.Streams.Stream_IO |
Reabre el fichero asociado con la variable de manejo de ficheros indicada por File en el modo indicado por Mode (el mismo en que estaba abierto si Mode se omite).
procedure Reset (File : in out File_Type[; Mode : in File_Mode);
-- Se supone la existencia de una cláusula de contexto (with/use) -- con la librería decuada, de entre las listadas arriba Fichero1 : File_Type; ...
Open (Fichero1, Out_File, Name => S1); ...
Reset (Fichero1);