ISharedParams.Params

Синтаксис

Params: IMetabaseObjectParams;

Описание

Свойство Params определяет параметры коллекции глобальных переменных.

Пример

Sub main;

Var

MB : IMetabase;

CrInfo: IMetabaseObjectCreateInfo;

Des: IMetabaseObjectDescriptor;

Obj: IMetabaseObject;

Shp: ISharedParams;

Params: IMetabaseObjectParams;

Pa: IMetabaseObjectParam;

Begin

MB := MetabaseClass.Active;

Mb.SpecialObject(MetabaseSpecialObject.SharedParams) := Null;

 

//создание области глобальных переменных

CrInfo := Mb.CreateCreateInfo;

CrInfo.Id := "MyParam";

CrInfo.Name := "MyParam";

CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_SHAREDPARAMS;

CrInfo.Parent := MB.ItemById("Folder");

CrInfo.Permanent := False;

Des := Mb.CreateObject(CrInfo);

 

Obj := Des.Edit;

Shp := Obj As ISharedParams;

Shp.IsShared := True;

Params := Shp.Params;

//создание параметра

Pa := Params.Add;

Pa.Id := "GLOBAL_INT";

Pa.DataType := DbDataType.Integer;

Pa.DefaultValue := 15;

 

Obj.Save;

End Sub main;

После выполнения примера будет создана область глобальных параметров и создана одна глобальная переменная.

См. также:

ISharedParams