Создание объектов и вызов конструкторов в Delphi: особенности использования переменных классов

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

Вопрос, поднятый в вашем запросе, касается особенностей создания объектов в Delphi и вызова конструкторов при использовании переменных классов. Давайте разберемся в этом вопросе, используя примеры кода на Object Pascal (Delphi).

Основные принципы создания объектов в Delphi

Когда мы создаем объект в Delphi, мы вызываем конструктор класса, который инициализирует объект. Конструктор — это специальный метод класса, который выполняется при создании объекта. В Delphi конструкторы обычно называются Create или Constructor, но могут иметь любое другое имя.

Пример 1: Вызов конструктора напрямую

TTestClass = class
public
end;

TTestClassDescendant = class(TTestClass)
public
  constructor Create; // Конструктор дочернего класса
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  tc: TTestClass;
begin
  tc := TTestClassDescendant.Create; // Конструктор вызовется корректно
  tc.Free;
end;

В данном примере конструктор дочернего класса вызывается корректно, и сообщение "Create executed" будет отображено.

Пример 2: Использование переменных классов

TTestClassClass = class of TTestClass; // Объявление переменной класса

procedure TForm1.Button1Click(Sender: TObject);
var
  tc: TTestClass;
  tcc: TTestClassClass;
begin
  tcc := TTestClassDescendant; // Присваиваем переменной класса ссылку на дочерний класс
  tc := tcc.Create; // Конструктор базового класса будет вызван, а не дочернего
  tc.Free;
end;

В этом случае конструктор дочернего класса не вызывается. Это происходит потому, что переменная класса tcc ссылается на базовый класс TTestClass, и при вызове tcc.Create вызывается конструктор базового класса.

Решение проблемы: Виртуальные конструкторы

TTestClass = class
public
  constructor Create; virtual; // Виртуальный конструктор базового класса
end;

TTestClassDescendant = class(TTestClass)
public
  constructor Create; override; // Переопределенный конструктор дочернего класса
end;

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

Аналогия с другими методами

type
  TBase = class
    procedure DoSomething;
  end;

  TDesc = class(TBase)
    procedure DoSomething; override;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  D: TBase;
begin
  D := TDesc.Create;
  D.DoSomething; // Вызовется метод базового класса, если он не виртуальный
end;

Аналогично, если метод не является виртуальным, то при вызове D.DoSomething будет вызван метод базового класса, даже если D ссылается на экземпляр дочернего класса.

Заключение

Использование переменных классов в Delphi может привести к неожиданному поведению, если не учитывать, что переменная класса ссылается на тип, а не на конкретный объект. Для корректного вызова конструктора дочернего класса необходимо использовать виртуальные конструкторы. Это поведение является частью парадигмы VMT (Virtual Method Table) в Delphi и не должно быть сюрпризом, если понимать принципы работы с классами и объектами в этом языке программирования.

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

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

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

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

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