Количество компонентов в файле

Для того, чтобы узнать количество компонентов в файле, надо длину всего файла поделить на длину одного компонента:

Пример 1. Файл целых чисел.

Dim n,a as integer

Dim fn as string

Fileopen(1,fn,OpenMode.Random,,,len(a))

N=Lof(1)\len(a)

Пример 2. Файл структур.

Dim a as student

Dim fn as string

(student - тип-структура. Включает поля: Фамилия, группа, массив оценок и т.д.

Fileopen(2,fn,OpenMode.Random,,,80)

(80 – длина каждого компонента файла.)

N=Lof(1)\80+1