Delphi. Функция FileSize( var Vf ): Integer;

Функция FileSize( var Vf ): Integer;

Модуль: System

Описание
Функция возвращает размер файла, связанного с файловой переменной Vf в байтах. Для файлов типа Record функция возвращает количество записей. Если файл не содержит данных, то функция возвращает 0. Файл должен быть обязательно открыт. Данная функция не применима к текстовым файлам.

Пример
В данном примере определяется кол-во записей в файле и если файл содержит больше одной записи, то файл усекается и остается только первая запись.
var
  Vf: File of MyRecord;
begin
   AssignFile(Vf, 'MyFile.zzz');

   Reset(Vf);
   if FileSize(Vf)>1 then
     begin
     Seek(Vf, 1);
     Truncate(Vf);
     end;
   CloseFile(Vf);
end;

Справочник по Delphi

Уроки Delphi