IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Вставка сроки при записи в файл, (Нужна помощь)
N!K!t@
сообщение 17.12.2006 22:10
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Подскажите пожалуйста!
Нужно создать Базу данных, например, автостоянки или регистратуры
Файл создаю, когда открываю,
выводит в виде (запись)(запись2)(запись3)(за
пись4)
1)Как сделать, чтоы каждая запись была на отдельной строке?
Они прерываются и переносятся и вообще трудно чего-то разобрать.
2)И как осуществить поиск в такой базе(например, вывести владельцев
с одинаковыми машинами или иногородних пациентов)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Bokul
сообщение 17.12.2006 22:21
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


У тебя есть например запись типа

data=record
owner,auto:string;


Цитата
1)Как сделать, чтоы каждая запись была на отдельной строке?

Читаешь каждую запись и выводишь ее так:
writeln('Owner : ',data.owner,' Auto : ',data.auto);

Цитата
И как осуществить поиск в такой базе

Проходишься по всему файлу-данных, читаешь поочередно каждую запись и сверяешь необходимое поле записи с ключом поиска. Если они совпадают, то выводишь запись на экран, нет - ничего не делаешь.
Например:

while not(eof(f)) do
begin
read(f,data);
if data.owner=key then
writeln('Выводишь все что тебе надо знать о этй записи');
end;



--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 31.07.2025 23:52
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"