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

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

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

 
 Ответить  Открыть новую тему 
> Turbo Vision, поиск
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
xds
сообщение 25.12.2004 7:16
Сообщение #2


N337
****

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

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


Копируешь процедуру поика по имени (SearchPIP), переименовываешь её, заменяешь диалог и условие поиска. Для примера я переделал поиск по году рождения (SearchRiknar). Обрати внимание на мои комментарии (ничинаются с "!!!").


Прикрепленные файлы
Прикрепленный файл  Ab2.zip ( 11.85 килобайт ) Кол-во скачиваний: 147


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Catty
сообщение 25.12.2004 20:50
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

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


Спасибо, передалать вроде не сложно, но у меня такая проблема, когда я запускаю прогу и например открываю файл и начинаю вводить записи, то меня выбрасывает и пишет Heap overflow error sad.gif . А через какое то время прога вообще перестала запускаться выводилось Not enough memory to run program!! Блин мне ее в понедельник уже здать надо, а тут такая вот фигня!! sad.gif


--------------------
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
xds
сообщение 26.12.2004 6:32
Сообщение #4


N337
****

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

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


Попробуй вставить в начало файла "abiture.pas" строку "{$M 16384,0,327680}".


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Catty
сообщение 26.12.2004 13:22
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

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


Всё равно not enough memory. Не понимаю я какой еще памяти ему не хватает!!?? При том что ехе-шник запускается нормально. sad.gif


--------------------
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
xds
сообщение 26.12.2004 14:14
Сообщение #8


N337
****

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

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


Ничего больше не менял.


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 26.12.2004 14:14
Сообщение #9


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

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


Catty, а сколько файлов откывается в твоей прогремме?

больше 14 без спец. модуля открыть нельзя..


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
xds
сообщение 26.12.2004 14:15
Сообщение #10


N337
****

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

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


Один там файл открывается...


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 26.12.2004 14:25
Сообщение #12


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

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


кажется я нашел ошибку.

Catty, ты вроде забыла дописать в коде закрытие файла (я не искал это в коде - я только по результату работы программы делаю такой вывод).
А так все работает ОК, у меня все в порядке - запускай не в IDE!!!!


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
xds
сообщение 26.12.2004 14:25
Сообщение #13


N337
****

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

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


Если я говорю "не менял" - значит не менял...


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Catty
сообщение 26.12.2004 17:34
Сообщение #14


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

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


Ура!!!!!!!!!!!!!!!!!!!!!
Всё работает!!!!!!!!!!!!!!!!!!!!!
спасибо xds !!!! :flowers: удачи, счастья, любви в Новом Году!!!!!!!!!!!!
smile.gif


--------------------
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!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
xds
сообщение 27.12.2004 3:57
Сообщение #15


N337
****

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

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


Catty, спасибо! rolleyes.gif :D


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Romtek
сообщение 29.12.2004 0:07
Сообщение #16


Знаток
****

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

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


Я бы использовал коллекции. Гораздо удобнее!


Прикрепленные файлы
Прикрепленный файл  stud_db.rar ( 5.02 килобайт ) Кол-во скачиваний: 141


--------------------
Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



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