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

UptoLike

Составители: 

Clearпроцедура, очищает список, удаляя из него все элементы.
Устанавливает в свойствах
Count и Capacity значение 0.
Delete (Index: integer)процедура, удаляет из списка элемент с
номером
Index. Все элементы, расположенные за удаляемым, смещаются на
одну позицию вперёд.
Remove (Item: Pointer): integerфункция, отыскивает в списке
элемент
Item и удаляет его. Возвращает индекс удалённого элемента.
Expand: TListфункция, расширяет массив элементов, увеличивая
Capacity.
Packпроцедура, упаковывает список, удаляет пустые элементы в конце
массива индексов.
Sort (Compare: TListSortCompare)процедура, сортирует список по
критерию, устанавливаемому функцией
Compare: в качестве единственного
параметра она получает ссылку на функцию, которая сравнивает два элемента.
Тип
TListSortCompare определён следующим образом:
TListSortCompare = function (Item1, Item2: Pointer): integer;
Функция Compare получает указатели на два элемента списка и выполняет
сравнение. Результат сравнения любое отрицательное число, если
Item1^<Item2^; 0, если Item1^=Item2^ и любое положительное число, если
Item1^>Item2^.
Так как заранее неизвестно, к какому типу данных принадлежат элементы
списка, то критерий сравнения устанавливается программистом и реализуется в
функции
Compare. Например, элементы списка являются записями,
содержащими три поля: номер зачетной книжки, ФИО, год рождения.
Type TstudentList=record
Number:LongInt;
FIO:String[30];
Year:byte
end;
Var PstudentList:^TstudentList;
Если необходимо выполнить сортировку по номеру зачётной книжки, то в
функции
Compare необходимо сравнивать поля Number.
116
   Clear – процедура, очищает список, удаляя из него все элементы.
Устанавливает в свойствах Count и Capacity значение 0.
   Delete (Index: integer) – процедура, удаляет из списка элемент с
номером Index. Все элементы, расположенные за удаляемым, смещаются на
одну позицию вперёд.
   Remove (Item: Pointer): integer – функция, отыскивает в списке
элемент Item и удаляет его. Возвращает индекс удалённого элемента.
   Expand: TList – функция, расширяет массив элементов, увеличивая
Capacity.
   Pack – процедура, упаковывает список, удаляет пустые элементы в конце
массива индексов.
   Sort (Compare: TListSortCompare) – процедура, сортирует список по
критерию, устанавливаемому функцией Compare: в качестве единственного
параметра она получает ссылку на функцию, которая сравнивает два элемента.
Тип TListSortCompare определён следующим образом:
TListSortCompare = function (Item1, Item2: Pointer): integer;
   Функция Compare получает указатели на два элемента списка и выполняет
сравнение.    Результат     сравнения     любое    отрицательное   число,   если
Item1^Item2^.
   Так как заранее неизвестно, к какому типу данных принадлежат элементы
списка, то критерий сравнения устанавливается программистом и реализуется в
функции      Compare.     Например,     элементы   списка   являются   записями,
содержащими три поля: номер зачетной книжки, ФИО, год рождения.
Type TstudentList=record
          Number:LongInt;
       FIO:String[30];
        Year:byte
end;
Var PstudentList:^TstudentList;
   Если необходимо выполнить сортировку по номеру зачётной книжки, то в
функции Compare необходимо сравнивать поля Number.

                                         116