Ada.Sequential_IO, Ada.Direct_IO |
Lee un componente de un fichero de componentes uniformes.
procedure Read (File : in File_Type; Item : out Element_Type[; From : 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); ... Read (Fichero, Dato) ... Posición := Size (Fichero); Read (Fichero, Dato, Posición); -- Lee el último elemento