10.3. Общая характеристика списков

10.3.1. Свойства

Items – массив строк, определяющий количество элементов списка и их содержимое.

Каждый элемент является строкой, к которой можно получить доступ по ее номеру. Нумерация начинается с нуля.

Items[0] – первая строка, Items[1] – вторая строка.

Count задает число элементов в списке. Так как первый элемент имеет нулевой номер, то номер последнего будет равен Count-1.

Пример: Присваивание элементам списка Listbox1 новых значений.

var n:integer;

begin

for n:=0 to listbox1.items.count-1 do

listbox1.items[n]:=’Строка номер’+InttoStr(n);

end;

Objects [index:integer]:TObject открывает доступ к объекту, связанному со строкой с индексом Index

Sorted типа Boolean. Определяет отсортированы ли элементы списка в алфавитном порядке или нет. True – список отсортирован, False – список не сортирован.

Itemindex определяет выбранный элемент в списке.

Пример: Отображение номера строки, выбранной в списке Listbox1.

Label5.caption:=’В списке выбрана ’+inttostr(listbox1.itemindex)+ ‘ строка.‘

Multiselect типа Boolean. Управляет возможностью выбора нескольких элементов из списка. True – возможен выбор нескольких элементов, False – выбор только одного элемента из списка.

Selcount типа Integer. Возвращает число выбранных элементов в списке.

Selected [index:integer] определяет выбрана ли строка с номером Index.

Пример: Операции с выбранными элементами списка.

var i:integer;

…

for i:=0 to listbox1.items.count-1 do

if listbox1.selected[i] then listbox1.items[i]:=’Строка выбрана’

Пример: Программный выбор элементов списка.

Listbox1.selected[1]:=true;

10.3.2. Методы

Add (const S: string) добавляет в конец списка строку, заданную параметром S, а в качестве результата возвращает положение нового элемента в списке.

Пример: Добавление к комбинированному списку Combobox1 строки «Иванов Иван»

Combobox1.items.add(‘Иванов Иван’);

AddObject (const S:String; aObject:TObject):integer добавляет строку и объект в набор данных

Insert (Index:integer; const S:string) вставляет строку S в позицию с номером, определяемым параметром Index.

Delete (index:integer) удаляет элемент с номером, заданным параметром index.

Пример: Удаление элемента из списка.

Combobox1.items.delete(4);

Clear очищает список, удаляя все его элементы.

Пример: Очистка содержимого списка.

Listbox1.items.clear;

Move (Curindex, Newindex: integer) сдвигает элемент на позиции с номером Curindex в новую позицию с номером Newindex.

Indexof (const S: string):integer

Процедура определяет, содержится ли в списке строка S и возвращает номер найденной в списке строки.

SaveToFile (const Filename:string)

Процедура сохраняет строковые элементы списка в файл с именем Filename.

Listbox1.items.savetofile(‘c:\my\text.txt’);

LoadFromFile (const Filename:string)

Процедура заполняет список содержимым указанного текстового файла.

Listbox1.items.loadfromfile(‘c:\my\text1.txt’);

10.4. Объект UpDown

Компонент предназначен для регулирования числовой величины. Обычно компонент связан с компонентом Edit, который отображает регулируемую величину и при необходимости может редактировать ее. Связанный компонент называется партнером.

Свойство	Значение
AllignButton	Определяет положение компонента относительно партнера
Associate	Определяет связанный компонент
Increment	Определяет шаг наращивания/уменьшения регулируемой величины
Max	Максимальное значение регулируемой величины
Min	Минимальное значение регулируемой величины
Position	Текущее значение регулируемой величины
Wrap	Запрещает/разрешает выход из диапазона Max – Min (True - запрещает)

Для компонента определены события:

OnChanging – возникает при любом изменении регулируемой величины. Параметр AllowChange: boolean сообщает может ли величина изменяться.

OnClick – возникает при щелчке по кнопкам элемента. Параметр Button определяет нажатую кнопку: btPrev – вниз или влево, btNext – вверх или вправо

Пример: В данном примере описано изменение размера шрифта метки посредством событий OnClick и ONChanging объекта UpDown.

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

begin

If button= btPrev then

label1.Font.Size:=updown1.position+1;

If button= btNext then

label1.Font.Size:=updown1.position-1;

end;

или

procedure TForm1.UpDown1Changing(Sender: TObject;

var AllowChange: Boolean);

begin

AllowChange:=true;

label1.Font.Size:= updown1.position;

end;