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

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

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

 
 Ответить  Открыть новую тему 
> Turbo Vision, поиск
сообщение
Сообщение #1


Бывалый
***

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

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


Ребята, у меня такая проблема, в этом модуле осуществляется поиск по таким полям как Имя, номер паспорта, год рождения, город. Так вот если искать имя, то на экран выводиться только найденная инфа, а всё остальное убирается, если искать всё остальное, Номер паспорта, дату или город
, то на эту на эту запись ставиться только курсор, а таких записей допустим может быть несколько, так надо сделать так как для имени, что бы список фильтровался!

Сообщение отредактировано: Catty -


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


--------------------
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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


N337
****

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

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


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


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


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


N337
****

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

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


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


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


N337
****

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

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


У меня всё нормально работает и под Winoldap (Win 9x), и под ntvdm (Win NT, 2k, XP), причем и из IDE тоже. Возможно где-то в программе некорректно используются указатели. Впрочем, это маловероятно. Попробуй уменьшить третий параметр в $M. Может быть виновата IDE (я использую bp.exe).


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


N337
****

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

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


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


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


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

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

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


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

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


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


N337
****

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

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


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


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


Бывалый
***

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

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


В универе у меня прога запускается вроде нормально, а вот дома не хочет, может причина в моем компе??
Вобщем я возьму старую прогу и поменяю диалог и условие поиска в процедурах, если ты говоришь что все работает, значит попробую запустить завтра в универе!

Сообщение отредактировано: Catty -


--------------------
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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


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

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

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


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

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


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


N337
****

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

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


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


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


N337
****

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

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


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


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


Знаток
****

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

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


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


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


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

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

 





- Текстовая версия 1.09.2025 20:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name