Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Yarik u102030
0 / 0 / 1
Регистрация: 24.05.2016
Сообщений: 6
Завершенные тесты: 1
#1

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

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

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

Отсортировать записи типизированного файла - Turbo Pascal
Нужно отсортировать записи типизированного файла.Вот базовый код: program Phone; uses crt; type book=record Name:string;...

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

Не получается считать данные из типизированного файла в массив записи - Turbo Pascal
Очень прошу, помогите! Считываю таким образом: Assign (f,'bil.txt'); Reset(f); n:=0; while not Eof(f) do begin ...

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

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

Удаление записи из типизированного файла по ID - Pascal
Вот процедура удаления по ID, из типизированного файла. Почему функция Pos не работает? выдает ошибку PROCEDURE DelClient; Var ...

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

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

Пробовал- не работает (перезаписывает).
0
Puporev
Модератор
52385 / 40232 / 13567
Регистрация: 18.05.2008
Сообщений: 92,974
10.06.2016, 14:54 #4
Не нужно открывать на перезапись. Только на чтение.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3556 / 2250 / 1151
Регистрация: 22.11.2013
Сообщений: 5,921
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 / 1
Регистрация: 24.05.2016
Сообщений: 6
Завершенные тесты: 1
10.06.2016, 15:43  [ТС] #6
Ошибка 101. Ошибка записи на диск
0
Puporev
Модератор
52385 / 40232 / 13567
Регистрация: 18.05.2008
Сообщений: 92,974
10.06.2016, 17:49 #7
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Привет! Вот еще темы с ответами:

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

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

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

Создание типизированного файла. - Pascal
Помогите пожалуйста создать типизированный файл для хранения действительных чисел, прочитать этот файл и вывести содержимое на экран; ...


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

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

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