Урок 37

Нека изучим този клас. Класът TStrings е предназначен да съхранява набор от низове. Този клас е пряк наследник на класа TPersistent, което означава, по-специално, че той вече има способността да продължава и да чете собствените си данни.

Класът TStrings не се използва директно в програми (т.е. не трябва да се опитвате да създадете променлива от този тип). Най-често се използва или като свойство на някакъв компонент (например компонентът Memo има свойство Lines от тип TStrings). Ако просто се нуждаем от набор от низове в програмата, тогава трябва да използваме екземпляр на класа TStringList, който е наследник на класа TStrings.

Нека разгледаме основните свойства и методи на класа TString. В нашите примери, за конкретност, ще се занимаваме със свойството Lines на екземпляр от класа TMemo (компонентът Memo се намира в раздела Standard на палитрата на компонентите). Неговото свойство Lines е само от тип TStrings.

Основното свойство за класа TStrings е Strings, в което могат да се записват отделни низове чрез индекс.

Свойството Count връща броя на елементите в списъка:

Ето как можете да преминете през всички низове, включени в TStrings:

for i := 0 to Memo1.Lines.Count - 1 do

Свойството IndexOf ви позволява да разберете къде в списъка се намира определен низ (и дали изобщо съществува).

Ето пример за използването му:

//Вземете номера на реда "Игор".

Свойството IndexOf е равно на номера на мястото, където се намира желаният ред (номерирането започва от нула). Ако изобщо няма такъв ред, тогава свойството IndexOf ще бъде равно на -1.

Методите Add и Insert се използват за добавяне на редове съответно в края и на определено място.

Ето пример за приложението им:

//Добавяне в края на списъка.

// Добавяне към второто място.

Премахването на елемент от определено място става чрез метода Delete.

Ето пример за използването му:

//Вземете номера на елемента Roma.

//Ако елементът съществува.

В този пример първо откриваме къде е низът Roma и след това го премахваме (ако съществува, разбира се).

---