Разработка объектов с использованием RTTI в Delphi 2010: создание и обработка исключений

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

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

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

Когда мы создаем экземпляр класса, используя стандартный синтаксис, например:

instance := TSomeClass.Create;

Компилятор Delphi выполняет ряд действий:

1. Вызов статического метода NewInstance, который выделяет память и инициализирует макет памяти.
2. Вызов конструктора класса для выполнения начальной инициализации.
3. Вызов метода AfterConstruction.

Эти шаги кажутся простыми, но есть недопонимание относительно того, как компилятор обрабатывает исключения во время второго и третьего шагов. В частности, не совсем ясно, как создать экземпляр с использованием метода конструктора через RTTI в Delphi 2010.

Контекст и альтернативные решения

В контексте обсуждения был представлен пример функции TActivator.CreateInstance, предназначенной для создания экземпляра класса с использованием RTTI. Функция обрабатывает вызов конструктора и метод AfterConstruction, а также корректно освобождает память в случае возникновения исключений.

class function TActivator.CreateInstance(instanceType: TRttiInstanceType;
  constructorMethod: TRttiMethod; const arguments: array of TValue): TObject;
var
  classType: TClass;
begin
  TArgument.CheckNotNull(instanceType, 'instanceType');
  TArgument.CheckNotNull(constructorMethod, 'constructorMethod');
  classType := instanceType.MetaclassType;
  Result := classType.NewInstance;
  try
    constructorMethod.Invoke(Result, arguments);
  except
    on E: Exception do
    begin
      if Result is TInterfacedObject then
      begin
        Dec(TInterfacedObjectHack(Result).FRefCount);
      end;
      Result.Free;
      raise;
    end;
  end;
  try
    Result.AfterConstruction;
  except
    on E: Exception do
    begin
      Result.Free;
      raise;
    end;
  end;
end;

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

В ответе на вопрос было указано, что вызов конструктора с передачей класса как аргумента Self (а не экземпляра) корректно выполняет инициализацию класса, включая вызов NewInstance, AfterConstruction и так далее. Это означает, что ручная обработка, реализованная в функции TActivator.CreateInstance, не требуется.

Достаточно выполнить следующий код:

Result := constructorMethod.Invoke(instanceType.MetaclassType, arguments);

Однако, стоит отметить особенность Delphi, которая позволяет вызывать конструкторы как для экземпляров, так и для классов, что используется для "placement new" в терминах C++, например, при создании форм, чтобы глобальная переменная формы (например, Form1) была присвоена в момент вызова конструктора OnCreate.

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

В некоторых ситуациях, например, когда конструктор использует RTTI для инициализации полей, необходимо передавать экземпляр как аргумент Self, чтобы конструктор имел доступ к валидной ссылке для использования RttiField.SetValue.

Заключение

При работе с RTTI в Delphi 2010 важно понимать, что для вызова конструктора класса с помощью RTTI достаточно вызвать метод Invoke, передав в качестве аргумента Self класс, а не экземпляр. Это позволит избежать необходимости в ручной обработке создания и освобождения экземпляра, что упрощает код и повышает его надежность.

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

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

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

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

:: Главная :: RTTI ::