Сделаем `TList` в Delphi неизменяемым: аналог `unmodifiableList` в Java

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

Сделаем TList в Delphi неизменяемым: аналог unmodifiableList в Java

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

Подходы к решению проблемы

Существует несколько способов сделать TList в Delphi неизменяемым:

1. Использование IReadOnlyList<T> из библиотеки Spring4D. Этот подход позволяет преобразовать обычный список IList<T> в его неизменяемую версию IReadOnlyList<T>, которая не предоставляет методы для изменения списка, например, Add, Delete, или изменение свойства Items.

2. Разработка собственного класса, поддерживающего неизменяемость. В контексте предоставленной информации, можно рассмотреть пример простого Generic неизменяемого списка с поддержкой операций Map и Filter. Класс TImmutableList<TItem> реализует интерфейс IImmutableList<TItem>, который предоставляет функции для фильтрации и трансформации элементов списка без возможности их изменения.

Пример реализации TImmutableList

Вот пример реализации класса TImmutableList<TItem>, который обеспечивает неизменяемость списка:

unit Immutable;

interface

uses
  System.Generics.Collections;

type
  TFilter<TItem> = reference to function(AItem: TItem): Boolean;
  TMapper<TItem> = reference to function(AItem: TItem): TItem;

  IImmutableList<TItem> = interface
    function Insert(Index: Integer; AItem: TItem): IImmutableList<TItem>;
    function Filter(AFilter: TFilter<TItem>): IImmutableList<TItem>;
    function Map(AMapper: TMapper<TItem>): IImmutableList<TItem>;
    function GetEnumerator: TEnumerator<TItem>;
  end;

  TImmutableList<TItem> = class(TInterfacedObject, IImmutableList<TItem>)
  private
    FList: TList<TItem>;
  public
    constructor Create; overload;
    constructor Create(AImmutableList: IImutableList<TItem>); overload;
    destructor Destroy; override;
    // Реализация методов интерфейса IImutableList
  end;

implementation

// Здесь следует реализация конструкторов, деструктора и методов класса TImmutableList

end.

Данный класс может быть использован в проектах, где требуется неизменяемость данных, например, в приложениях, использующих паттерн Redux, как показано в примере кода на GitHub: ReduxDelphi TodoMVC.

Заключение

Таким образом, в Delphi для создания неизменяемых списков можно использовать сторонние библиотеки, такие как Spring4D, или же разработать собственный класс, обеспечивающий требуемую функциональность. Это позволяет защитить данные от изменений и упростить разработку, так как разработчики могут быть уверены, что данные не будут изменены неожиданным образом.

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

Вопрос связан с необходимостью создания неизменяемого списка `TList` в Delphi, что является важным для обеспечения защиты данных от изменений, аналогично использованию `unmodifiableList` в Java.

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

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

:: Главная :: Списки ::