|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2017, 17:22 | #1 |
Новичок
Джуниор
Регистрация: 28.05.2017
Сообщений: 2
|
Очереди на delphi
Есть задача: создать две очереди на delphi и проверить их равенство. Т.е. элементы одной очереди должны быть равны элементам другой очереди.
Сама программа у меня есть и она работает. Но есть проблема: проверка на равенство производится при помощи кнопки на форме. И если при неравных очередях нажать на эту кнопку, то выводится сообщение что очереди не равны. Но если на эту же кнопку нажать второй раз при неравных очередях, то выводится сообщение, что очереди равны, т.е. неправильно. Вы можете посмотреть программу и написать, что не так? Сама программа прилагается? |
28.05.2017, 18:14 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,689
|
Потому что при проверке очередей элемент достаётся из очереди в QueuePop и удаляется.
При повторном нажатии очереди уже не существуют. Правда, если одна из очередей длиннее, то часть её остаётся. Нужна процедура просмотра подобная QueuePop без удаления и не изменяющая параметры очередей, либо просто заново составить очередь Код:
|
28.05.2017, 19:03 | #3 |
Новичок
Джуниор
Регистрация: 28.05.2017
Сообщений: 2
|
eoln, огромное спасибо за помощь! Теперь программа работает правильно.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С заданной целочисленной очереди организовать две: первая содержит все положительные элементы данной очереди, вторая - отрицательн | wowan30002 | Общие вопросы C/C++ | 0 | 20.11.2012 17:39 |
Реализация очереди через массив (Delphi) | wertret | Помощь студентам | 2 | 24.04.2012 02:25 |
Реализация контейнера на базе очереди. Delphi | medvedeva | Помощь студентам | 0 | 26.06.2011 13:36 |
Переворот очереди (Delphi) | kant1288 | Помощь студентам | 8 | 26.03.2009 21:38 |