SYSDBA в 13:57, 31 мая 2007

2007-05-31T13:57:39Z

Новая страница

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

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

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

Динамические свойства - История изменений

SYSDBA в 13:57, 31 мая 2007