Использование Общих Гетеров и Сетеров для Упрощения Определения Свойств в Delphi

Delphi , Компоненты и Классы , Свойства и События

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

Проблема

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

type
  TGame = class(TObject)
  strict private
    FValue1: Integer;
    FValue2: Integer;
  private
    procedure SetValue1(const Value: Integer);
    procedure SetValue2(const Value: Integer);
    function GetValue1: Integer;
    function GetValue2: Integer;
  public
    property Value1: Integer read GetValue1 write SetValue1;
    property Value2: Integer read GetValue2 write SetValue2;
  end;

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

property Value1: Integer read GetValue write SetValue;
property Value2: Integer read GetValue write SetValue;

Решение

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

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

type
  TTest = class
  strict private
    FValues: array[0..1] of Integer;
    function GetValue(Index: Integer): Integer;
    procedure SetValue(Index: Integer; const Value: Integer);
  public
    property Value1: Integer index 0 read GetValue write SetValue;
    property Value2: Integer index 1 read GetValue write SetValue;
  end;

function TTest.GetValue(Index: Integer): Integer;
begin
  Result := FValues[Index];
end;

procedure TTest.SetValue(Index: Integer; const Value: Integer);
begin
  FValues[Index] := Value;
end;

Также можно использовать индексные спецификаторы напрямую с приватными полями класса:

type
  TTest = class
  strict private
    FValue1: Integer;
    FValue2: Integer;
    function GetValue(Index: Integer): Integer;
    procedure SetValue(Index: Integer; const Value: Integer);
  public
    property Value1: Integer index 1 read GetValue write SetValue;
    property Value2: Integer index 2 read GetValue write SetValue;
  end;

function TTest.GetValue(Index: Integer): Integer;
begin
  case Index of
    1:
      Result := FValue1;
    2:
      Result := FValue2;
    else
      raise Exception.Create('Invalid index.');
  end;
end;

procedure TTest.SetValue(Index: Integer; const Value: Integer);
begin
  case Index of
    1:
      FValue1 := Value;
    2:
      FValue2 := Value;
  end;
end;

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

type
  TTest = class
  strict private
    FValues: array[0..1] of Integer;
    function GetValue(Index: Integer): Integer;
    procedure SetValue(Index: Integer; const Value: Integer);
  public
    property Values[Index: Integer]: Integer read GetValue write SetValue;
  end;

function TTest.GetValue(Index: Integer): Integer;
begin
  Result := FValues[Index];
end;

procedure TTest.SetValue(Index: Integer; const Value: Integer);
begin
  FValues[Index] := Value;
end;

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

Заключение

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

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

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

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

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

:: Главная :: Свойства и События ::