Настройка свойств в Delphi: использование RTTI для получения значений по умолчанию

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

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

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

Допустим, у нас есть класс TServerSettings, наследующийся от TSettings, с приватным полем FHTTPPort типа Integer и опубликованным свойством HTTPPort, которое имеет значение по умолчанию 80. Задача состоит в том, чтобы получить это значение по умолчанию, используя RTTI.

TServerSettings = class(TSettings)
strict private
    FHTTPPort : Integer;
published
    property HTTPPort : Integer read FHTTPPort write FHTTPPort default 80;
end;

Решение проблемы

Для получения значения по умолчанию свойства можно использовать следующий подход:

{$APPTYPE CONSOLE}
uses
  System.TypInfo;
type
  TMyClass = class
  strict private
    FMyValue: Integer;
  published
    property MyValue: Integer read FMyValue default 42;
  end;
var
  obj: TMyClass;
  PropInfo: PPropInfo;
begin
  obj := TMyClass.Create;
  PropInfo := GetPropInfo(obj, 'MyValue');
  Writeln(PropInfo.Default);
end.

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

Также важно понимать, что значения по умолчанию доступны только для свойств, имеющих ординальные типы (например, Integer, Boolean), и для булевых свойств 0 соответствует false, а 1 - true.

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

Для получения значения по умолчанию можно использовать свойство Default класса TRttiInstanceProperty:

{$APPTYPE CONSOLE}
uses
  Rtti,
  System.SysUtils;
type
  TServerSettings = class
  strict private
      FHTTPPort : Integer;
  published
      property HTTPPort : Integer read FHTTPPort write FHTTPPort default 80;
  end;
var
   L : TRttiType;
   P : TRttiProperty;
begin
  try
     P:= TRttiContext.Create.GetType(TServerSettings.ClassInfo).GetProperty('HTTPPort');
     if P is TRttiInstanceProperty  then
       Writeln(TRttiInstanceProperty(P).Default);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

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

Заключение

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

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

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

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

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

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