Обеспечение безопасного создания одиночных объектов в Delphi с помощью модификаторов доступа и интерфейсов

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

Обеспечение безопасного создания одиночных объектов в Delphi

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

Проблема

Пользователь столкнулся с проблемой ограничения доступа к конструктору объекта в Delphi для реализации паттерна синглтона. Он не хочет, чтобы разработчики могли вызывать конструктор Create и предпочитает использование функции Instance, которая возвращает уже созданный экземпляр класса.

Текущее решение

Текущий подход заключается в том, что конструктор объявляется как приватный (private), что делает его недоступным для внешних модулей. Однако внутри того же модуля доступ к конструктору сохраняется из-за механизма неявной дружбы (implicit friendship).

Альтернативное решение

Альтернативой может служить использование модификатора strict private, который ограничит доступ даже внутри модуля, где объявлен класс. Это предотвратит прямой вызов конструктора, но не решит проблему полной изоляции объекта.

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

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

Пример кода

unit SingletonUnit;

interface

uses
  System.SysUtils;

type
  ISingletonInterface = interface
    // Объявление методов интерфейса
  end;

function GetSingletonInstance: ISingletonInterface; // Глобальная функция для получения экземпляра синглтона

implementation

uses
  // Подключение необходимых модулей для класса синглтона

type
  TMySingleton = class(TInterfacedObject, ISingletonInterface)
    // Определение класса синглтона
  private
    // Приватные методы и свойства
    FInstance: TMySingleton;
  public
    constructor Create; override;
    destructor Destroy; override;
    // Публичные методы и свойства
  end;

{ TMySingleton }

constructor TMySingleton.Create;
begin
  inherited Create;
  // Инициализация синглтона, если необходимо
end;

destructor TMySingleton.Destroy;
begin
  if Assigned(FInstance) then
    FInstance.Free;
  inherited Destroy;
end;

function GetSingletonInstance: ISingletonInterface;
var
  Singleton: TMySingleton;
begin
  Result := nil;
  if not Assigned(SingletonInstance) then
  begin
    Singleton := TMySingleton.Create;
    try
      SingletonInstance := Singleton;
    except
      on E: Exception do
      begin
        Singleton.Free;
        raise;
      end;
    end;
  end;

  Result := SingletonInstance as ISingletonInterface;
end;

// ...

var
  SingletonInstance: TMySingleton;

initilization
SingletonInstance = nil; // Объявление переменной для хранения экземпляра класса в разделе инициализации модуля

end.

Важные замечания:

• Использование strict private и неявная дружба между методами внутри модуля может быть недостаточным для полного контроля доступа к конструктору объекта.
• Сокрытие класса в разделе реализации и предоставление интерфейса извне позволяет контролировать доступ к синглтону на уровне компиляции, что минимизирует возможность ошибок разработчиков.

Заключение

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

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

Безопасное создание одиночных объектов (синглтонов) в Delphi с использованием интерфейсов и глобальных функций для контроля доступа к объекту и обеспечения его уникальности.

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

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

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