СиППО (11-14) (Ответы на все вопросы), страница 3

sx     :string;

el1    :elem;

i, nx  :integer;

begin

  spis:=TList.Create;   //  создаем список

  spis.Capacity:=25;   // определим предполагаемое количество элементов списка

  for I := 0 to 3 do   //  цикл формирования списка

    begin

      write('s=');readln(sx);

      write('n=');readln(nx);

      el1:=  elem.Create(sx,nx);

      spis.Add(el1);   // добавление очередного элемента в список

    end;

   el1:=elem.Create('*****',66);  

   spis.Insert(2, el1);        // добавление элемента

     for I := 0 to spis.Count - 1 do

       begin  // цикл по элементам списка

           el1:=elem(spis[i]);   // обращение к элементу списка по номеру     

           nx:=el1.n; 

           sx:=el1.s;  

          writeln('Элемент ', i,  '  ',  nx,'    ',sx);

       end;

    el1:=elem(spis.Last);  // el1 будет равен последнему элементу

    writeln('number ', spis.IndexOf(el1));  // нахождение индекса элемента

    spis.Delete(3);  // удаление элемента

for I := 0 to spis.Count - 1 do  // цикл обработки элементов списка

       begin

           elem(spis[i]).n:=elem(spis[i]).n+1000;

       end;

     for I := 0 to spis.Count - 1 do

       begin   // второй вариант цикла по элементам списка

                         nx:= elem(spis[i]).n; 

 sx:= elem(spis[i]).s;

             writeln('Элемент ', i,  '  ',  nx,'    ', sx);

       end;

    readln;

end.

Рассмотрим  подробнее некоторые свойства и методы стандартного класса TList. Полный перечень можно увидеть в Help по ключевому слову ТList.

Capacity. Используется для установления размера (число указателей на объекты) списка. Предварительно установив для него  разумное значение, можно избежать множественных перераспределений памяти. Это же свойство показывает объем списка в данный момент времени. Изменение его значения, в случае необходимости, происходит автоматически.

Count. Число элементов в списке в данный момент времени. Может быть прочитано или записано. Если размер уменьшен в результате изменения значения Count, то удаляются элементы в конце списка.

Items. Позволяет обращаться к элементам в списке по порядковому номеру. Нумерация элементов начинается с нуля. Допускается упрощенная форма этого свойства, которая показана в приведенном примере.

Add. Добавляет элемент в конец списка.

Clear. Удаляет все элементы списка, устанавливая Count в 0.

Delete. Удаляет элемент из списка по его позиции в списке.

Remove. Удаляет элемент из списка по его указателю.

Insert. Вставляет новый элемент в список в данную позицию.

First. Получает первый элемент в списке.

Last. Получает последний элемент в списке.

IndexOf. Выдает номер заданного в качестве аргумента объекта в списке.