💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Списки и коллекции

В процессе разработки программного кода приложения часто бывает необходимо хранить наборы различных констант или переменных. Для работы со строковыми списками предназначены классы TStrings и TStringList. Компоненты VCL TCombobox, TList, TDBComboBox представляют собой оболочки для списков строк. В других компонентах (TМemo, TStringGrid) списки обеспечивают представление данных. Любые типы данных можно заносить в список указателей, который реализован в классе TList. Использование наборов объектов, которые называются коллекциями, осуществляется при помощи классов TСollection и TСоllectionItem.

Класс TStrings является базовым абстрактным классом, который обеспечивает потомков основными свойствами и методами, позволяющими создавать работоспособные списки строк. Его прямым предком является класс TPersistent. Основой механизма списка является свойство, предназначенное для хранения элементов списка:

Strings [Index: Integer]: String;

Обращение к отдельному элементу списка может осуществляться через это свойство:

SomeStrings.Strings[i]: = Edit1.Text; или SomeStrings [i]: = Edit1.Text

С каждым элементом списка можно связать любой объект. Для этого используется свойство

Objects [Index: Integer]: TObject

Для добавления к строке объекта из списка используется метод AddObject, например:

SomeStrings.AddObject (‘SomeItem’, TSityProps.Create);

Вспомогательные свойства класса содержат информацию о состоянии списка. Дополнительные методы осуществляют поиск в списке и взаимодействие с файлами и потоками.

Класс TSringList обеспечивает реальное использование списков строк в приложении. Свойства и методы класса можно посмотреть в справочной литературе, здесь рассмотрим только некоторые из них.

Добавление новых строк осуществляется при помощи методов Add и Insert. Первый метод добавляет строку в конец списка, а второй вставляет ее в указанное место.

Для добавления одного объекта можно использовать метод AddObject. Для того чтобы добавить объект к уже существующей строке, необходимо сначала создать объект, а затем присвоить его свойству Object.

Строки списка можно отсортировать в порядке возрастания при помощи свойства Sorted или метода Sort.

Список можно загрузить из файла или потока. Для этого используются методы LoadFromFile и LoadFromStream. Сохранение списка выполняется методами SaveToFile и SaveToStream.

Коллекция представляет собой разновидность списка указателей, оптимизированную для работы с объектами определенного вида. Сама коллекция инкапсулирована в классе TСollection. Элемент коллекции должен быть экземпляром класса, унаследованного от класса TСollectionItem. Это облегчает программирование и позволяет обращаться к свойствам и методам объектов напрямую. Например, панели компонента TСoolBar объединены в коллекцию. Класс TСoolBands, объединяющий панели, является наследником класса TСollection. Отдельная панель является экземпляром класса TСoolBar, происходящего от класса TСollectionItem.