Советы по Delphi

         

Использование 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;

[001635]



Содержание раздела