Решение проблемы циклической ссылки при использовании паттерна Наблюдатель в Delphi

Delphi , Компоненты и Классы , Модули

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

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

Рассмотрим два класса: TcmTPDataPanel и TcmTPDataConnector, которые используют друг друга в секции интерфейса. При попытке компиляции мы получаем ошибку "Undeclared identifier".

TcmTPDataPanel = class(TcmTPBasePanel)
  ...
  FDataConnector: TcmTPDataConnector;
  ...
  published
  property DataConnector: TcmTPDataConnector read FDataConnector write FDataConnector;
end;

TcmTPDataConnector = class(TComponent)
  ...
  FObservers: TList;
  ...
  procedure Register(Instance: TcmTPDataPanel);
  procedure Unregister(Instance: TcmTPDataPanel);
  ...
end;

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

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

1. Определение классов в одном типовом блоке

Можно определить оба класса в одном типовом блоке, используя форвард-декларацию для одного из них.

type
  TcmTPDataConnector = class(TComponent)
    ...
  end;

  TcmTPDataPanel = class(TcmTPBasePanel)
    ...
    FDataConnector: TcmTPDataConnector;
    ...
    published
    property DataConnector: TcmTPDataConnector read FDataConnector write FDataConnector;
  end;

1. Использование общего предка

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

type
  TcmDataConnectorBase = class(TComponent)
    FDatabase: TnxDatabase;
    ...
  end;

  TcmTPDataConnector = class(TcmDataConnectorBase)
    ...
  end;

  TcmTPDataPanel = class(TcmTPBasePanel)
    ...
    FDataConnector: TcmDataConnectorBase;
    ...
    published
    property DataConnector: TcmDataConnectorBase read FDataConnector write FDataConnector;
  end;

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

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

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

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

Решение проблемы циклической ссылки при использовании паттерна Наблюдатель в Delphi можно решить с помощью определения классов в одном типовом блоке или использования общего предка.

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

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

:: Главная :: Модули ::