TStringList - Студопедія

TStringList є повнофункціональним класом загального призначення і є прямим нащадкам TStrings. Крім перекритих абстрактних методів свого батька клас включає такі додаткові методи і властивості:

property Duplicates: TDuplicates;	Властивість, що дозволяє керувати можливістю розміщення у наборі двох і більше ідентичних рядків
property Sorted: Boolean;	Ознака необхідності сортування рядків у алфавітному порядку
property OnChange: TNotifyEvent;	Визначає реакцію зміну набору рядків. Виникає після останньої зміни
property OnChanging: TNotifyEvent	Визначає реакцію зміну набору рядків. Виникає до чергової зміни
function Find(const S:String; var Index: Integer): Boolean;	Шукає у наборі рядок S і у разі успіху у параметрі index повертає її індекс

При sorted = True рядки набору автоматично сортуються за абеткою. При цьому властивість Duplicates дозволяє колізію, пов'язану з додаванням в набір рядка, ідентичної одній з вставлених раніше. Якщо Duplicates = dulgnore, ідентичний рядок відкидається і програмі про це нічого не повідомляється; якщо Duplicates = duError, збуджується виключення EListError; значення Duplicates = duAccept дозволяє вставляти в набір скільки завгодно ідентичних рядків.

procedure TfmExample.bbRunClick (Sender: TObject); var k: Byte; Listi, List2: TStringList; S: String; begin // Створюємо два списки List1:= TStringList.Create; Listi.Sorted := True; List2 := TStringList.Create; // Цикл наповнення списків монотонно зростаючими кодами for k := 32 to 255 do begin S := IntToStr(k); // Код символу if k

Чи не знайшли те, що шукали? Скористайтеся пошуком:

---