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; |
[001635]