TSortedCollection - это набор абстрактного типа. Для его использования вы должны сначала решить, какой тип данных вы собираетесь собирать и определить два метода, отвечающих вашим конкретным требованиям сортировки. Для этого вам нужно создать новый тип, производный от TSortedCollection. В данном случае назовем его TClientCollection. Ваш TClientCollection уже знает, как делать всю реальную работу с набором. Он может вставить (Insert) запись о новом клиенте и удалять (Delete) существующие записи он унаследовал эти основные черты поведения от TCollection. Все что нужно сделать - это научить TClientCollection, какое поле использовать в качестве ключа сортировки и как сравнивать двух клиентов при решении вопроса о том, какой из них должен стоять в наборе выше другого. Это делается переписыванием методов KeyOf и Compare и реализации их следующим образом:

     PClientCollection = ^TClientCollection;
     TClientCollection = object(TSortedCollection)
       function KeyOf(Item: Pointer): Pointer; virtual;
       function Compare(Key1, Key2: Pointer): Integer; virtual;
     end;

     function TClientCollection.KeyOf(Item: Pointer): Pointer;
     begin

       KeyOf := PClient(Item)^.Account;
     end;

     function TClientCollection.Compare(Key1, Key2: Pointer):
            Integer;
     begin
       Compare := StrIComp(PChar(Key1), PChar(Key2));
     end;

    Примечание: Так как ключи являются нетипизированными указателями, для них нужно выполнять приведение типа.

    KeyOf определяет, какое поле или поля используются в качестве ключей сортировки. В данном случае это поле клиента Account. Compare воспринимает два ключа сортировки и определяет, какой из них должен идти первым в соответствии с правилами сортировки. Compare возвращает -1, 0 или 1 в зависимости от того, Key1 меньше, равен или больше Key2, соответственно. В данном примере используется сортировка по алфавиту (для букв верхнего и нижнего регистра) ключевой строки (Account) путем вызова модуля Strings функции StrIComp. Вы можете легко сортировать набор по именам, вместо номера счета, если замените возвращаемое KeyOf поле на Name.

    Обратите внимание на то, что ключи, возвращаемые KeyOf и передаваемые в Compare являются нетипизированными указателями, поэтому до их разыменования и передачи в StrIComp в данном примере вы должны привести их тип к PChar.

    Это практически все, что вам нужно определить! Теперь, если вы переопределите ClientList как PClientCollection вместо PCollection (сменив объявление var и вызов New), то легко сможете распечатать ваших клиентов в алфавитном порядке (COLLECT2.PAS):

     var
       ClientList: PClientCollection;
        .
        .
     begin
       ClientList:=New(PClientCollection, Init(10,5));
        .
        .
     end.

    Обратите внимание и на то, как легко будет сменить сортировку списка клиентов по номеру счета на сортировку по имени. Все что вам нужно сделать, это сменить метод KeyOf на возврат поля Account на поле Name.

    WordList первоначально рассчитан для хранения 10 строк с последующим приращением по 5 строк. Все что вам нужно сделать это вставить несколько строк в набор. В данном примере слова считываются из текстового файла и вставляются в набор:

     repeat
        .
        .
        .
      if GetWord(WordRead, WordFile)^ <> #0 then
       WordList^.Insert(StrNew(WordRead));
        .
        .
        .
      until WordRead[0]=#0;
        .
        .
        .
      Dispose(WordList, Done);

    Обратите внимание, что функция StrNew используется для копирования считанных слов, и адрес скопированной строки передается в набор. При использовании набора вы всегда передаете ему контроль над данными набора. Он позаботится об освобождении данных после работы. Он при этом делает то, что происходит при вызове Dispose: удаляется каждый элемент набора, и затем удаляется сам набор WordList.

    PrintWord должен выглядеть как уже знакомая процедура. Она просто берет указатель строки и передает его значение Writeln. Обратите внимание на директиву far после описания PrintWord. PrintWord не может быть методом, это просто процедура. Кроме того это должна быть вложенная процедура. Print надо рассматривать как некую оболочку вокруг процедуры, которая выполняет некоторую работу над каждым элементом набора (может быть отображает или модифицирует данные). Вы можете иметь несколько аналогичных PrintWord процедур, но каждая из них должна быть вложена в Print и должна быть дальней процедурой (использовать директиву far или {$F+}).

    Отсортированные наборы (и следовательно наборы строк) имеют метод Search, который возвращает индекс элемента с конкретным значением ключа. Но как найти элемент в неотсортированном наборе? Или когда критерий поиска не использует сам ключ? Конечно же, следует использовать FirstThat и LastThat. Вы просто определяете булевскую функцию для проверки нужного вам критерия и вызываете FirstThat.

    Из этого объявления вы можете видеть, что каждый графический объект может инициализировать себя (Init) и отобразить себя на графическом экране (Draw). Теперь определим эллипс, прямоугольник и сектор как производные от этого общего предка:

     PGraphEllipse = ^TGraphEllipse;
     TGraphEllipse = object(TGraphObject)
       procedure Draw(DC: HDC); virtual;
     end;

     PGraphRect=^TGraphRect;
     TGraphRect=object(TGraphObject)
       procedure Draw(DC: HDC); virtual;
     end;
     PGraphPie = ^TGraphPie;
     TGraphPie = object(TGraphObject)
       ArcStart, ArcEnd: TPoint;

       constructor Init(Bounds: TRect);
       procedure Draw(DC: HDC); virtual;
     end;

    Все эти три типа объекта наследуют поле Rect из TGraphObject, но все они разного размера. TGraphEllipse и TGraphRect нужно только добавить их новые методы рисования, т.к. их методам рисования нужны только размеры и расположение, а TGraphPie нужны дополнительные поля и другой конструктор для их корректного представления. Приведем исходный код для помещения этих фигур в набор:

       .
       .
       .
     GraphicsList := New(PCollection, Init(10,5));
                                   { создать набор }
     for I := 1 to NumToDraw do
     begin
      case I mod 3 of              { создать объект }
       0: P := New(GraphRect, Init(Bounds));
       1: P := New(GraphEllipse, Init(Bounds));
       2: P := New(GraphPie, Init(Bounds));
      end;
      GraphicsList^.Insert(P);     { добавить в набор }
     end;
       .
       .

    Как вы можете видеть цикл, for вставляет графические объекты в набор GraphicsList. Вы знаете только то, что каждый объект в GraphicsList представляет собой некоторый вид TGraphObject. После помещения в набор у вас уже нет информации о том, является ли элемент набора прямоугольником, эллипсом или сектором. Благодаря полиморфизму, вам этого и не нужно знать, поскольку каждый объект содержит все данные и код (Draw), который ему нужен. Просмотрим набор с использованием итеративного метода и каждый набор будет сам отображать себя:

     procedure DrawAll(C: PCollection);

     procedure CallDraw(P: PGraphObject); far;
      begin
        P^.Draw(PaintDC);      { вызов метода Draw }
      end;

     begin     {DrawAll}
      C^.ForEach(@CallDraw);   { прорисовать каждый объект }
     end;

     var
      GraphicsList: PCollection;
     begin

       .
       .
       .
      if GraphicsList <> nil then DrawAll(GraphicsList);
       .
       .
       .
     end.

    Способность наборов хранить разные, но связанные объекты основывается на мощном краеугольном камне объектно-ориентированного программирования. В следующей главе вы увидите тот же принцип полиморфизма, примененный к потокам с равными приоритетами.