Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Yarik u102030
0 / 0 / 2
Регистрация: 24.05.2016
Сообщений: 20
Завершенные тесты: 1
1

Добавление записи в конец типизированного файла

10.06.2016, 09:25. Просмотров 1077. Ответов 6
Метки нет (Все метки)

Есть типизированный файл. Append в типизированный файлах не работает. Подскажите кто может, как добавить запись в конец типизированного файла.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2016, 09:25
Ответы с готовыми решениями:

Отсортировать записи типизированного файла
Нужно отсортировать записи типизированного файла.Вот базовый код: program...

Чтение из типизированного файла с последней записи и до первой
Нужно вывести на экран записи которые хранятся в файле. Но вывести надо начиная...

Не получается считать данные из типизированного файла в массив записи
Очень прошу, помогите! Считываю таким образом: Assign (f,'bil.txt'); ...

Перезапись файла, добавление информации в его конец
Записать в типизированный файл компоненты типа запись – «Товары» (наименование...

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

6
Puporev
Модератор
54587 / 42093 / 29062
Регистрация: 18.05.2008
Сообщений: 99,304
10.06.2016, 11:21 2
Pascal
1
2
seek(f,filesize(f));
write(f,zap);
0
Yarik u102030
0 / 0 / 2
Регистрация: 24.05.2016
Сообщений: 20
Завершенные тесты: 1
10.06.2016, 14:51  [ТС] 3
Открывать на перезапись?

Rewrite(f);
seek(f,filesize(f));
write(f,zap);

Пробовал- не работает (перезаписывает).
0
Puporev
Модератор
54587 / 42093 / 29062
Регистрация: 18.05.2008
Сообщений: 99,304
10.06.2016, 14:54 4
Не нужно открывать на перезапись. Только на чтение.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3894 / 2554 / 2082
Регистрация: 22.11.2013
Сообщений: 7,136
10.06.2016, 15:25 5
Цитата Сообщение от Puporev Посмотреть сообщение
Не нужно открывать на перезапись. Только на чтение.
Если точнее, то открывать при помощи Reset.
Режим, в котором будет открыт типизированный или бестиповый (но не текстовый) файл, определяется переменной FileMode. По умолчанию там указан режим 2 -- запись и чтение (2). Если файл нужно открыть только для чтения (например, он находится на носителе только для чтения), можно предварительно установить FileMode в значение 0 (только чтение):
Pascal
1
2
  FileMode:=0;
  Reset(f);
0
Yarik u102030
0 / 0 / 2
Регистрация: 24.05.2016
Сообщений: 20
Завершенные тесты: 1
10.06.2016, 15:43  [ТС] 6
Ошибка 101. Ошибка записи на диск
0
Puporev
Модератор
54587 / 42093 / 29062
Регистрация: 18.05.2008
Сообщений: 99,304
10.06.2016, 17:49 7
Лучший ответ Сообщение было отмечено Yarik u102030 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
var f:file of integer;
    i,a:integer;
begin
clrscr;
assign(f,'111');
rewrite(f);
for i:=1 to 10 do
 begin
  a:=10;
  write(f,a);
 end;
reset(f);
writeln('Исходный файл');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
end;
writeln;
reset(f);
for i:=1 to 10 do
 begin
  a:=20;
  seek(f,filesize(f));
  write(f,a);
 end;
reset(f);
writeln('Файл после дозаписи');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
readln
end.
2
10.06.2016, 17:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2016, 17:49

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

Удаление записи из типизированного файла.
Какими способами можно реализовать данную задачу? Из типизированного файла...

Добавление, редактирование и удаление записи из файла
Помогите решить пожалуйста 3 вариант задачи, не могу ни как понять. В...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru