LongFilePos              Returns the Current Position in a Data File

 LongFilePos(var DFile : file of <type>) : Real;                         [TP]
 LongFilePos(var UFile : file) : Real;                                   [TP]

    Returns the record number currently pointed to by the file variable
    DFile or UFile. If a file has N records, the first record is at
    position 0, while the last is at position N-1. This function can be
    used for MS-DOS files that are so large that there are more than
    (MAXINT + 1) records.

           DFile    A data file.

          <type>    Any type except a file type.

           UFile    An untyped file.

           Note:    See FilePos for a function that will return the file
                    position for files that have (MAXINT + 1) records or
                    less. (MAXINT = 32767).

  -------------------------------- Example ---------------------------------

           X := LongFilePos(DFile);         { X = current record # }