IMetabaseUpdateCommentNode.Comment

Syntax

Comment: String;

Description

The Comment property determines a comment text.

Example

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:

IMetabaseUpdateCommentNode