Ada.Streams.Stream_IO |
Cambia el modo de acceso al fichero indicado por File según lo especificado por el parámetro Mode.
procedure Set_Mode (File : in out File_Type; Mode : in File_Mode);
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"; ...
Open (Fichero, In_File, Name => S1); ... Set_Mode (Fichero, Append_File);