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

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

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

Проблема

В примере кода ниже конструктор класса TMyClass не вызывается, что приводит к неправильной инициализации объекта:

type
   TMyClass = class(TObject)
     MyStrings: TStrings;
     constructor Create; virtual;
   end;
constructor TMyClass.Create;
begin
   MyStrings := TStringList.Create;
end;
procedure Test;
var
   Clazz: TClass;
   Instance: TObject;
begin
   Clazz := TMyClass;
   Instance := Clazz.Create;
end;

Решение

Для корректной работы с конструкторами при динамическом создании объектов необходимо использовать тип, представляющий класс (class of TMyClass), а не общий тип TClass. Это позволяет корректно вызвать виртуальный конструктор:

type
   TMyClassClass = class of TMyClass;
constructor Test;
var
   Clazz: TMyClassClass;
   Instance: TObject;
begin
   Clazz := TMyClass;
   Instance := Clazz.Create; // Виртуальный конструктор будет вызван
end;

Альтернативные подходы

Существуют и другие подходы к решению данной проблемы:

1. Использование приведения типов к TMyClass вместо использования "class of TMyClass".
2. Переопределение виртуального метода AfterConstruction в классе TObject, что позволяет выполнить инициализацию после создания объекта.

Пример с использованием RTTI

В случае создания фабрики классов, где необходимо сохранять ссылки на классы во время выполнения и создавать экземпляры объектов позже, можно использовать RTTI (Runtime Type Information) для вызова конструкторов:

type
   THuman = class(TObject)
   public
      Name: string;
      Age: Integer;
      constructor Create(); virtual;
   end;
constructor THuman.Create;
begin
   Name:= 'John Doe';
   Age:= -1;
end;
procedure CreateInstance;
var
   someclass: TClass;
   c: TRttiContext;
   t: TRttiType;
   v: TValue;
   human1, human2, human3: THuman;
begin
   someclass:= THuman;
   c:= TRttiContext.Create;
   t:= c.GetType(someclass);
   // Создание объекта с использованием RTTI
   v:= t.GetMethod('Create').Invoke(t.AsInstance.MetaclassType,[]);
   human3:= THuman(v.AsObject);
   // Освобождение контекста RTTI
   c.Free;
end;

Альтернативное решение с абстрактным методом

Ещё один подход заключается в создании абстрактного метода в базовом классе, который затем вызывается в конструкторе и переопределяется в подклассах:

type
   TBaseClass = class(TObject)
   public
      constructor Create; virtual;
      procedure Initialize; abstract;
   end;
constructor TBaseClass.Create;
begin
   inherited Create;
   Initialize;
end;
type
   TChildClass = class(TBaseClass)
   public
      procedure Initialize; override;
   end;
procedure TChildClass.Initialize;
begin
   // Дополнительная инициализация
end;

Заключение

При работе с динамическим созданием объектов в Delphi важно правильно использовать типы и конструкторы классов. В зависимости от конкретной ситуации, можно выбрать наиболее подходящий подход, будь то использование типа "class of", RTTI или абстрактных методов. Каждый из этих подходов имеет свои особенности и применение, что позволяет разработчикам гибко решать задачи, связанные с динамическим созданием объектов.

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

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

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

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

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