Программирование в Delphi. Барков И.А - 10 стр.

UptoLike

ВУЗ: 

ИжГТУ им. Калашникова | Ижевск

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

Рубрика: 

10
property Capacity: Integer; Определяет максимальное число элементов в списке. Оно может из-
меняться как явно — пользователем, так и при добавлении элементов
в список, в том случае, когда Count>=Capacity. Максимальная ем-
кость списка — 16380 элементов.
Управляют списком следующие методы:
function Add(Item: Pointer):
Integer;
Добавляет в конец списка элемент, который будет равен Item (т. е. ука-
зывать на те же данные).
function Remove(Item:
Pointer): Integer;
Удаляет из списка элемент, который равен Item.
procedure Insert(Index: Inte-
ger; Item: Pointer) ;
Вставляет элемент, равный Item, перед элементом с индексом Index.
procedure Delete(Index: Inte-
ger);
Удаляет из списка элемент с индексом Index.
procedure Clear; Очищает список, устанавливая величины Count и Capacity в 0.
procedure Exchange(Indexl,
Index2: Integer);
Меняет местами элементы списка с индексами Indexl и Index2.
function Expand: TList; При соблюдении равенства Count=Capacity расширяет список. При ем-
кости списка менее пяти элементов, он по умолчанию расширяется на
четыре элемента, при пяти-восьми — на восемь, более восьми — на ше-
стнадцать.
function First: Pointer; func-
tion Last: Pointer;
Возвращают значения первого и последнего (с индексом Count-1) эле-
ментов списка соответственно.
function IndexOf(Item:
Pointer): Integer;
Возвращает индекс элемента, равного Item.
procedure Move(CurIndex,
Newlndex: Integer) ;
Перемещает элемент списка с положения Curlndex в положение
Newlndex.
procedure Pack; Упаковывает список, сдвигая элементы к началу на пустующие места.
Наконец, если приведенных методов почему-либо недостаточно, то свойство
(
RC; property List: pPointerList;
pPointerList = ^TPointerList;
TPointerList = array[0..65520 div SizeOf(Pointer)] of Pointer;
возвращает указатель непосредственно на список указателей ((ко) означает, что свойство дос-
тупно только для чтения).
Класс TStrings
Многофункциональный класс, предназначенный для хранения текстовых строк и связанных с
ними объектов (любых потомков TObject). TStrings — абстрактный класс; он только описывает методы
работы с наборами строк и сопутствующих им объектов, но как именно они хранятся
, на его уровне не
определено. Его потомки очень многочисленны; они играют основную роль в компонентах-списках
(TListBox, TComboBox), редакторе (TMemo) и других. Так что вам чаще всего придется иметь дело с
TStrings как со свойством одного из компонентов. В дальнейшем экземпляры этого класса и порожден-
ных от него классов мы-будем называть наборами
строк. Для создания собственных наборов строк вне
компонентов предназначен потомок TStrings — TStringList, который будет рассмотрен ниже.
К строкам и объектам соответственно можно получить доступ через свойства: 
property Capacity: Integer;         Определяет максимальное число элементов в списке. Оно может из-
                                    меняться как явно — пользователем, так и при добавлении элементов
                                    в список, в том случае, когда Count>=Capacity. Максимальная ем-
                                    кость списка — 16380 элементов.

        Управляют списком следующие методы:
function Add(Item: Pointer): Добавляет в конец списка элемент, который будет равен Item (т. е. ука-
Integer;                      зывать на те же данные).
function Remove(Item:         Удаляет из списка элемент, который равен Item.
Pointer): Integer;
procedure Insert(Index: Inte- Вставляет элемент, равный Item, перед элементом с индексом Index.
ger; Item: Pointer) ;
procedure Delete(Index: Inte- Удаляет из списка элемент с индексом Index.
ger);
procedure Clear;              Очищает список, устанавливая величины Count и Capacity в 0.

procedure Exchange(Indexl,       Меняет местами элементы списка с индексами Indexl и Index2.
Index2: Integer);
function Expand: TList;          При соблюдении равенства Count=Capacity расширяет список. При ем-
                                 кости списка менее пяти элементов, он по умолчанию расширяется на
                                 четыре элемента, при пяти-восьми — на восемь, более восьми — на ше-
                                 стнадцать.
function First: Pointer; func-   Возвращают значения первого и последнего (с индексом Count-1) эле-
tion Last: Pointer;              ментов списка соответственно.
function IndexOf(Item:           Возвращает индекс элемента, равного Item.
Pointer): Integer;
procedure Move(CurIndex,         Перемещает элемент списка с положения Curlndex в положение
Newlndex: Integer) ;             Newlndex.
procedure Pack;                  Упаковывает список, сдвигая элементы к началу на пустующие места.


       Наконец, если приведенных методов почему-либо недостаточно, то свойство
              (RC; property List: pPointerList;
              pPointerList = ^TPointerList;
              TPointerList = array[0..65520 div SizeOf(Pointer)] of Pointer;
       возвращает указатель непосредственно на список указателей ((ко) означает, что свойство дос-
тупно только для чтения).

                                                 Класс TStrings

        Многофункциональный класс, предназначенный для хранения текстовых строк и связанных с
ними объектов (любых потомков TObject). TStrings — абстрактный класс; он только описывает методы
работы с наборами строк и сопутствующих им объектов, но как именно они хранятся, на его уровне не
определено. Его потомки очень многочисленны; они играют основную роль в компонентах-списках
(TListBox, TComboBox), редакторе (TMemo) и других. Так что вам чаще всего придется иметь дело с
TStrings как со свойством одного из компонентов. В дальнейшем экземпляры этого класса и порожден-
ных от него классов мы-будем называть наборами строк. Для создания собственных наборов строк вне
компонентов предназначен потомок TStrings — TStringList, который будет рассмотрен ниже.
        К строкам и объектам соответственно можно получить доступ через свойства:



                                                    10

Страницы