Объединение сеттеров: единый подход для работы со свойствами в классе `TAdder`

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

Объединение сеттеров: единый подход для работы со свойствами в классе TAdder

Вопрос, поднятый в данном запросе, заключается в возможности использования единого сеттера для обработки записи значений различных свойств класса. В частности, рассматривается класс TAdder, который наследуется от TCalculatorComponent и содержит массив свойств _terms. В текущей реализации для каждого свойства есть отдельный сеттер: _setTerm1, _setTerm2, _setTerm3 и так далее, которые в свою очередь вызывают общий сеттер _setTerm.

Проблема

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

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

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

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

В подтверждённом ответе представлены два решения, которые позволяют использовать единый сеттер для всех свойств, используя механизм индексированных свойств в Object Pascal.

Решение №1

type
  TAdder = class
  private
    _terms: array[1..10] of OleVariant;
    procedure _setTerm(const i: Integer; const Value: OleVariant);
    function _getTerm(const Index: Integer): OleVariant;
  public
    property Term1: OleVariant index 1 read _getTerm write _setTerm;
    property Term2: OleVariant index 2 read _getTerm write _setTerm;
    property Term3: OleVariant index 3 read _getTerm write _setTerm;
    // ...
  end;

function TAdder._getTerm(const Index: Integer): OleVariant;
begin
  Result := _terms[Index];
end;

procedure TAdder._setTerm(const i: Integer; const Value: OleVariant);
begin
  _terms[i] := TVarConv.NullableFloat(Value);
  _calculate();
end;

Решение №2

type
  TAdder = class
  private
    _terms: array[1..10] of OleVariant;
    procedure _setTerm(i: Integer; const Value: OleVariant);
    function _getTerm(Index: Integer): OleVariant;
  public
    property Terms[aIndex: Integer]: OleVariant read _getTerm write _setTerm;
  end;

В обоих решениях использование индексированных свойств позволяет обращаться к свойствам массива через единый интерфейс, что упрощает код и уменьшает вероятность ошибок при изменении логики работы с массивом.

Дополнительные проверки на границы массива могут быть добавлены в сеттер для повышения надёжности программы.

Комментарии

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

Выводы

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

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

Вопрос связан с оптимизацией кода класса `TAdder` путем использования единого сеттера для обработки значений свойств, что позволит избежать избыточности и упростить управление свойствами, особенно при изменении их количества.

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

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

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