Item(Name: String): Variant;
Item[Name: string]: object;
Name. Наименование глобальной переменной.
Свойство Item определяет значение указанной глобальной переменной.
Параметр Name регистрозависимый.
Если указанная глобальная переменная не существует, то при чтении свойство вернёт значение Null, а при установке значения будет создана переменная с указанными именем и значением.
Для выполнения примера предполагается наличие формы.
Добавьте ссылку на системную сборку UI.
Sub UserProc;
Var
App: IApplication;
Glob: IApplicationGlobals;
Begin
App := WinApplication.Instance As IApplication;
Glob := App.Globals;
Glob.Item("META") := "Repository";
End Sub UserProc;
В результате выполнения примера будет изменено значение глобальной переменной приложения «META». Если данная переменная не существует, то она будет создана.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Ui;
…
Public Sub UserProc();
Var
Wa: WinApplicationClassClass;
App: IApplication;
Glob: IApplicationGlobals;
Begin
Wa := New WinApplicationClassClass();
App := Wa.Instance[Null] As IApplication;
Glob := App.Globals;
Glob.Item["META"] := "Repository";
End Sub;
См. также: