FileSize                 Returns Number of Records in a File

 FileSize(var DFile : file of <type>) : Integer;                         [TP]
 FileSize(var UFile : file) : Integer);                                  [TP]

    Returns the number of records in the file accessed by the file
    variable DFile or UFile.

           DFile    A data file.

          <type>    Any type except a file type.

           UFile    An untyped file.

           Note:    See LongFileSize for a function that returns the size
                    of a file in record numbers, in which there are more
                    than (MAXINT + 1) records. (MAXINT = 32,767).

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

           I := FileSize(DFile);    { I = # of records in DFile }