ISharedParams.Resource

Синтаксис

Resource: IResourceObject;

Описание

Свойство Resource определяет ресурсы, из которого будут браться текстовые значения в зависимости от используемого языка репозитория.

Пример

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("OBJ19645");

CrInfo.Permanent := False;

Des := Mb.CreateObject(CrInfo);

Obj := Des.Edit;

Shp := Obj As ISharedParams;

Shp.IsShared := True;

Shp.Resource := MB.ItemById("Resource").Bind As IResourceObject;

Shp.NameResource := "SHARA";

Params := Shp.Params;

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

Pa := Params.Add;

Pa.Id := "GLOBAL_INT";

Pa.DataType := DbDataType.Integer;

Pa.DefaultValue := 15;

Obj.Save;

End Sub main;

После выполнения примера будет создана глобальная переменная, ее наименование будет зависеть от настроенного языка репозитория. В редакторе ресурсов (идентификатор Resource) строковый ресурс должен иметь идентификатор «SHARA_GLOBAL_INT».

См. также:

ISharedParams