Создание "Фальшивых" Опубликованных Свойств для Списков в Delphi

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

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

Проблема

В Delphi невозможно объявить свойство TList<Integer> как опубликованное, поскольку TList не является потомком TPersistent. Однако существует возможность определения так называемых "фальшивых" опубликованных свойств путем переопределения метода DefineProperties. Но как это работает, особенно при создании свойства, представляющего собой список, а не одиночное значение?

Решение

Для решения этой задачи можно использовать TCollection, но это потребует "украшения" каждого целого числа объектом TCollectionItem. Если количество целых чисел невелико, этот подход может быть предпочтительным, так как вы получите интеграцию с Object Inspector практически бесплатно.

Если же требуется сохранить список в его текущем эффективном виде (как TList), то правильным решением будет определение собственного свойства. Стоит изучить реализацию метода DefineProperties в модуле Graphics.pas, так как это близко к тому, что вам нужно.

Пример реализации

Вот минимальный пример использования DefineBinaryProperty (написан для D2007, без использования generics):

type
  TTestComponent = class(TComponent)
  private
    FList: TList;
    // Другие методы и процедуры для работы со списком
  protected
    procedure DefineProperties(Filer: TFiler); override;
  public
    // Конструктор, деструктор и свойства для работы со списком
  end;

procedure TTestComponent.DefineProperties(Filer: TFiler);
begin
  inherited DefineProperties(Filer);
  Filer.DefineBinaryProperty('ValueList', ReadValueList, WriteValueList, ValueCount > 0);
end;

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

Если вы решите использовать подход с DefineProperties, рассмотрите возможность использования RegisterComponentEditor, поскольку ваш список целых чисел не будет отображаться в Object Inspector.

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

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

// Определение класса TTestComponent с необходимыми методами и свойствами
// ...
procedure TTestComponent.DefineProperties(Filer: TFiler);
begin
  inherited DefineProperties(Filer);
  Filer.DefineBinaryProperty('ValueList', ReadValueList, WriteValueList, ValueCount > 0);
end;

Дополнительно, в файле .dfm свойство будет выглядеть так:

object TestComponent1: TTestComponent
  Left = 96
  Top = 56
  ValueList = '{03000000000000000100000002000000}'
end

Заключение

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

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

Создание 'Фальшивых' Опубликованных Свойств для Списков в Delphi состоит в сериализации свойств, не являющихся потомками `TPersistent`, таких как список целых чисел, через переопределение метода `DefineProperties`.

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

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

:: Главная :: Списки ::