Set_Index

Librerías

Ada.Direct_IO, Ada.Streams.Stream_IO

Explicación

Devuelve la posición del indicador de posición del fichero.

Sintaxis

function Index (File : in File_Type) return Positive_Count;

Ejemplo

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);

Véase