Функция 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;
|