Использование TStringList в визуальных компонентах

TStrings - абстрактный базовый класс, используемый многими визуальными компонентами, такими как, например, TListBox. Все, что вы хотите, имеется в TStringList, а если вам нужно следить только за объектами, то вместо него используйте TList. Для добавления элемента в конец списка используется метод Add. Для добавления элемента в определенное место списка используется метод Insert. Для получения строки из списка используется свойство Items. Обратите внимание на то, что счет начинается с нуля, поэтому последний элемент имеет порядковый номер Count-1 (Count это другое свойство). Для удаления строки используется метод Delete. Для нахождения строки в списке используется IndexOf. Можно сделать так, чтобы TStringList хранил список в алфавитном порядке. Чтобы сделать это, то прежде, чем добавить что-то к списку, установите свойство Sorted в True. TStringList может такьзоваться для хранения для каждой строки ссылки на объект; осуществить это можно с помощью AddObject и свойства Objects. TList делает вышесказанное, но без строк. Для создания TStringlist сделайте следующее:

procedure MakeList;
var

aList: TStringList;
begin
aList := TStringList.Create;
aList.Sorted := true;  {опционально}
aList.Duplicates := dupIgnore;  {или dupAccept, или dupError}
aList.Add('Строка 1');
aList.Add('Строка 2');
Edit1.Text := aList.Items[0];   {Edit1 теперь содержит 'Строка 1'}
aList.Delete(0);
aList.Free;
end;

 
« Предыдущая статья   Следующая статья »