Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2008, 22:27   #1
Arkuz
Форумчанин
 
Аватар для Arkuz
 
Регистрация: 22.09.2007
Сообщений: 540
По умолчанию сортировки списка

Я всё со своими мультисписками. Ну помогите написать процедуру сортировки списка по полю RATE или MARK. Буду очень признателен. Это мой курсач. Сдавать пора, а я что-то никак не разберусь. Препод говорит сделай так, сделай так, а помочь конкретнее не хочет. Оч надо, помогите.
Прогу прикрепил.
Вложения
Тип файла: rar Mlist.rar (2.3 Кб, 12 просмотров)

Последний раз редактировалось Stilet; 15.05.2008 в 11:51.
Arkuz вне форума Ответить с цитированием
Старый 12.05.2008, 22:40   #2
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

'D:\Мои документы\Всякое\КМВИ ЮРГТУ (НПИ)\Структуры данных\От Факера\Структуры данных\Списки\SPISKI\Dinamic.pas'
А этот файлик можно.
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Старый 12.05.2008, 23:02   #3
Arkuz
Форумчанин
 
Аватар для Arkuz
 
Регистрация: 22.09.2007
Сообщений: 540
По умолчанию

Недоглядел, что юнит в одном месте, а project в другом... sorry )))

Смотрю на архив и думаю, что-то странное ))
Вложения
Тип файла: rar MultiList.rar (179.3 Кб, 18 просмотров)

Последний раз редактировалось Arkuz; 12.05.2008 в 23:17.
Arkuz вне форума Ответить с цитированием
Старый 12.05.2008, 23:18   #4
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Цитата:
Ну помогите написать процедуру сортировки списка по полю RATE или MARK.
Дык... а где поля, какие поля, какая процедура... Или я чего-то недо понял?
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Старый 13.05.2008, 14:55   #5
Arkuz
Форумчанин
 
Аватар для Arkuz
 
Регистрация: 22.09.2007
Сообщений: 540
По умолчанию

Код:
 PList=^node;
    node=record
      Info:string;
      rate,mark:integer;
      Next,Next1,Next2:PList;
Ну так вот rate,mark:integer;
Нужно отсортировать оба поля например по возрастанию. Но сделать нужно так, чтобы менялись только указатели на поле Rate или Mark каждого элемента списка.
Вот и получается, что при выводе в едиты должны вывестись отсортированные элементы поля Rate. А так как в полях инфо и Mark изменения (переназначения указателей) не производились они должны вывестись каждое своё для каждого поля Rate. Ну это короче МУЛЬТИСПИСОК!!!

Процедуру нужно сделать. Я не могу понять как отсортировать список. У меня нет этой процедуры. Сделать её нужно. Сделать... Блин. Ну может сможешь помочь, Air?

Точнее я понимаю вроде как отсортировать, но как эти циклы обхода организовать и т.п.

Последний раз редактировалось Stilet; 13.05.2008 в 15:27.
Arkuz вне форума Ответить с цитированием
Старый 13.05.2008, 16:57   #6
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Посмотрите пример.
Вложения
Тип файла: rar test.rar (91.2 Кб, 14 просмотров)
alexBlack вне форума Ответить с цитированием
Старый 14.05.2008, 18:30   #7
Arkuz
Форумчанин
 
Аватар для Arkuz
 
Регистрация: 22.09.2007
Сообщений: 540
По умолчанию

Спасибо большое, alexBlack. Пример попробую разобрать. Главное, что всё работает корректно!
Arkuz вне форума Ответить с цитированием
Старый 14.05.2008, 20:20   #8
Arkuz
Форумчанин
 
Аватар для Arkuz
 
Регистрация: 22.09.2007
Сообщений: 540
По умолчанию

Уважаемый, alexBlack. Я очень прошу Вас о помощи.
Вставьте этот пример в мой код. Мне нужно 2 сортировки по нажатию на "PrintSortByRate" и "PrintSortByMark" и выводы их в соответствующие Едиты. Есть наброски, я пытался это сделать, но что-то никак не разобрался.

СПИСКИ, честно говоря, я ненавижу. Если Вас не особо затруднит, вставте вашу сортировку в мой проек. Вот корявый файлик моих набросков.
Вложения
Тип файла: rar NABROSKI.rar (12.3 Кб, 13 просмотров)
Arkuz вне форума Ответить с цитированием
Старый 14.05.2008, 22:07   #9
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Держите.
На будущее - не делайте все переменные глобальными.
Вложения
Тип файла: rar MList.rar (12.5 Кб, 16 просмотров)
alexBlack вне форума Ответить с цитированием
Старый 15.05.2008, 00:15   #10
Arkuz
Форумчанин
 
Аватар для Arkuz
 
Регистрация: 22.09.2007
Сообщений: 540
По умолчанию

Поклон до земли! Огромное спасибо. Там маленький глюк на сортировке на mark, но я каким то чудесным образом его исправил )))
Спасибо ещё раз.
Arkuz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Люди,помогите с процедурой на выход! Alexij Общие вопросы Delphi 5 08.06.2008 13:43
помогите с процедурой на VBA Exo Microsoft Office Excel 2 06.05.2008 10:53
Помогите разобраться с процедурой OnKeyDown!!! frai Общие вопросы Delphi 9 13.04.2007 15:46