Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
KeepEdit: Boolean;
Свойство KeepEdit определяет признак нахождения объекта репозитория в состоянии редактирования после создания.
Допустимые значения:
True. После выполнения метода IMetabase.CreateObject созданный объект будет находиться в состоянии редактирования. Это позволяет сразу привести созданный объект к нужному интерфейсу и настроить специфические свойства;
False. Для изменения специфических свойств созданного объекта его будет необходимо открыть на редактирование с помощью метода IMetabaseObjectDescriptor.Edit.
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
m: IModule;
Begin
MB := MetabaseClass.Active;
CrInfo := MB.CreateCreateInfo;
CrInfo.ClassId := MetabaseObjectClass.KE_CLASS_MODULE;
CrInfo.Parent := MB.Root;
CrInfo.KeepEdit := True;
m := MB.CreateObject(CrInfo) As IModule;
m.Text := "Sub Main;" + #13 + #10 +
"Begin" + #13 + #10 +
"End Sub Main;";
(m As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера в корневом каталоге репозитория будет создан новый модуль. Для указания заготовки процедуры «Main» в модуле структура модуля остается открытой на редактирование после выполнения метода IMetabase.CreateObject.
См. также: