Динамические свойства

Для объектов, наследованных от 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

Примечание

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