Класс Tstrings

Класс TStrings предназначен для хранения набора строк. Экземпляры этого класса нельзя создавать непосредственно - он служит в качестве базового класса для других классов.

У ListBox'а есть свойство Items типа TStrings.

Основное свойство для класса TStrings - это Strings, в котором и хранятся все строки. Доступ к определенной строке можно получить через ее индекс (нумерация идет с нуля):

ShowMessage(ListBox1-> Items-> Strings[0]);

В результате появится следующее окно:

Рис 3. Результат доступа к строке через индекс

Для добавления нового пункта на этапе работы программы, следует воспользоваться методом Add

ListBox1-> Items-> Add(" New String");

Этот метод добавит новый элемент в конец списка.

Для добавления нового элемента куда-нибудь в середину, следует использовать метод Insert:

ListBox1-> Items-> Insert(I, " Roma");

Для очистки всего спмска служит метод Clear.

ListBox1-> Items-> Clear();

Для удаления удалить i-го элемента ListBox'а, используем метод Delete:

ListBox1-> Items-> Delete(1);

Нумерация элементов списка идет с нуля. Приведенный пример удалит второй сверху элемент. Все следующие строки сдвинутся вверх в списке, таким образом, на месте второй строки будет третья, на месте третьей– четвертая и т.д.

Для поиска определенной строки служит метод IndexOf:

int k=ListBox1-> Items-> IndexOf(" Ira");

Этот метод берет в качестве параметра искомую строку и возвращает ее номер. Если строка не найдена, то возвращается -1.

Свойство ItemIndex позволяет определить номер выделенного элемента списка (нумерация идет с нуля). Если ни один элемент не выделен, то это свойство равно -1.

Код, который при щелчке на ListBox'е покажет в MessageBox'е номер элемента, на котором был произведен щелчок:

void __fastcall TForm1:: ListBox1Click(TObject *Sender)

{ ShowMessage(IntToStr(ListBox1-> ItemIndex)); }

Следующий код проверяет выбор пользователя. Если выбор не сделан, появляется сообщение «Вы не сделали свой выбор». Если один из элементов списка выбран, то появляется сообщение вида: «Ваш выбор … …», где вместо первого многоточия отображается номер выбранной строки, а вместо второго многоточия – текст выбранной строки.

void __fastcall TForm1:: Button1Click(TObject *Sender)

{

if (ListBox1-> ItemIndex> 0)

{ ShowMessage(" Ваш выбор " +

IntToStr(ListBox1-> ItemIndex+1)+": " +

ListBox1-> Items-> Strings[ListBox1-> ItemIndex]);

}

else

{

ListBox1-> ItemIndex=0; //выделение 1-го элемента

ListBox1-> ItemIndex=-1; //элементы не выделены

ShowMessage(" Вы не сделали свой выбор"); }

}

Рис.4 Выбор строки

На способ множественного выбора при MultiSelect = true влияет еще свойство ExtendedSelect. Если ExtendedSelect = true, то можно выделить интервал элементов, выделив один из них, затем нажав клавишу Shift и переведя курсор к другому элементу.

Рис. 5 Множественный выбор строк

Если допускается множественный выбор (MultiSelect = true), то значение ItemIndex соответствует тому элементу списка, который находится в фокусе. При множественном выборе можно проверить, выбран ли данный элемент, по свойству Selected[int Index] типа bool (1-true, 0-false), например:

ListBox1-> Selected[1] // выделен ли 1-ый элемент списка в ListBox’е

Следующий код отображает сообщения вида " Выбрана строка.,.: обо всех выбранных строках:

for (int i=0; i < ListBoxl-> Items-> Count; i++)

if (ListBoxl--> Selected[i])

ShowMessage (" Выбрана строка " + IntToStr (i+1)' + ": " +

ListBoxl-> Items-> Strings [i]);

Удаление выбранных элементов в TListBox

Свойство Columns определяет число столбцов, в которых будет отображаться список. По умолчанию Columns=0.

Если Columns=1, то появляется горизонтальная линейка прокрутки, с помощью которой можно просмотреть невидимые строки.

Рис. 6 Результат удаления строки по индексу

Если свойство Columns > 1, то появляется то количество столбцов, состоящих из строк, которое указано в свойстве.

Рис. 7 Количество столбцов - 2

Свойство Sorted позволяет упорядочить список по алфавиту. При Sorted=true новые строки в список добавляются не в конец, а по алфавиту.

void __fastcall TForm1:: Button1Click(TObject *Sender)

{

ListBox1-> Items-> Add(" Волнушка");

}

Рис. 8 Вставка строки с одновременной сортировкой

Свойство AutoComplete, если установить его в true, позволяет пользователю быстро находить строку списка, нажимая клавишу, соответствующую ее первому символу.

Нажаты клавиши Shift+О

Рис.9 Выбор строки по её первому символу

Свойство Style, установленное в IbStandard (значение по умолчанию) соответствует списку строк. Другие значения Style позволяют отображать в списке не только текст, но и изображения.

Свойства BevelEdges, BevelInner, BevelKind, BevelOuter, BouderStyle, Color, Ctl3D влияют на внешний вид (наличие границ, их вид, стиль, цвет фона и др.).

SelCount п оказывет количество выделенных строк в списке

Selected[Index] у казывает, выделена или нет, строка с номером Index.

Exchange(Index1, Index2) м еняет местами две строки с номерами Index1 и Index2.

LoadFromFile(FileName) з аполняет список строками из файла с именем FileName.

SaveToFile(FileName) сохраняет строки списка в файле с именем FileName.