Создание экземпляра класса в Delphi по имени, хранящемуся в строковой переменной: обход использования множества условий

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

Создание экземпляра класса в Delphi по имени, хранящемуся в строковой переменной

Вопрос о создании экземпляра класса в Delphi по имени, которое хранится в строковой переменной, является довольно распространенным в среде разработчиков, использующих данный инструментарий. Ключевой момент в решении этой задачи заключается в использовании механизма отражения типов (RTTI), который позволяет работать с классами и объектами в runtime.

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

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

name := 'Foo';
If name = 'Foo' then
  result := TFoo.Create
else if name = 'Bar' then 
  result := TBar.Create
else if name = 'FooFoo' then
  result := TFooFoo.Create;

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

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

Для решения данной задачи можно использовать функцию GetClass, которая позволяет получить информацию о классе по его имени. Однако перед использованием этой функции необходимо зарегистрировать классы с помощью методов RegisterClass или RegisterClasses.

Пример кода, использующего GetClass для создания объекта:

uses Classes;

type
  TFoo = class
  end;

procedure RegisterMyClasses;
var
  i: Integer;
begin
  RegisterClass(TFoo);
  // Добавить регистрацию других классов
end;

var
  name: string;
  classType: TPersistentClass;
begin
  name := 'Foo';
  classType := GetClass(name);
  if Assigned(classType) then
    result := classType.Create;
end;

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

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

Пример использования виртуального конструктора:

type
  TFoo = class(TComponent)
  end;
  TFooClass = class of TFoo;

var
  MyClass: TFooClass;

begin
  MyClass := TFoo;
  result := MyClass.Create; // Создает объект TFoo
end;

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

Заключение

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

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

Создание экземпляра класса в Delphi по имени, которое хранится в строковой переменной, с использованием механизма отражения типов (RTTI) для универсализации процесса создания объектов.

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

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

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