Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Проги, ЛЕКЦИИ / Программирование Лекция 9 файлы.pps
Файлы прямого доступа
Seek(<ф.п>,<номер
компоненты>) – перемещает текущий указатель
FileSize(F) – общее количество компонент
FilePos(F) – текущее значение файлового указателя
|
|
0-я компонента |
|
|
.. |
|
|
Последняя |
|
|
|
|
|
|
|
|
|
компонента |
|
|
|
||
|
|
|
|
|
|
|
|
|
|||
|
|
|
|
Указатель текущей компоненты |
|
|
|
|
|||
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|||
Seek(F,0) |
|
|
|
|
|
Seek(F,fileSize(f)) |
|||||
|
|
|
|
|
|
|
|
|
|
|
|
Усечение файла
Truncate(<ф.п>) – устанавливает в текущей позиции признак конца файла и удаляет все последующие блоки.
0-я компонента |
.. |
Последняя |
|
|
|
Последняя |
компонента |
|
|
|
компонента |
||
|
|
|
|
|
Указатель текущей компоненты
Пример типизированного
Пример типизированного файла
Нетипизированные файлы
Чтение и запись в нетипизированные файлы
BlockWrite(Var F: File; Var Buf; Count: Word; [Var Result: Word])
- пишет в открытый файл Count блоков из
переменной Buf
BlockRead(Var F: File; Var Buf; Count: Word; [Var Result: Word])
- читает в переменную Buf из открытого файла Count блоков.
Пример
