"Использование TSet в Delphi для хранения уникальных целых чисел"

Delphi , Компоненты и Классы , Коллекции

В статье мы рассмотрим вопрос о том, какой структуры данных Delphi можно использовать для хранения списка уникальных целых чисел. Многие разработчики, работающие с Java, используют паттерн коллекций, но в Delphi это может оказаться не таким простым делом, так как нет объекта Integer для обработки вещей.

Мы хотим иметь структуру данных, которая может содержать числа. Мы хотим иметь возможность добавлять числа, удалять числа и проверять содержимое коллекции, при этом каждое число должно быть уникальным.

Одним из решений может быть использование TStringList или THashedStringList, но это может привести к путанице с другими строками. Кроме того, эти классы не сортируют элементы по умолчанию, что может привести к неверному порядку при итерации по списку.

Другой вариант - использовать TList и кастовать целые числа в указатели. Однако это может привести к проблемам с безопасностью типов и сделать код более сложным для понимания и обслуживания.

Более подходящим решением может быть использование TSet или TDictionary из пакета Generics.Collections. TSet не позволяет добавлять дубликаты, а TDictionary позволяет хранить пары ключ-значение, где ключом может быть целое число, а значением - любое другое значение.

Пример использования TSet:

uses
  Generics.Collections;

var
  numberSet: TSet<Integer>;
begin
  numberSet := TSet<Integer>.Create;
  numberSet.Add(1);
  numberSet.Add(2);
  numberSet.Add(3);
  numberSet.Add(1); // это не добавит число, так как оно уже есть в наборе
end;

Пример использования TDictionary:

uses
  Generics.Collections;

var
  numberDict: TDictionary<Integer, Boolean>;
begin
  numberDict := TDictionary<Integer, Boolean>.Create;
  numberDict.Add(1, True);
  numberDict.Add(2, True);
  numberDict.Add(3, True);
  numberDict.Add(1, True); // это не добавит пару, так как ключ уже есть в словаре
end;

В обоих примерах мы создаем набор или словарь, добавляем в него числа и пытаемся добавить дубликат. В случае с TSet дубликат не добавляется, а в случае с TDictionary добавляется новая пара с тем же ключом, но другим значением.

В заключение, мы можем сказать, что для хранения списка уникальных целых чисел в Delphi можно использовать TSet или TDictionary из пакета Generics.Collections. Эти классы обеспечивают безопасность типов, быстрый доступ к элементам и не позволяют добавлять дубликаты.

Создано по материалам из источника по ссылке.

В статье рассматривается вопрос о выборе структуры данных Delphi для хранения списка уникальных целых чисел.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Коллекции ::