Функции работы с типизированными файлами. Переместить указатель в конец типизированного файла

Новичок · Регистрация: 17.07.2012

Студворк — интернет-сервис помощи студентам

Приветствую всех. Решил попробовать работать с типизированными файлами(тема нетрудная, но как-то я про нее забыл, вот решил сейчас изучить). Так вот есть, функции:
Seek
FileSize
FilePos
Первая функция позволяет переместить указатель в файле.Вторая - узнать количество компонент файла, а последняя - номер компонента, на котором находится указатель в файле. В книге В.В.Фаронова(вроде автор такой крутой) написано:"Чтобы переместить указатель в конец типизированного файла, можно написать: Seek(FileVar,Size(FileVar)".
Но у меня сей код не сработал, а вот если Seek(FileVar,Size(FileVar-1) то работает. Вопрос такой, в каких функциях нумерация компонент файла с 1, а в каких с 0?Я вообще в шоке от того, что в книге написали...

@Sergio Leone · 24.06.2014, 22:50

Сообщение от Новичок

Seek(FileVar,Size(FileVar)

наверное, всё таки:

Pascal
1
Seek(FileVar,FileSize(FileVar));

во всех этих функция нумерация записей идёт от НУЛЯ.

запись: Seek(FileVar,FileSize(FileVar)); применяется, когда нужно поставить указатель ПОСЛЕ последней записи. Это нужно, например, чтобы дописывать в конец файла новые компоненты.
Ваш код Seek(FileVar,FileSize(FileVar)-1); поставит указатель на последнюю запись (компоненту) файла.
Т.е. после вашего кода можно сделать Read(FileVar, OneRec);
а после установки указателя после последней записи Read выдаст ошибку ввода/вывода.

Стало чуть понятнее?

Новичок · 24.06.2014, 23:03 **[ТС]**

Спасибо, теперь понятнее.Сделал такую программу.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var f:file of Integer;
i,a:Integer;
begin
Assign(f,'in.int');
Reset(f);
Writeln('FilePos:',FilePos(f));
for i:=1 to FileSize(f) do 
begin
Read(f,a);
Write(a,' ');
end;
Writeln;
Writeln('FilePos:',FilePos(f));
Writeln('FileSize:',FileSize(f));
Close(f);
Readln;
end.

Результат:

Code
1
2
3
4
FilePos:0
18 10 0 8 14 3 3 21 10 4 20 17 5 11 3
FilePos:15
FileSize:15

Сообщение от Sergio Leone

во всех этих функция нумерация записей идёт от НУЛЯ

А FileSize? Вроде же нет?

@Sergio Leone · 24.06.2014, 23:12

Сообщение от Новичок

А FileSize? Вроде же нет?

ну да, согласен, Вы правы!!!!
эта функция - это счётчик ( == count) - тут записи подсчитаны начиная с раз, два.... N

@Cyborg Drone · 25.06.2014, 05:16

Сообщение от Sergio Leone

ну да, согласен, Вы правы!!!!

Интересно, в чём прав-то?

Сообщение от Новичок

Сообщение от Sergio Leone
во всех этих функция нумерация записей идёт от НУЛЯ

А FileSize? Вроде же нет?

А FileSize эти и не нумерация записей, а их количество. К примеру, если файл состоит из одного элемента, то номер этого элемента будет 0, а общее количество элементов в файле - один, естественно.
А нумерация элементов в файле, очевидно, от 0 до FileSize - 1.

Добавлено через 22 минуты
Да, забыл упомянуть. FileSize будет равно 0, если файл пустой (не содержит ни одного элемента). Так что, перед тем, как работать с элементами файла, так или иначе нужно проверять, не пустой ли файл.

Не по теме:

Привет передавайте от меня Captain Obvious'y.

@Sergio Leone · 25.06.2014, 09:00

Сообщение от Cyborg Drone

Интересно, в чём прав-то?

в том, что FileSize - это не позиция, а количество записей (я назвал это счётчиком == count).

Сообщение от Cyborg Drone

А FileSize эти и не нумерация записей, а их количество.

Ну да, я же об этом и говорю!!! Может быть, конечно, не так понятно, как хотелось бы!

Ну уж теперь у автора темы точно не должно вопросов остаться, где количество, где нумерация (индекс, позиция), где там нули, а где единицы...

Думаю, что тема закрыта!

Новичок · 25.06.2014, 13:57 **[ТС]**

Сообщение от Cyborg Drone

А FileSize эти и не нумерация записей, а их количество.

Я имел ввиду,что если например 15 компонент , то FileSize = 15, но не 14, т.е возвращает количество, а не номер последней компоненты. Всем спасибо за ответы. Теперь все стало ясно.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,360

	Функции работы с типизированными файлами. Переместить указатель в конец типизированного файла 24.06.2014, 20:50. Показов 4934. Ответов 6 Метки нет (Все метки) Приветствую всех. Решил попробовать работать с типизированными файлами(тема нетрудная, но как-то я про нее забыл, вот решил сейчас изучить). Так вот есть, функции: Seek FileSize FilePos Первая функция позволяет переместить указатель в файле.Вторая - узнать количество компонент файла, а последняя - номер компонента, на котором находится указатель в файле. В книге В.В.Фаронова(вроде автор такой крутой) написано:"Чтобы переместить указатель в конец типизированного файла, можно написать: Seek(FileVar,Size(FileVar)". Но у меня сей код не сработал, а вот если Seek(FileVar,Size(FileVar-1) то работает. Вопрос такой, в каких функциях нумерация компонент файла с 1, а в каких с 0?Я вообще в шоке от того, что в книге написали... 0

Функции работы с типизированными файлами. Переместить указатель в конец типизированного файла

Решение