Просмотр исходного текста страницы Динамические свойства

Для объектов, наследованных от [[TCreatableForm]] или [[TgdcBase]], т.е. для экранных форм и бизнес-объектов в момент выполнения можно добавлять произвольные свойства. Добавление осуществляется с помощью метода

  AddVariableItem(Name: String)

К добавленному свойству можно обращаться через массив

  Variables(Name: String): Variant 

Проверить на наличие свойства с заданным именем можно с помощью вызова функции

  VariableExists(Name: String): Boolean

=== Пример ===

  sub Test(ByVal Sender)
    ...
    if not Sender.VariableExists("Variable1") then
      Sender.AddVariableItem("Variable1")
    end if
    ...
    Sender.Variables("Variable1") = 5
    ...
    A = Sender.Variables("Variable1")
    ...
  end sub

=== Примечание ===

Динамические свойства так же иногда называют глобальными переменными объекта.