Section courante

A propos

Section administrative du site

FilePos

Position du fichier
HighSpeed Pascal System

Syntaxe

Function FilePos(var F):LongInt;

Paramètres

Nom Description
F Ce paramètre permet d'indiquer l'identificateur de fichier.

Description

Cette fonction retourne la position courante du pointeur de fichier exprimer en nombre d'enregistrement.

Remarque

Exemple

L'exemple suivant permet d'indiquer la position courante lors de l'écriture d'un fichier :

  1. Program FilePosSamples;
  2. Uses Crt;
  3. Var
  4.  DataFile:FILE Of Byte;
  5.  B:Byte;
  6. BEGIN
  7.  { Crée un fichier temporaire. }
  8.  Assign(DataFile,'temp.dta');
  9.  Rewrite(DataFile);
  10.  For B:=1 to 100 do Write(Datafile,B);
  11.  Repeat { Position le fichier. }
  12.   Seek(DataFile,Random(FileSize(DataFile)));
  13.   WriteLn('Le position du fichier courant : ',FilePos(DataFile));
  14.  Until KeyPressed;
  15.  Close(DataFile);
  16.  Erase('temp.dta');
  17. END.


Dernière mise à jour : Lundi, le 20 avril 2020