IMetabaseUpdateCommentNode.Comment

Синтаксис

Comment: String;

Описание

Свойство Comment определяет текст комментария.

Пример

Для выполнения примера предполагается наличие в репозитории формы с идентификатором "Form_1".

Sub Main;

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 Main;

После выполнения примера будет создано новое обновление. В обновление будет добавлена форма "Form_1" и комментарий, содержащий дату создания обновления. После этого обновление будет сохранено в файл "c:\UpdateForm.pefx".

См. также:

IMetabaseUpdateCommentNode