Ada.Text_IO, Ada.Sequential_IO, Ada.Direct_IO, Ada.Streams.Stream_IO |
Crea un fichero físico con el nombre indicado por Name y lo asocia con la variable de manejo de ficheros indicada por File, dejándolo abierto en el modo indicado por Mode.
procedure Create(File : in out File_Type; Mode : in File_Mode := default_mode; Name : in String := ""; Form : in String := "");
-- Se supone la existencia de una cláusula de contexto (with/use) -- con la librería adecuada, de entre las listadas arriba Fichero1, Fichero2 : File_Type; ...
Create (Fichero1, Name => S1); Create (Fichero2, Name => "c:\temp\unfichero.dat");