 Turbo Vision, поиск |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Catty |
 24.12.2004 20:47
Сообщение
#1
|
 Бывалый  Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация:  3   |
Ребята, у меня такая проблема, в этом модуле осуществляется поиск по таким полям как Имя, номер паспорта, год рождения, город. Так вот если искать имя, то на экран выводиться только найденная инфа, а всё остальное убирается, если искать всё остальное, Номер паспорта, дату или город
, то на эту на эту запись ставиться только курсор, а таких записей допустим может быть несколько, так надо сделать так как для имени, что бы список фильтровался! Сообщение отредактировано: Catty - 24.12.2004 20:48 Прикрепленные файлы 
Ab.rar ( 69.41 килобайт )
Кол-во скачиваний: 153-------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
   |
 
|
  |
Ответов(1 - 15)
| xds |
25.12.2004 7:16
Сообщение
#2
|
 N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Копируешь процедуру поика по имени (SearchPIP), переименовываешь её, заменяешь диалог и условие поиска. Для примера я переделал поиск по году рождения (SearchRiknar). Обрати внимание на мои комментарии (ничинаются с "!!!").
Прикрепленные файлы
Ab2.zip ( 11.85 килобайт )
Кол-во скачиваний: 147-------------------- The idiots are winning.
|
|
|
|
| Catty |
25.12.2004 20:50
Сообщение
#3
|
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Спасибо, передалать вроде не сложно, но у меня такая проблема, когда я запускаю прогу и например открываю файл и начинаю вводить записи, то меня выбрасывает и пишет Heap overflow error
 . А через какое то время прога вообще перестала запускаться выводилось Not enough memory to run program!! Блин мне ее в понедельник уже здать надо, а тут такая вот фигня!! -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
|
|
|
| xds |
26.12.2004 6:32
Сообщение
#4
|
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Попробуй вставить в начало файла "abiture.pas" строку "{$M 16384,0,327680}".
-------------------- The idiots are winning.
|
|
|
|
| Catty |
26.12.2004 13:22
Сообщение
#5
|
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Всё равно not enough memory. Не понимаю я какой еще памяти ему не хватает!!?? При том что ехе-шник запускается нормально.
-------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
|
|
|
| Catty |
26.12.2004 14:10
Сообщение
#6
|
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Теперь прога начала запускаться! но при открытии файла пишет To many files
файл не находит, приходиться создавать новый, при введении записей выбрасывает и пишет Heap overflow error ошибка генерируеться вот єтой строкой Код BVidz:=New(pinputLine,Init(R,LVidz)); 654-ая стока xds а ты в проге больше ничего не менял?? -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
|
|
|
| xds |
26.12.2004 14:12
Сообщение
#7
|
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
У меня всё нормально работает и под Winoldap (Win 9x), и под ntvdm (Win NT, 2k, XP), причем и из IDE тоже. Возможно где-то в программе некорректно используются указатели. Впрочем, это маловероятно. Попробуй уменьшить третий параметр в $M. Может быть виновата IDE (я использую bp.exe).
-------------------- The idiots are winning.
|
|
|
|
| xds |
26.12.2004 14:14
Сообщение
#8
|
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Ничего больше не менял.
-------------------- The idiots are winning.
|
|
|
|
| Altair |
26.12.2004 14:14
Сообщение
#9
|
 Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Catty, а сколько файлов откывается в твоей прогремме?
больше 14 без спец. модуля открыть нельзя.. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| xds |
26.12.2004 14:15
Сообщение
#10
|
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Один там файл открывается...
-------------------- The idiots are winning.
|
|
|
|
| Catty |
26.12.2004 14:21
Сообщение
#11
|
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
В универе у меня прога запускается вроде нормально, а вот дома не хочет, может причина в моем компе??
Вобщем я возьму старую прогу и поменяю диалог и условие поиска в процедурах, если ты говоришь что все работает, значит попробую запустить завтра в универе! Сообщение отредактировано: Catty - 26.12.2004 14:22 -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
|
|
|
| Altair |
26.12.2004 14:25
Сообщение
#12
|
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
кажется я нашел ошибку.
Catty, ты вроде забыла дописать в коде закрытие файла (я не искал это в коде - я только по результату работы программы делаю такой вывод). А так все работает ОК, у меня все в порядке - запускай не в IDE!!!! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| xds |
26.12.2004 14:25
Сообщение
#13
|
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Если я говорю "не менял" - значит не менял...
-------------------- The idiots are winning.
|
|
|
|
| Catty |
26.12.2004 17:34
Сообщение
#14
|
|
Бывалый Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: 3 |
Ура!!!!!!!!!!!!!!!!!!!!!
Всё работает!!!!!!!!!!!!!!!!!!!!! спасибо xds !!!! :flowers: удачи, счастья, любви в Новом Году!!!!!!!!!!!!  -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
|
|
|
| xds |
27.12.2004 3:57
Сообщение
#15
|
|
N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Catty, спасибо!
 :D-------------------- The idiots are winning.
|
|
|
|
| Romtek |
29.12.2004 0:07
Сообщение
#16
|
 Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
Я бы использовал коллекции. Гораздо удобнее!
Прикрепленные файлы
stud_db.rar ( 5.02 килобайт )
Кол-во скачиваний: 141-------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 17:10 |