IMetabaseUpdateCommentNode.Comment

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    Root: IMetabaseUpdateFolderNode;
    Comment: IMetabaseUpdateCommentNode;
    Obj: IMetabaseUpdateObjectNode;
Begin
    MB := MetabaseClass.Active;
    // Создание обновления
    Update := MB.CreateUpdate;
    Root := Update.RootFolder;
    // Добавление комментария
    Comment := Root.Add(MetabaseUpdateNodeType.Comment) As IMetabaseUpdateCommentNode;
    Comment.Comment := "Форма от " + DateTime.Now.ToShortDateString + " числа";
    Comment.Label := "Дата обновления";
    // Добавление объекта репозитория
    Obj := Root.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
    Obj.Object := MB.ItemById("Form_1");
    // Сохранение обновления
    Update.SaveToFileNF("c:\UpdateForm.pefx");
End Sub UserProc;