Помогите с процедурой...

[Arkuz]

Я всё со своими мультисписками. Ну помогите написать процедуру сортировки списка по полю RATE или MARK. Буду очень признателен. Это мой курсач. Сдавать пора, а я что-то никак не разберусь. Препод говорит сделай так, сделай так, а помочь конкретнее не хочет. Оч надо, помогите.
Прогу прикрепил.

[Air]

'D:\Мои документы\Всякое\КМВИ ЮРГТУ (НПИ)\Структуры данных\От Факера\Структуры данных\Списки\SPISKI\Dinamic.pas'
А этот файлик можно.

[Arkuz]

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

Смотрю на архив и думаю, что-то странное ))

[Air]

Ну помогите написать процедуру сортировки списка по полю RATE или MARK.

Дык... а где поля, какие поля, какая процедура... Или я чего-то недо понял?

[Arkuz]

 PList=^node;
    node=record
      Info:string;
      rate,mark:integer;
      Next,Next1,Next2:PList;

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

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

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

[alexBlack]

Посмотрите пример.

[Arkuz]

Спасибо большое, alexBlack. Пример попробую разобрать. Главное, что всё работает корректно!

[Arkuz]

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

СПИСКИ, честно говоря, я ненавижу. Если Вас не особо затруднит, вставте вашу сортировку в мой проек. Вот корявый файлик моих набросков.

[alexBlack]

Держите.
На будущее - не делайте все переменные глобальными.

[Arkuz]

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