Ada.Direct_IO, Ada.Streams.Stream_IO |
Devuelve la posición del indicador de posición del fichero.
function Index (File : in File_Type) return 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"; Posición : Fich_Integer_Dir.Positive_Count; ...
Open (Fichero, In_File, Name => S1); ... Posición := Index (Fichero);