Прямий доступ у системі Турбо Паскаль

¬

Підкреслимо, що виклик процедури Seek записується після відкривання файла за допомогою reset, і після нього можна як читати, так і записувати елементи файла, тобто режим доступу не має значення.

У системі Турбо Паскаль є також кілька допоміжних процедур, що застосовуються разом із процедурою Seek.

Функція FILEPOS задає повернення номера доступного елемента. Єдиним аргументом у її виклику є ідентифікатор файлової змінної, а повертається значення типу LongInt. Наприклад, за останнього зображеного значення файлової змінної f присвоювання

A := FilePos ( f );

надає змінній А типу LongInt значення 3.

Для визначення загальної кількості елементів у файлі використовують функцію FILESIZE. Її единим параметром є ідентифікатор файлової змінної, і з її виклику повертається значення типу LongInt. Наприклад, значенням змінної N типу LongInt після присвоювання

N := FileSize ( f )

стає кількість елементів у файлі.

Зрозуміло, що використовуючи у програмі виклик процедури seek в парі з викликами read або write, ми зможемо прочитати будь-який елемент файла чи зробити заміну його значення.

Зокрема, за допомогою процедур seek, filesize і write можна розширити файл, дописуючи значення нового елемента в кінець:

seek ( f, filesize ( f ));

write ( f, v ).

Дійсно, після виклику seek файловий вказівник встановлюється за останнім елементом, тобто

f0f1f2...fN

¬

а після виклику write значення v записується в новий елемент, після чого файловий вказівник переміщається вправо:

f0f1f2...fNfN+1

¬

Процедура TRUNCATE задає знищення решти файла, починаючи від доступного елемента. Наприклад, після виконання викликів

seek(f, 3); truncate(f)

елементи з 3-го по останній знищуються, а залишаються з номерами 0, 1 і 2.

Використання процедур прямого доступу дозволяє вилучати елементи з файла.