Работа с объектами через общий базовый класс: паттерн Делегирование в Pascal

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

Вопрос пользователя связан с необходимостью создания функции, которая бы возвращала экземпляр класса, производного от общего базового класса CObject. Примером таких производных классов могут служить CRock, CDesk, и CComputer. Задача состоит в том, чтобы функция createObject принимала целочисленный код типа объекта и возвращала соответствующий экземпляр. Однако, возвращаемый объект должен быть использован без необходимости явного приведения типов, что важно для удобства и унификации кода.

Подход с использованием виртуальных методов

Один из возможных подходов заключается в использовании виртуальных методов в базовом классе. Это позволяет определить в базовом классе интерфейс, который каждый производный класс может реализовать по-своему. В примере ниже, базовый класс CObject содержит виртуальную функцию DoIt, которая в каждом производном классе переопределяется для выполнения соответствующего поведения.

type
  CObject = class
    procedure DoIt; virtual; abstract;
  end;
  CRock = class(CObject)
    procedure DoIt; override;
  end;
  CDesk = class(CObject)
    procedure DoIt; override;
  end;
...
var
  myRock: CObject;
begin
  myRock := createObject(OBJECT_ROCK);
  myRock.DoIt; // Вызовется метод DoIt соответствующего класса
  myRock.Free;
end;

Функция createObject может быть реализована следующим образом:

function createObject( iType : Integer ) : CObject;
begin
  case iType of
    OBJECT_ROCK : Result := CRock.Create;
    OBJECT_DESK : Result := CDesk.Create;
    // ...
  end;
end;

Принцип Полиморфизма

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

Заключение

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

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

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

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

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

:: Главная :: Классы ::