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

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

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

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

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

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

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

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

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

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

6
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
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
Сообщений: 19
Завершенные тесты: 1
10.06.2016, 14:51  [ТС] #3
Открывать на перезапись?

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

Пробовал- не работает (перезаписывает).
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
10.06.2016, 14:54 #4
Не нужно открывать на перезапись. Только на чтение.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
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
Сообщений: 19
Завершенные тесты: 1
10.06.2016, 15:43  [ТС] #6
Ошибка 101. Ошибка записи на диск
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
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
Привет! Вот еще темы с решениями:

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

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

Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла
3)Даны два текстовых файла. Добавить в конец первого файла содержимое второго...

Вывод типизированного файла
Пожалуйста помогите с заданием(pascal): Нужно сделать вывод записей...


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

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

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