Comment: String;
The Comment property determines a comment text.
Executing the example requires that the repository contains a form with the Form_1 identifier.
Sub UserProc;
Var
MB: IMetabase;
Update: IMetabaseUpdate;
Root: IMetabaseUpdateFolderNode;
Comment: IMetabaseUpdateCommentNode;
Obj: IMetabaseUpdateObjectNode;
Begin
MB := MetabaseClass.Active;
// Create an update
Update := MB.CreateUpdate;
Root := Update.RootFolder;
// Add a comment
Comment := Root.Add(MetabaseUpdateNodeType.Comment) As IMetabaseUpdateCommentNode;
Comment.Comment := "Form of " + DateTime.Now.ToShortDateString + " date";
Comment.Label := "Update date";
// Add a repository object
Obj := Root.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
Obj.Object := MB.ItemById("Form_1");
// Save update
Update.SaveToFileNF("c:\UpdateForm.pefx");
End Sub UserProc;
After executing the example a new update is created. The form and the comment with update creation date will be added to the update. Next, the update will be saved to the specified file.
See also: