Размер файла в битах

32-хfunction SizeOfFile : longint;
16-тиfunction SizeOfFile : longint;

Функция возвращает размер файла в битах. Может применяться к любым типам файлов. При обращении к неоткрытому файлу возвращает значение 0.

Пример вызова функции приведен в таблице:
32-х Var BitStr: TBitFile; Razmer : longint; {Объявление переменной}

…

Razmer := BitStr.SizeOfFile; {Определение размера файла}

…

16-ти Var BitStr: PBitFile; Razmer : longint; {Объявление переменной}

…

Razmer := BitStr^.SizeOfFile; {Определение размера файла}

…