Возвращает текущий размер файла.
Объявление:
Function FileSize(Var F) : Longint;
Режим:
Windows, Real, Protected
Замечание:
Параметр F - файловая переменная. FileSize(F) возвращает число компонентов в F. Если файл пустой, то FileSize(F) возвращает нуль.
В режиме {$I-} функция IOResult вернет нуль, если операция была успешна, иначе она вернет отличный от нуля код ошибки.
Ограничения:
Не может использоваться для текстовых файлов. Файл должен быть открыт.
Пример:
{Пример программы для функции FileSize}
Uses Crt;
Var F : File Of Byte;
Size : LongInt;
Begin
{ Get File name from command line }
Assign(F, ParamStr(1));
Reset(F);
Size:=FileSize(F);
WriteLn('Размер файла : ', Size, ' байт.');
WriteLn('Установка указателя позиции на середину файла...');
Seek(F, Size Div 2);
WriteLn('Текущая позиция : ', FilePos(F));
Close(f);
End.