Ada.Sequential_IO, Ada.Direct_IO |
Escribe un componente en un fichero de componentes uniformes.
procedure Write (File : in File_Type; Item : in Element_Type[; To : in Positive_Count]);
with Direct_IO; ... package Fich_Integer_Dir is new Direct_IO(Integer); use Fich_Integer_Dir; ... Fichero : Fich_Integer_Dir.File_Type; S1 : String := "Mi_Fichero.dat"; Dato : Integer; Posición : Fich_Integer_Dir.Positive_Count; ...
Open (Fichero, In_File, Name => S1); ... Write (Fichero, Dato) ... Posición := Size (Fichero) + 1; Write (Fichero, Dato, Posición); -- Escribe al final del fichero