Разработка приложений в системе Delphi. Шейкер Т.Д. - 117 стр.

function Compare(Item1,Item2:Pointer):Integer;
begin
 if PstudentList(Item1)^.NumberPstudentList(Item2)^.Number
        then Result:= +1 else Result:= 0;
end;
    Следует учитывать, что методы Clear, Delete, Remove не освобождают
память, связанную с каждым удалённым элементом. Данные, распределённые в
памяти, программист должен уничтожить сам (если это необходимо).

                  12.2. Классы TStrings и TStringList
    Классы TStrings и TStringList служат для представления списка
элементов, каждый из которых представляет собой пару строка-объект, где
строка – собственно строка символов, а объект – объект любого класса Delhpi.
Такая   двойственность    позволяет    сохранять    объекты    с   текстовыми
примечаниями, сортировать объекты, отыскивать нужный объект по его
описанию и т.д. Если со строками не ассоциированы объекты, получается
обычный список строк.
    Класс TStrings является абстрактным, не имеет собственных средств для
хранения строк и определяет лишь интерфейс для работы с элементами. От
него порождены многочисленные потомки, обслуживающие наборы строк в
различных компонентах, таких как TComboBox, TListBox и др. Эти классы
объявляются в разделах Implementation соответствующих модулей, скрыты
от пользователя и не включены в справочную службу. Единственным
доступным   наследником    класса     TStrings     является   TStringList   –
полнофункциональный класс общего назначения.

Свойства абстрактного класса TStrings
   Основные свойства свойства класса TStrings перечислены ниже.
    Strings[Index:integer]:string – обеспечивает доступ к массиву
строк по индексу. Первая строка имеет индекс, равный 0. Свойство Strings
является основным свойством класса.


                                      117