Клуб программистов

    Функция FileSize позволяет посмотреть размер в строках открытого файла, используется для текстовых файлов.

    Прежде, чем эта функция может быть использована, файл должен быть назначен файловой переменной с помощью процедуры AssignFile и открыт или создан процедурами Append, Reset или ReWrite.

var
   myWord, myWord1, myWord2, myWord3 : Word;
   myFile : File of Word;

begin
   // Try to open the Test.cus binary file in write only mode
   AssignFile(myFile, 'Test.cus');
   ReWrite(myFile);

   // Before writing to the file, show the file size
   ShowMessage('File size = '+IntToStr(FileSize(myFile)));

   // Write a few lines of Word data to the file
   myWord1 := 123;
   myWord2 := 456;
   myWord3 := 789;
   Write(myFile, myWord1, myWord2, myWord3);

   // Before closing the file, show the new file size
   ShowMessage('File size now = '+IntToStr(FileSize(myFile)));

   // Close the file
   CloseFile(myFile);
end;

File size = 0
File size now = 3