Отсортированные коллекции - часть 3

Изменим начало раздела исполняемых операторов главной программы следующим образом:

begin

Bookiist := New(PSort, Init(50,10) ) ;

with BookList do

begin

Duplicates := True; {Отменяем уникальность ключей}

......

end;

.....

end.

Теперь на экран будет выведено:

Йенсен К., Вирт Н.

Паскаль. Руководство для пользователя и описание языка Финансы и статистика, 1982, 151 Скэнлон Л.

Персональные ЭВМ IBM PC и XT. Программирование на языке ассемблера

Радио и связь, 1991, 336 Шелдон

Язык Си для профессионалов И.В.К.-СОФТ, 1991, 383 Джордейн Р.

Справочник программиста персональных компьютеров типа IBM PC, XT и AT Финансы и статистика, 1991, 544

Заметим, что, очередной элемент вставляется перед первым элементом с равным значением ключевого поля. Точно также поиск First.That вернет указатель на первый из нескольких элементов с одинаковыми ключевыми полями, а метод LastThat - на последний из них.