Использование Статических Поле́й: Инкапсуляция Различных Значений в Наследуемых Классах

Delphi , Технологии , Объектно-ориентированное программирование

Использование статических полей: инкапсуляция различных значений в наследуемых классах

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

Проблема

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

type
  TKpModelViewControllerEntity = class(TInterfacedObject, IKpEntity)
    protected
      class var ResourceName: string;
      procedure Manage;
    public
      class function Create: IKpEntity;
  end;

unit Customers;
type
  TCustomers = class(TKpModelViewControllerEntity)
  end;
initialization
  TCustomers.ResourceName := 'customers/';

unit Articles;
type
  TArticles = class(TKpModelViewControllerEntity)
  end;
initialization
  TArticles.ResourceName := 'articles/';

При попытке создать экран для клиентов (TCustomers.Create.Manage) используется неправильное значение ResourceName, потому что оно хранится в статическом контексте базового класса, и все наследники делятся этим значением.

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

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

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

Для решения данной проблемы можно использовать следующий подход с применением атрибутов:

type
  ResourceNameAttribute = class(TCustomAttribute)
    private
      FValue: string;
    public
      constructor Create(const AValue: string);
      property Value: string read FValue;
  end;

type
  TKpModelViewControllerEntity = class(TInterfacedObject, IKpEntity)
    protected
      class function ResourceName: string;
      procedure Manage;
    public
      class function Create: IKpEntity;
  end;

class function TKpModelViewControllerEntity.ResourceName: string;
begin
  Result := '';
  var ctx := TRttiContext.Create;
  var cls := ctx.GetType(Self);
  var attr := cls.GetAttribute<ResourceNameAttribute>;
  if attr <> nil then
    Result := attr.Value;
end;

constructor ResourceNameAttribute.Create(const AValue: string);
begin
  inherited Create;
  FValue := AValue;
end;

// Пример использования атрибута в наследнике:
type
  [ResourceName('customers/')]
  TCustomers = class(TKpModelViewControllerEntity)
  end;

type
  [ResourceName('articles/')]
  TArticles = class(TKpModelViewControllerEntity)
  end;

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

Комментарии

Решение с использованием атрибутов работает отлично и кажется очень элегантным. Спасибо за предложение!

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

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

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

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

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

:: Главная :: Объектно-ориентированное программирование ::