|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.05.2014, 16:54 | #1 |
Пользователь
Регистрация: 26.12.2010
Сообщений: 39
|
Файлы в паскале Проблема
Задача ввести в файл(бд) записи о работниках найти (отбор по критерию) кто родился в введенном городе
Проблема: данные сохраняются в файл 1 запись (ок) но после ввода новой записи файл очищается и остается последняя запись в итоге в файле всегда 1 запись Прошу помочь разобраться как исправить? (нужна реализовать возможность пополнения старой базы данных(файла)) Код:
Последний раз редактировалось Stilet; 19.05.2014 в 17:46. |
19.05.2014, 17:00 | #2 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Нужно ReWrite.. И да.. Помнится, в паскале есть Append.. но он употребим лишь для Text'овых файлов.. |
|
19.05.2014, 17:22 | #3 | |
Пользователь
Регистрация: 26.12.2010
Сообщений: 39
|
Цитата:
ReWrite если файл с таким именем уже существует, то он удаляется и на его месте создается новый пустой файл. Apped для работы с файлами TXT формата |
|
19.05.2014, 19:09 | #4 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Передвиньте указатель на конец файла перед записью:
Seek(filesize(f)); Такая программа уже проскакивала. С goto как организация бесконечного цикла. Человеку исправили и меню и добавление, удаление записей. Поищите http://programmersforum.ru/showthread.php?t=260091 У вас этот код по всему институту ходит? и везде c goto Последний раз редактировалось ZX Spectrum-128; 19.05.2014 в 20:06. |
20.05.2014, 13:54 | #5 | |
Пользователь
Регистрация: 26.12.2010
Сообщений: 39
|
Цитата:
и теперь вывод не работает чтение после конца потока не возможно ссылаясь на 52 строку read (a,zk); Код:
___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (кнопочка на панели форматирования с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 20.05.2014 в 14:24. |
|
20.05.2014, 15:48 | #6 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Исправлено, работает, проверяйте.
Код:
|
20.05.2014, 16:13 | #7 |
Пользователь
Регистрация: 26.12.2010
Сообщений: 39
|
слепой не могу найти исправление
|
20.05.2014, 16:21 | #8 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Ft было file
Исправил на Ft:file of spisok; И добавил Seek(a, filesize(a)); Все вроде |
20.05.2014, 17:41 | #9 |
Пользователь
Регистрация: 26.12.2010
Сообщений: 39
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
файлы в паскале... | Екатерина18 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 05.04.2011 23:31 |
Файлы в Паскале | Hichcog | Помощь студентам | 0 | 27.11.2010 17:51 |
Файлы в паскале | Ericnex | Помощь студентам | 0 | 01.06.2010 18:43 |
Файлы в Паскале | britva666 | Помощь студентам | 2 | 21.06.2009 20:28 |
Файлы в Паскале | COLD | Помощь студентам | 1 | 07.06.2009 13:49 |