You can try with this piece of Program:

program FileSize_1;

type

     UFile = file;

var
    myFile : UFile;

begin
   assign(myFile, paramstr(1));
   reset(myFile);
   writeln('The file size is: ', fileSize(myFile));
   close(myFile);
end.

This is the same program contained in the manual where is explained
the function fileSize().

If you run this program the function fileSize() give back a wrong size.
Try now to change the type in:

    UFile = file of Byte;

and rerun again the program. In the second case the value of FileSize is correct.

I thougth that if the compiler doesn't know the type of the file it cannot calculate
the size. But this explenation sound very strange.
Could you give me an answer about this problem?

Now another question: 'What happen if on the function BlockRead(File, buf, byte)
the variable buf is a Pointer and not a Static var? Does the compiler work correctly?

Thank you for your attention and excuse me my easy english with mistakes!

HTH

With the new line everything should be fine.

--
=============================================================================
Dipl. Phys. Hans L. Trautenberg                       Universitaet Regensburg
                           Institut fuer Experimentelle und Angewandte Physik
phone (49) 941 943 2466                                         Polymerphysik
fax   (49) 941 943 3196                                    D-93040 Regensburg
e-mail  hans.trautenb...@physik.uni-regensburg.de                     Germany

part 2 :
NO!!!!  Do that and 10 bucks says you'll overwrite something critical.  That
would read in a POINTER itself, NOT what it references.  Use
    blockread( f, buf^ { <- deference }, size );
and note that you DO need to allocate the buffer beforehand (i.e. GetMem or
New).

Have fun,
Will Bryant
brya...@winston.riccarton.school.nz