Функция FileSize()

Возвращает текущий размер файла.

Объявление:

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.