![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Catty |
![]()
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Ребята, у меня такая проблема, в этом модуле осуществляется поиск по таким полям как Имя, номер паспорта, год рождения, город. Так вот если искать имя, то на экран выводиться только найденная инфа, а всё остальное убирается, если искать всё остальное, Номер паспорта, дату или город
, то на эту на эту запись ставиться только курсор, а таких записей допустим может быть несколько, так надо сделать так как для имени, что бы список фильтровался! Сообщение отредактировано: 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! |
xds |
![]()
Сообщение
#2
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
Копируешь процедуру поика по имени (SearchPIP), переименовываешь её, заменяешь диалог и условие поиска. Для примера я переделал поиск по году рождения (SearchRiknar). Обрати внимание на мои комментарии (ничинаются с "!!!").
Прикрепленные файлы ![]() -------------------- The idiots are winning.
|
Catty |
![]()
Сообщение
#3
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Спасибо, передалать вроде не сложно, но у меня такая проблема, когда я запускаю прогу и например открываю файл и начинаю вводить записи, то меня выбрасывает и пишет Heap overflow error
![]() ![]() -------------------- 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 |
![]()
Сообщение
#4
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
Попробуй вставить в начало файла "abiture.pas" строку "{$M 16384,0,327680}".
-------------------- The idiots are winning.
|
Catty |
![]()
Сообщение
#5
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Всё равно 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 |
![]()
Сообщение
#6
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Теперь прога начала запускаться! но при открытии файла пишет 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 |
![]()
Сообщение
#7
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
У меня всё нормально работает и под Winoldap (Win 9x), и под ntvdm (Win NT, 2k, XP), причем и из IDE тоже. Возможно где-то в программе некорректно используются указатели. Впрочем, это маловероятно. Попробуй уменьшить третий параметр в $M. Может быть виновата IDE (я использую bp.exe).
-------------------- The idiots are winning.
|
xds |
![]()
Сообщение
#8
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
Ничего больше не менял.
-------------------- The idiots are winning.
|
Altair |
![]()
Сообщение
#9
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Catty, а сколько файлов откывается в твоей прогремме?
больше 14 без спец. модуля открыть нельзя.. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
xds |
![]()
Сообщение
#10
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
Один там файл открывается...
-------------------- The idiots are winning.
|
Catty |
![]()
Сообщение
#11
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
В универе у меня прога запускается вроде нормально, а вот дома не хочет, может причина в моем компе??
Вобщем я возьму старую прогу и поменяю диалог и условие поиска в процедурах, если ты говоришь что все работает, значит попробую запустить завтра в универе! Сообщение отредактировано: 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! |
Altair |
![]()
Сообщение
#12
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
кажется я нашел ошибку.
Catty, ты вроде забыла дописать в коде закрытие файла (я не искал это в коде - я только по результату работы программы делаю такой вывод). А так все работает ОК, у меня все в порядке - запускай не в IDE!!!! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
xds |
![]()
Сообщение
#13
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
Если я говорю "не менял" - значит не менял...
-------------------- The idiots are winning.
|
Catty |
![]()
Сообщение
#14
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Ура!!!!!!!!!!!!!!!!!!!!!
Всё работает!!!!!!!!!!!!!!!!!!!!! спасибо 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 |
![]()
Сообщение
#15
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
Catty, спасибо!
![]() -------------------- The idiots are winning.
|
Romtek |
![]()
Сообщение
#16
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: ![]() ![]() ![]() |
Я бы использовал коллекции. Гораздо удобнее!
Прикрепленные файлы ![]() -------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
![]() ![]() |
![]() |
Текстовая версия | 1.09.2025 20:18 |