Ada.Text_IO, Ada.Sequential_IO, Ada.Direct_IO, Ada.Streams.Stream_IO |
Elimina el fichero físico asociado con la variable de manejo de ficheros indicada por File.
procedure Delete (File : in out File_Type);
-- 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");