Доступ к элементам внутренних списков в классах Delphi с использованием оператора `[]`

Delphi , Синтаксис , Массивы

Доступ к элементам внутренних списков в классах Delphi с использованием оператора []

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

Описание проблемы

Допустим, у нас есть класс TIntClass, который содержит внутренний список целых чисел myInts. Нам нужно получить возможность обращаться к элементам этого внутреннего списка, используя синтаксис myIntList[5], аналогично тому, как это делается в стандартных коллекциях.

Альтернативный ответ

Изначально может показаться, что доступ к элементам списка должен осуществляться через myIntList.myInts[5]. Однако это не соответствует желаемому синтаксису, когда обращение к элементу происходит напрямую через имя экземпляра класса.

Подтвержденный ответ

Для реализации доступа к элементам списка с использованием оператора [] необходимо определить свойство с использованием ключевого слова default. Это позволит компилятору интерпретировать обращение к элементам через квадратные скобки. Вот пример кода, который реализует такое свойство:

type
  TIntClass = class
  private
    function getItem(Index: Integer): Integer; // Функция для получения элемента по индексу
  private
    myInts: TList<Integer>;
  ...
  public
    property Items[Index: Integer]: Integer read getItem default; // Свойство для доступа к элементам списка
  end;

...

function TIntClass.getItem(Index: Integer): Integer;
begin
  Result := myInts[Index]; // Возвращаем значение из списка по индексу
end;

Теперь, имея такое определение класса, можно легко обращаться к элементам внутреннего списка, как если бы это был массив:

procedure Test;
var
  LMyIntClass: TIntClass;
  L5thElemValue: Integer;
begin
  L5thElemValue := LMyIntClass[4]; // Получаем пятый элемент списка
end;

Комментарии

Ключевым моментом является использование ключевого слова default, которое указывает компилятору, что данное свойство может быть использовано для доступа к элементам через оператор []. Имя свойства может быть любым, что позволяет гибко настраивать доступ к данным.

Этот пример демонстрирует, как можно расширить функциональность классов в Delphi, используя оператор [] для удобства работы с внутренними коллекциями.

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

Доступ к элементам внутренних списков в классах Delphi с использованием оператора `[]` для упрощения работы с коллекциями.

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

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

:: Главная :: Массивы ::